Imprimir página | Cerrar ventana

macro para seleccionar celda y ejecutar macro

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84957
Fecha de impresión: 26/Marzo/2026 a las 20:58


Tema: macro para seleccionar celda y ejecutar macro
Publicado por: gorrion
Asunto: macro para seleccionar celda y ejecutar macro
Fecha de publicación: 20/Enero/2020 a las 22:16
hola, una ayuda necesito, tengo una hoja que en la columna A estará rellena desde la fila 2 hacia abajo, pueden existir indistintas filas, necesito que comience por A2 y recorra hacia abajo y ejecute una macro llamada  "copia" por cada celda hasta que encuentre la primera celda sin datos. gracias anticipadas


Respuestas:
Publicado por: xavi
Fecha de publicación: 20/Enero/2020 a las 22:24
Hola gorrion y bienvenido al foro,

¿Que tal andamos de VBA?

Una función con un bucle que empiece en la linea 2 y que se repita mientras la celda no esté vacía. En cada iteración, lanzar la función Copia

Function LanzaCopia()
' Dimensionamos variable
Dim f As Integer
' Inicializamos la variable
f = 2
' Abrimos bucle mientras la celda no esté vacía
Do Until ActiveSheet.Cells(f, 1) = ""
  ' Al no estar vacía, lanzamos la fuinción "Copia"
  Copia
  ' Aumentamos el número de línea
  f = f +1
Loop
End Function

Añades un botón a la hoja y le asignas la macro.

Un saludo




-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web

Publicado por: gorrion
Fecha de publicación: 20/Enero/2020 a las 22:26
gracias por tu rapida repuesta, lo intento 


Imprimir página | Cerrar ventana