podrian ayudarme a modificar el codigo de esta funcion o sugerir algo
Function buscaultimaren() As Integer
numfila = Range("a1").End(xlDown).Offset(1, 0).Row - 1
buscaultimaren = numfila
End Function
o como puedo saber cuando le han dado por primera vez clic al boton puesto en mi hoja antes de que ejecute la macro asignada.
gracias de antemano
problema de conteo de renglones
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
3 mensajes
• Página 1 de 1
problema de conteo de renglones
por mgcarbajal » 06 Abr 2006 17:37
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
-
mgcarbajal - Miembro Frecuente
- Registrado: 17 Mar 2006 16:41
- Ubicación: México
Re: problema de conteo de renglones
por IWOLLS » 07 Abr 2006 04:29
Prueba con esto:
numfila = Range("a1").End(xlDown).Offset(1, 0).Row
If numfila =65536 then ' cuando no hay nada va hasta la ultima
numfila=1
end if
buscaultimaren = numfila +1
Salu2
numfila = Range("a1").End(xlDown).Offset(1, 0).Row
If numfila =65536 then ' cuando no hay nada va hasta la ultima
numfila=1
end if
buscaultimaren = numfila +1
Salu2
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
-
IWOLLS - Miembro Frecuente
- Registrado: 22 Nov 2005 08:43
- Ubicación: Bilbao - ESPAí‘A
Re: problema de conteo de renglones
por mgcarbajal » 07 Abr 2006 12:56
gracias fue una buena solucion al problema que tenia .
solo modifique una parte para que tomara el ultimo renglon:
numfila = Range("a1").End(xlDown).Offset(0, 0).Row
Te agradezco tu intervención que fue muy rápida.
solo modifique una parte para que tomara el ultimo renglon:
numfila = Range("a1").End(xlDown).Offset(0, 0).Row
Te agradezco tu intervención que fue muy rápida.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
-
mgcarbajal - Miembro Frecuente
- Registrado: 17 Mar 2006 16:41
- Ubicación: México
Compartir en:
3 mensajes
• Página 1 de 1
-
- Anuncio
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 3 invitados
