** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - macro para seleccionar celda y ejecutar macro
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

macro para seleccionar celda y ejecutar macro

 Responder Responder
Autor
Mensaje
gorrion Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 20/Enero/2020
Localización: huelva
Estado: Sin conexión
Puntos: 3
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita gorrion Cita  ResponderRespuesta Enlace directo a este mensaje Tema: macro para seleccionar celda y ejecutar macro
    Enviado: 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
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 12324
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita xavi Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 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

Mi web
Arriba
gorrion Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 20/Enero/2020
Localización: huelva
Estado: Sin conexión
Puntos: 3
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita gorrion Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 20/Enero/2020 a las 22:26
gracias por tu rapida repuesta, lo intento 
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable