Copiar datos de una hoja a otra si el valor es mayor a 0
publicado
Buenos días!
Amigos del foro quisiera solicitarles el apoyo para resolver el siguiente problema, necesito una macro que me permita copiar de una hoja a otra si se cumplen los siguientes criterios:
Si el valor en la columna G de la hoja Diario es mayor que cero, se copien los datos de Diario(hasta la ultima celda con datos) a la hoja BD pegando los datos en la ultima celda vacía de BD.
Al copiar aquellos valores mayores a cero en la hoja BD quitarlos de la hoja Diario, solamente dejando los datos que contengan cero o se encuentren vacios en la columna G de la hoja Diario.
Lo estuve intentando de la siguiente manera:
Sub copiar2()
Set J1 = Sheets("Diario")
Set J2 = Sheets("BD")
j = J2.Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 3 To 79
If J1.Cells(i, "G") > 0 Then
J2.Cells(i, "A") = J1.Cells(i, "A")
J2.Cells(i, "B") = J1.Cells(i, "B")
J2.Cells(i, "C") = J1.Cells(i, "C")
J2.Cells(i, "D") = J1.Cells(i, "D")
J2.Cells(i, "E") = J1.Cells(i, "E")
J2.Cells(i, "F") = J1.Cells(i, "F")
J2.Cells(i, "G") = J1.Cells(i, "G")
J2.Cells(i, "H") = J1.Cells(i, "H")
J2.Cells(i, "I") = J1.Cells(i, "I")
J2.Cells(i, "J") = J1.Cells(i, "J")
J2.Cells(i, "K") = J1.Cells(i, "K")
J2.Cells(i, "L") = J1.Cells(i, "L")
J2.Cells(i, "M") = J1.Cells(i, "M")
J2.Cells(i, "N") = J1.Cells(i, "N")
End If
Next
MsgBox "Valores copiados"
End Sub
Buenos días!
Amigos del foro quisiera solicitarles el apoyo para resolver el siguiente problema, necesito una macro que me permita copiar de una hoja a otra si se cumplen los siguientes criterios:
Lo estuve intentando de la siguiente manera:
Sub copiar2() Set J1 = Sheets("Diario") Set J2 = Sheets("BD") j = J2.Range("A" & Rows.Count).End(xlUp).Row + 1 For i = 3 To 79 If J1.Cells(i, "G") > 0 Then J2.Cells(i, "A") = J1.Cells(i, "A") J2.Cells(i, "B") = J1.Cells(i, "B") J2.Cells(i, "C") = J1.Cells(i, "C") J2.Cells(i, "D") = J1.Cells(i, "D") J2.Cells(i, "E") = J1.Cells(i, "E") J2.Cells(i, "F") = J1.Cells(i, "F") J2.Cells(i, "G") = J1.Cells(i, "G") J2.Cells(i, "H") = J1.Cells(i, "H") J2.Cells(i, "I") = J1.Cells(i, "I") J2.Cells(i, "J") = J1.Cells(i, "J") J2.Cells(i, "K") = J1.Cells(i, "K") J2.Cells(i, "L") = J1.Cells(i, "L") J2.Cells(i, "M") = J1.Cells(i, "M") J2.Cells(i, "N") = J1.Cells(i, "N") End If Next MsgBox "Valores copiados" End Sub
Saludos
JB
Consulta copiado.xlsm