Macro para copiar celdas con condiciones
Dirigido a Dante Amor:
Tengo que copiar una celda de la hoja origen en una celda de la hoja destino donde coincidan varias celdas iguales en la hoja origen y la hoja destino..Envío archivo.
Un saludo
1 Respuesta
Respuesta de Dante Amor
1
Te envié el archivo con la macro actualizada:
Sub copiar()
'Por.DAM
Set h1 = Sheets("Diario")
Set hh = Sheets("HOJAS")
u = h1.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
Set b = hh.Columns("A").Find(h1.Cells(i, "K"))
If Not b Is Nothing Then
hoja = hh.Cells(b.Row, "B")
Set h2 = Sheets(hoja)
For j = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "A") = h2.Cells(j, "A") And _
h1.Cells(i, "B") = h2.Cells(j, "D") And _
h1.Cells(i, "I") = h2.Cells(j, "B") And _
h1.Cells(i, "K") = h2.Cells(j, "C") Then
h1.Range("B" & i & ":H" & i).Copy h2.Cells(j, "H")
h1.Cells(i, "L") = h2.Cells(j, "T")
h1.Cells(i, "M") = h2.Cells(j, "S")
End If
Next
End If
Next
MsgBox "Copia termianda", vbInformation, "COPIAR"
End Sub
