Automatically transfer data from one sheet to another [Closed]

Report
-
Posts
1292
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
May 7, 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
1292
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
May 7, 2021
230
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.

Subscribe To Our Newsletter!

The Best of CCM in Your Inbox

Subscribe To Our Newsletter!