Macro - VBA

[Yazan]

How do i change this macro, so it would go through the whole sheet1 instead of the first set of data. The data on sheet1 has data of 80 different accounts, every set of data includes the account number, balance, and activity. I would like my macro to go through sheet1 locate "account number:" in column A then copy the account number which is located in column C and copy the balance thats located in column H and past them in sheet 2 starting with row2.

Sub Demo()
Dim LstRw As Long, ThisRw As Long
LstRw = Cells(Rows.Count, "A").End(xlUp).Row

For ThisRw = 1 To LstRw
If Cells(ThisRw, "A").Value = "Bank Account Number" Then
Sheets("Sheet2").Cells(ThisRw, "A").Value = Cells(ThisRw, "C").Value
Sheets("Sheet2").Cells(ThisRw, "B").Value = Cells(ThisRw, "H").Value
End If
Next ThisRw

End Sub

[colofnature]

Can the account number occur more than once in column A? If so:

Please Login or Register  to view this content.

If it can only occur once, put "exit for" after the second .copy command.


HTH
Col

[Yazan]

thats not what im looking for.

In the file attached you will notice all the data in sheet1 containing account number, account balance, and activity. i need the macro to go through all that data and copy the date, account number, and account balance then paste it in sheet2. placing the date in column A, account number in column B, and amount in column C. listing all of the accounts.

[colofnature]

Fairy nuff.

This ought to do the trick then:

Please Login or Register  to view this content.

C

[Yazan]

This is not pulling the correct data, the attached example has the data pulled after running the macro and the data i would like it to pull on sheet2. Help

Fairy nuff.

This ought to do the trick then:

Please Login or Register  to view this content.

C

[colofnature]

Please Login or Register  to view this content.