Necesito una macro que copie de una hoja, la fila activa y unas celdas más a otra hoja de calculo.
Me encuentro en la hoja "PLAZAS" y requiero copiar la fila activa en la que me encuentro a la hoja "INF TOTAL", pero deseo que se pegue la fila a partir de la columna "G", y además deseo copiar de la misma hoja "PLAZAS", las celdas "B2, C2, B3, C3, C4, Y C5" hacia la misma hoja "INF TOTAL" en la misma fila donde se pegará la fila activa, pero estas celdas a partir de la columna "A" hasta la columna "F"
Respuesta de Adriel Ortiz Mangia
1
Te paso la macro
Sub Copiar()
'//Por Adriel Ortiz
Set h1 = Sheets("PLAZAS")
Set h2 = Sheets("INF TOTAL")
'
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
h2.Cells(u2, "A") = h1.[B2]
h2.Cells(u2, "B") = h1.[C2]
h2.Cells(u2, "C") = h1.[B3]
h2.Cells(u2, "D") = h1.[C3]
h2.Cells(u2, "E") = h1.[C4]
h2.Cells(u2, "F") = h1.[C5]
'
u = ActiveCell.Row
h2.Cells(u2, "G") = h1.Cells(u, "A")
h2.Cells(u2, "H") = h1.Cells(u, "B")
h2.Cells(u2, "H") = h1.Cells(u, "C")
h2.Cells(u2, "I") = h1.Cells(u, "D")
h2.Cells(u2, "J") = h1.Cells(u, "E")
h2.Cells(u2, "K") = h1.Cells(u, "F")
h2.Cells(u2, "L") = h1.Cells(u, "G")
h2.Cells(u2, "M") = h1.Cells(u, "H")
h2.Cells(u2, "N") = h1.Cells(u, "I")
h2.Cells(u2, "O") = h1.Cells(u, "J")
h2.Cells(u2, "p") = h1.Cells(u, "K")
MsgBox "fin"
End Subvalora para finalizar saludos!
