Automatically transfer data from one sheet to another

Closed
Breanne - May 9, 2016 at 11:06 PM
vcoolio Posts 1362 Registration date Thursday July 24, 2014 Status Moderator Last seen September 29, 2022 - May 11, 2016 at 05:34 AM
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

vcoolio Posts 1362 Registration date Thursday July 24, 2014 Status Moderator Last seen September 29, 2022 252
May 11, 2016 at 05:34 AM
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.
0