Foros del Web » Soporte técnico » Ofimática »

Macro confirmar fila no vacia y buscar dato

Estas en el tema de Macro confirmar fila no vacia y buscar dato en el foro de Ofimática en Foros del Web. Hola. Estoy tratando de facilitarme la vida con una macro, pero no logro encontrar las funciones. Lo que quiero es, confirmar en fila 1 que ...
  #1 (permalink)  
Antiguo 21/09/2009, 12:24
 
Fecha de Ingreso: septiembre-2009
Mensajes: 1
Antigüedad: 14 años, 6 meses
Puntos: 0
Macro confirmar fila no vacia y buscar dato

Hola.

Estoy tratando de facilitarme la vida con una macro, pero no logro encontrar las funciones.

Lo que quiero es, confirmar en fila 1 que no este vacia copiar la primer celda y pegarla en otra hoja2 A1 (ya que la cantidad de filas de datos varia a diario) luego copiar R1 y pegarla en hoja 2 A2, copiar S1 y pegar hoja2 A3.. etc..
Una vez terminada (el numero de columnas siempre es el mismo, sin importar el numero de filas) checar que A2 no este vacia, y repetir el copiado y pegado, pero ahora de la fila 2.

Se que puedo hacerlo grabando la macro, pero al no saber cuantas filas hay, estoy seguro que hay una funcion que corrobora la fila siguiente.

Gracias.
  #2 (permalink)  
Antiguo 21/09/2009, 12:50
Colaborador
 
Fecha de Ingreso: agosto-2004
Mensajes: 1.611
Antigüedad: 19 años, 7 meses
Puntos: 47
Respuesta: Macro confirmar fila no vacia y buscar dato

Algunos usarán For-Next...
Otros usarán Do-While...
Cuestión de entender como funcionan estos comandos...
Saludos...
  #3 (permalink)  
Antiguo 22/09/2009, 19:04
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años
Puntos: 88
Macro confirmar fila no vacia y buscar dato

De acuerdo a lo que describes, intenta con:

Código PHP:
Sub Macro1()
Dim Rng As RangeAs Long
With Sheets
("Hoja1")
  If .[
a1] = Empty Then Exit Sub
  i 
= .[a65536].End(xlUp).Row
  Set Rng 
Union(.Range("a1:a" i), .Range("r1:r" i), .Range("s1:s" i))
  
Rng.Copy Sheets("Hoja2").[a65536].End(xlUp).Offset(1)
  
Set Rng Nothing
End With
End Sub 
Saludos, Cacho.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 07:31.