Copiar celdas entre hojas y regresar valor con resultado
Dirigido a dante amor:
Hola,
Espero me puedas ayudar nuevamente, Tengo que copiar celdas entre hojas de un archivo excel y regresar el resultado a la hoja inicial. Envío archivo para comprender la pregunta.
Gracias anticipadas
1 respuesta
Respuesta de Dante Amor
1
Te envié el archivo con la macro:
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")
End If
Next
End If
Next
MsgBox "Copia termianda", vbInformation, "COPIAR"
End Sub
Listo, te envié el archivo
No olvides valorar la respuesta.
