Saludos
Para hacer que al cargar un userform, al inicializar, se numere automaticamente desde la celda A10 en adelante
intente usar este codigo
sub numerar_automaticamente()
Hoja25.Range("A10").Value = 1
n = Hoja25.Range("A10:A" & Rows.Count).End(xlDown).Value
nfil = Hoja25.Range("A10:A" & Rows.Count).End(xlDown).Row
Hoja25.Cells(nfil + 1, 1).Value = n + 1
end sub
Puesto en A10 al inicio no tiene ningun valor, le coloque la instruccion para que inicie con el valor de 1
Pero no funciona
No numerra automaticamente
Que puedo hacer??
Gracias anticipadas
El lío puede estar aquí:
Hoja25.Range("A10:A" & Rows.Count).End(xlDown)
entiendo que quieres ir a la última celda con datos que hay debajo de la A10
en ese caso podría ser así (directamente desde la A10 hacia abajo)
n = Hoja25.Range("A10").End(xlDown).Value
nfil = Hoja25.Range("A10").End(xlDown).Row
mira a ver si con esto funciona,
Aunque tendrías qeu añadir una comprobación para cuando no haya datos debajo de A10, para qeu no se vaya al final de la hoja
If isempty(Hoja25.Range("A11").value) then...
------
Ya sé Excel, pero necesito más.
Gracias pacomejia pero nó, ... no funciona , al ejecutar, se atranca aqui n= Hoja25.Range("A10").End(xlDown).Value
Para aprender hay que preguntar
¿Qué quiere decir que se atranca?
¿Da algún error?
¿Hay algo en A11?
------
Ya sé Excel, pero necesito más.
Disculpas la demora, tienes toda la razon, ya correji el error, solucione y me resulto bien. Gracias por el apoyo
Para aprender hay que preguntar