REALLY NEED HELP

[DiskDoctor]

Hi guys, i'm hoping someone could lend me a hand. I'm setting up an excel
file to input our fees received from our customers sent to collections. I
have a main page with all the customers names, and each name is a hyper link
to that customers separate worksheet - where a running tab is kept. I have
a button called "update" and i've assigned the following macro (also called
UPDATE) move the info over to the respective customers worksheet. I'm
trying to get a loop going. A# is the customers name (first name will be
starting at A4. B# to F# (first transaction/gst/dr/cr is on B4 to F4) is
the transaction, gst amt, dr amt, and cr amt. I want to push the update
button and get them all updated after putting in all the entries. can
someone please make this a loop for me. i've put comments to explain what is
going on.... please help!


Sub UPDATE()
'
' UPDATE Macro
' Macro recorded 5/18/2005 by user
'

'On the sheet called "COLLECTIONS INDEX" B# TO F# is
date/transaction/gst/dr/cr
Range("B4:F4").Select
Selection.Cut

'On the sheet called "COLLECTIONS INDEX" A# is the customer's
name/hyperlink to his page
Range("A4").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

'Need to goto the next empty row in the B column and paste (B# to F#)
Range("B9").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveSheet.Paste



'A1 is a hyperlink to the main COLLECTIONS INDEX page
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

End Sub

[Bart Snel]

Maybe I'm missing something but wouldn't it be easier to create a
database-query in the individual customers sheets that get the data from the
main sheet? Your macro will only have to update the sheets...

Bart Snel

"DiskDoctor" <[email protected]> schreef in bericht
news:[email protected]...
> Hi guys, i'm hoping someone could lend me a hand. I'm setting up an excel
> file to input our fees received from our customers sent to collections. I
> have a main page with all the customers names, and each name is a hyper
> link to that customers separate worksheet - where a running tab is kept.
> I have a button called "update" and i've assigned the following macro
> (also called UPDATE) move the info over to the respective customers
> worksheet. I'm trying to get a loop going. A# is the customers name
> (first name will be starting at A4. B# to F# (first transaction/gst/dr/cr
> is on B4 to F4) is the transaction, gst amt, dr amt, and cr amt. I want
> to push the update button and get them all updated after putting in all
> the entries. can someone please make this a loop for me. i've put
> comments to explain what is going on.... please help!
>
>
> Sub UPDATE()
> '
> ' UPDATE Macro
> ' Macro recorded 5/18/2005 by user
> '
>
> 'On the sheet called "COLLECTIONS INDEX" B# TO F# is
> date/transaction/gst/dr/cr
> Range("B4:F4").Select
> Selection.Cut
>
> 'On the sheet called "COLLECTIONS INDEX" A# is the customer's
> name/hyperlink to his page
> Range("A4").Select
> Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
>
> 'Need to goto the next empty row in the B column and paste (B# to F#)
> Range("B9").Select
> Selection.End(xlDown).Select
> Selection.Offset(1, 0).Select
> ActiveSheet.Paste
>
>
>
> 'A1 is a hyperlink to the main COLLECTIONS INDEX page
> Range("A1").Select
> Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
>
> End Sub
>