Automatically transfer data from one sheet to another

Closed
Report
-
Posts
1326
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
November 28, 2021
-
Hello,
I have never done anything like this and i just watched a video that got me the first two correct columns in the second sheet but i am unable to get the others.
I have 5 rows in sheet 1 that i need to transfer into 5 rows on sheet2 can you help to see what to type in the bottom half!
Thanks


Private Sub CommandButton1_Click()
Dim Nombre As String, Apellido As String, FechadeNacimiento As String, Problemadesaludocambios As Integer, Pagados As String, Total As String
Worksheets("sheet1").Select
Apellido = Range("C2")
Nombre = Range("C3")
FechadeNacimiento = Range("C4")
Problemasdesaludocambios = Range("C5")
Pagado = Range("C7")
Total = Range("C8")
Worksheets("form").Select
Worksheets("form").Range("B4").Select
If Worksheets("form").Range("B4").Offset(1, 0) <> "" Then
Worksheets("form").Range("B4").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Apellido
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Nombre
ActiveCell.Offset().Select
ActiveCell.Value = FechadeNacimiento
ActiveCell.Offset().Select
ActiveCell.Value = Problemasdesalud0cambios
ActiveCell.Offset().Select
ActiveCell.Value = Pagado
ActiveCell.Offset().Select
ActiveCell.Value = Total
Worksheets("sheet1").Select
Worksheets("sheet1").Range("C2:C8").ClearContents


End Sub

1 reply

Posts
1326
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
November 28, 2021
241
Hello Breanne,

Just so that we can obtain a better picture of what you are trying to do, could you please supply a sample of your work book showing inputs and expected outputs (please be careful with any sensitive data).

Upload a sample to a free file sharing site such as DropBox, ge.tt or SpeedyShare then post the link to your file back here.

Thank you.

Cheerio,
vcoolio.