Numerar automaticamente en la hoja al cargar userform

5 envíos / 0 nuevos
Último envío
FixFox
Imagen de FixFox
Offline
última acción: Hace 4 semanas 1 día
alta: 24/01/2018 - 21:34
Puntos: 160
Numerar automaticamente en la hoja al cargar userform

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

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 2 horas 32 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 8665
El lío puede estar aquí

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...

 

 

Data Tools Suite
datos y tablas con Excel

FixFox
Imagen de FixFox
Offline
última acción: Hace 4 semanas 1 día
alta: 24/01/2018 - 21:34
Puntos: 160
Gracias pacomejia pero nó, ..

Gracias pacomejia pero nó, ... no funciona , al ejecutar, se atranca aqui n= Hoja25.Range("A10").End(xlDown).Value 

 

Para aprender hay que preguntar

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 2 horas 32 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 8665
¿Qué quiere decir que se

¿Qué quiere decir que se atranca?

¿Da algún error?

¿Hay algo en A11?

 

Data Tools Suite
datos y tablas con Excel

FixFox
Imagen de FixFox
Offline
última acción: Hace 4 semanas 1 día
alta: 24/01/2018 - 21:34
Puntos: 160
Disculpas la demora, tienes

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