Help with populating data

[zaahideen]

Please see attached excel file


what i want is that on the next sheet, whatever books i have ordered, they should be populated. so maybe a vlookup or something would be the solution? not sure how to go about it..

please help

thanks

[alansidman]

try this VBA solution:

Option Explicit

Sub books()
    Dim sh1 As Worksheet, sh2 As Worksheet
    Set sh1 = Sheets("Sheet1")
    Set sh2 = Sheets("Sheet2")
    Dim lr1 As Long, lr2 As Long, i As Long
    lr1 = sh1.Range("A" & Rows.Count).End(xlUp).Row
    lr2 = sh2.Range("A" & Rows.Count).End(xlUp).Row
    sh2.Range("A1:D" & lr2).ClearContents
    With sh1
        .Range("A1:D1").Copy sh2.Range("A1")
        For i = 2 To lr1
            lr2 = sh2.Range("A" & Rows.Count).End(xlUp).Row
            If .Range("C" & i) <> "" Then
                .Range("A" & i & ":D" & i).Copy sh2.Range("A" & lr2 + 1)
            End If
        Next i
    End With
End Sub

How to install your new code

1. Copy the Excel VBA code
2. Select the workbook in which you want to store the Excel VBA code
3. Press Alt+F11 to open the Visual Basic Editor
4. Choose Insert > Module
5. Edit > Paste the macro into the module that appeared
6. Close the VBEditor
7. Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)

To run the Excel VBA code:

1. Press Alt-F8 to open the macro list
2. Select a macro in the list
3. Click the Run button

[Tony Valko]

This array formula** entered on Sheet2 in cell A2:

=IF(ROWS(Sheet1!A$2:A2)>COUNT(Sheet1!C:C),"",INDEX(Sheet1!A:A,SMALL(IF(ISNUMBER(Sheet1!C$2:C$16),ROW(Sheet1!C$2:C$16)),ROWS(Sheet1!A$2:A2))))

** array formulas need to be entered using the key
combination of CTRL,SHIFT,ENTER (not just ENTER).
Hold down both the CTRL key and the SHIFT key
then hit ENTER.

Copy down until you get blanks.