Problema con macro
Esta es la pregunta:
¿Como puedo hacer lo siguiente con una macro, copiar datos de un un espacio (D3:E3)
Pegar los datos en otro lugar (C13), pero si C13 y/o D13 esta ocupada copiar en la siguiente columna desocupada, así sucesivamente en una macro.
Agradeciendo de antemano me despido
¿Como puedo hacer lo siguiente con una macro, copiar datos de un un espacio (D3:E3)
Pegar los datos en otro lugar (C13), pero si C13 y/o D13 esta ocupada copiar en la siguiente columna desocupada, así sucesivamente en una macro.
Agradeciendo de antemano me despido
2 respuestas
Respuesta de angelcrisnor
1
A ver si esta macro te sirve.
Sub Macro2()
Range("C13").Select
Celda1 = ActiveCell.Value
Celda2 = ActiveCell.Offset(0, 1).Value
Do Until Celda1 = "" And Celda2 = ""
ActiveCell.Offset(0, 1).Select
Celda1 = ActiveCell.Value
Celda2 = ActiveCell.Offset(0, 1).Value
Loop
ActiveCell.Value = Range("D3").Value
ActiveCell.Offset(0, 1).Value = Range("E3").Value
End Sub
Sub Macro2()
Range("C13").Select
Celda1 = ActiveCell.Value
Celda2 = ActiveCell.Offset(0, 1).Value
Do Until Celda1 = "" And Celda2 = ""
ActiveCell.Offset(0, 1).Select
Celda1 = ActiveCell.Value
Celda2 = ActiveCell.Offset(0, 1).Value
Loop
ActiveCell.Value = Range("D3").Value
ActiveCell.Offset(0, 1).Value = Range("E3").Value
End Sub
Muchísimas gracias
Me ha ayudado bastante, después le agregue otro código y hace exactamente lo que necesitaba.
Gracias de nuevo y saludos
Me ha ayudado bastante, después le agregue otro código y hace exactamente lo que necesitaba.
Gracias de nuevo y saludos
Respuesta de Elsa Matilde
1
La siguiente rutina se coloca en un módulo:
Sub copiando()
'x Elsamatilde
'si la col C está vacía , la variable toma el valor 3, sinó toma el nro de col sgte a la última ocupada
If Range("C13") = "" Then
libre = 3
Else
libre = Range("C13").End(xlToRight).Column + 1
End If
Range("D3:E3").Copy Destination:=Cells(13, libre)
End Sub
Sub copiando()
'x Elsamatilde
'si la col C está vacía , la variable toma el valor 3, sinó toma el nro de col sgte a la última ocupada
If Range("C13") = "" Then
libre = 3
Else
libre = Range("C13").End(xlToRight).Column + 1
End If
Range("D3:E3").Copy Destination:=Cells(13, libre)
End Sub