Para DAM Copiar datos de una hoja a otra en columnas especificas
Hola DAM
Siguiendo con nuestro ejemplo. Tengo una hoja llamada "Registro" y otra llamada "AC"
Debo colocar la macro en la hoja llamada "Registro" pero la primera acción que debe realizar esa macro es dirigirse a la hoja "AC" y buscar la primera celda vacia de la columna "B" (De arriba hacia abajo). Una vez localizada esa celda, colocar en esa celda el valor "682760382901" como tipo texto.
Luego de hacer eso, en la siguiente columna es decir en la columna "C" debe colocar lo que esta en la celda "C7" de la hoja "Registro".
En la columna "D" debe colocar lo que esta en la en la celda "C8" de la hoja "Registro"
En la columna "E" debe colocar lo que esta en la celda "C13" de la hoja "Registro"
En la columna "F" debe colocar lo que esta en la celda "C14" de la hoja "Registro"
En la columna "J" debe colocar "1" como tipo texto.
Luego volver a la hoja "Registro"
Espero me halla podido hacer entender.
Gracias
1 Respuesta
Te anexo la macro
Sub CopiarDatos()
'Por.Dante Amor
Set h1 = Sheets("Registro")
Set h2 = Sheets("AC")
u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1
h2.Cells(u, "B") = "'682760382901"
h2.Cells(u, "C") = h1.Range("C7")
h2.Cells(u, "D") = h1.Range("C8")
h2.Cells(u, "E") = h1.Range("C13")
h2.Cells(u, "F") = h1.Range("C14")
h2.Cells(u, "J") = "'1"
MsgBox "Registro copiado"
End SubSaludos.Dante Amor
