Transfer data from sheet1 to sheet 2 using VBA

[Jo4x4]

Hi everybody,
I have a very simple workbook with the following: On sheet1, there are four "inputs", three of them lists, and the fourth is a name field.

When the data is captured via a button, I want the data to appear on sheet2 in the next available row. However, it should put it under the correct column, depending on input 3 on sheet 1.

As the html maker is currently unavailable, I cannot ad samples.

Any help would be appreciated.

Thanks
Jo
Win XP, Excel 2010

 

[ogo]

Hi Jo, your query was not very clear, howerver try something like this,

Sub MyMacro()
input1 = Sheet1.Cells(6, 4).Value
input2 = Sheet1.Cells(7, 4).Value
input3 = Sheet1.Cells(8, 4).Value
input4 = Sheet1.Cells(9, 4).Value
Sheet2.Activate
'Assuming that the data input3 is the column index
For i = 1 To 500
    If Sheet2.Cells(i, input3).Value = "" Then
 
        Sheet2.Cells(i, input3).Value = input1
        Sheet2.Cells(i + 1, input3).Value = input2
        Sheet2.Cells(i + 2, input3).Value = input3
        Sheet2.Cells(i + 3, input3).Value = input4
        Exit For
        
    End If
Next
End Sub

Thanks,

Ogo

 

[Jo4x4]

Thanks Ogo,

Sorted now!

Jo