Como realizar una macro para pegar datos en otra h

Hola, ojala me puedan ayudar con lo siguiente: tengo un libro con tres hojas: "cheques", "vencimientos", "caja". En la hoja "vencimientos" tengo los cheques ordenados por fecha de vencimiento desde la fila 2 a la 60, lo que quiero hacer es que cuando en la celda k2 escriba "cobrado", la macro pase el contenido de las celdas e2 y h2 a la hoja "caja" en la columna b y c respectivamente, pero como también en la hoja caja se ingresan datos manualmente (gastos, retiros efectivo, etc) debería buscar la primer fila vacía. Después deberían acreditarse las fila 3, 4, 5 hasta la 60 de la hoja vencimientos. Siempre que en la columna que de la respectiva fila este la condición de "cobrado"
Desde ya gracias por tu valioso tiempo. Gustavo

1 respuesta

1
Respuesta de
Hola:
Te respondo la primera parte de tu consulta, la 2da no la entendí.
Entrá al Editor (presionando juntas Alt y F11), seleccioná con doble clic el objeto HOJA (vencimientos) del panel a tu izquierda y copiá la siguiente rutina:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$2" And Target.Value = "cobrado" Then
libre = Sheets("caja").Range("B65536").End(xlUp).Row + 1
'pasar datos de las celdas e y h a hoja caja, col B y C
Target.Offset(0, -6).Copy Destination:=Sheets("caja").Cells(libre, 2)
Target.Offset(0, -3).Copy Destination:=Sheets("caja").Cells(libre, 3)
End If
End Sub
Espero que con esto ya puedas terminarla, sino enviame más aclaraciones para la 2da parte.
Sdos
Elsa
http://aplicaexcel.galeon.com/macros.htm
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje