I need some VB code ideas....

[VTTW]

I have have sheet I'm saving info to from a userform textbox, utilizing "XLUP". The sheet has a heading section (rows 1:6) & footing info (rows 10:22).

The desired effect is as follows:

when commandbutton is first "add" is pressed, the values of textbox "qnty" is saved in cell E8. The next time it's pressed, it saves in E9. Also during this process, I need to insert rows to move the footing down. Can anyony give me some help?

Thanks.

[Jack in the UK]

you show no email or i would have emailed my friends Audiojoe form training codes are there, a billion ideas and stuff you can really use, email if you want it

[NateO]

The file Jack's referring to is avalailable for download:

http://www.thewordexpert.com/downloa...erformTraining

(Thanks for making this available DreamBoat!)

It's a zipped file, so you'll need to unzip it before reading.

As I read your post, I became concerned that your footers could prove to be an issue with an overzealous xlup method. So, based on what you were saying, I thought something like the following could do the trick:

Private Sub add_Click()

If Sheets(2).[e8].Value = "" Then

    Sheets(2).[e8].Value = qnty.Value

    End

End If

If Sheets(2).[e9].Value = "" Then

    Sheets(2).[e9].EntireRow.Insert

    Sheets(2).[e9].Value = qnty.Value

Else: Sheets(2).[e8].End(xlDown).Offset(1).EntireRow.Insert

    Sheets(2).[e8].End(xlDown).Offset(1).Value = qnty.Value

End If

End Sub

Where sheets(2) is the index number (physical location) of your sheet.

_________________
Cheers, NateO

[ This Message was edited by: NateO on 2002-05-20 16:04 ]

[Jack in the UK]

Cheers for that NateO