Como registrar datos en otra hoja de excel con macros
Quisiera saber como puedo hacer una macro que registre datos de una hoja en otra hoja. Y que cada registro se valla poniendo uno debajo del otro.
Hice un prototipo con botones. Por favor ayudenme.
3 respuestas
Respuesta de Dante Amor
2
Te anexo la macro
Sub Registrar_Datos()
'
' Por.Dante Amor
'
Set h1 = Sheets("FICHA")
Set h2 = Sheets("TABLA")
'
If h1.Range("C7") = "" Then
MsgBox "Poner el RUC"
Exit Sub
End If
u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1
If u < 5 Then u = 5
h2.Cells(u, "B") = h1.Cells(7, "C")
h2.Cells(u, "C") = h1.Cells(8, "C")
h2.Cells(u, "D") = h1.Cells(9, "C")
h2.Cells(u, "E") = h1.Cells(10, "C")
h2.Cells(u, "F") = h1.Cells(11, "C")
h2.Cells(u, "G") = h1.Cells(12, "C")
h2.Cells(u, "H") = h1.Cells(7, "E")
h2.Cells(u, "I") = h1.Cells(8, "E")
h2.Cells(u, "J") = h1.Cells(9, "E")
h2.Cells(u, "K") = h1.Cells(10, "E")
h2.Cells(u, "L") = h1.Cells(11, "E")
h2.Cells(u, "M") = h1.Cells(12, "E")
h2.Cells(u, "N") = h1.Cells(13, "C")
MsgBox "Datos registrados"
Range("C7:C13, E7:E12").ClearContents
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
Respuesta de James Bond
2
Prueba esta macro
Sub registrar_datos()
Set h1 = Worksheets("ficha").Range("b6").CurrentRegion
Set h2 = Worksheets("tabla").Range("b4").CurrentRegion
With h1
Set h1 = .Rows(2).Resize(.Rows.Count - 1, .Columns.Count)
End With
With h2
filas = .Rows.Count: h1.Columns(2).Copy
Set h2 = .Rows(filas + 1).Resize(1, h1.Rows.Count)
h2.Value = WorksheetFunction.Transpose(h1.Columns(2).Value)
Set h2 = .Columns(.Columns.Count + 1).Resize(1, h1.Rows.Count)
h2.Value = WorksheetFunction.Transpose(h1.Columns(4).Value)
End With
msgbox("REGISTRO COMPLETO"),VBINFORMATION,"AVISO"
End Sub
Respuesta de Programar Excel
1
Te paso unos ejemplos que quizás te aporte algo más a las excelentes respuestas
https://youtube/gqZzSfikEYY