Hi guys,
Getting stumped at the last hurdle here. I want to copy three textbox values (RegisterID, ContactDate, BillingCode) into the next available blank row on a worksheet.
I have worked out getting to, and selecting the first empty cell in col A on the row (example cell A9). Icannot work out how to paste RegisterID into A9, ContactDate into B9 and BillingCode into C9!
Can someone help? Code so far:
Sheets("Billing").Select
Dim NextFree As Long
With Sheets("Billing")
NextFree = Sheets("Billing").Range("A" & Rows.Count).End(xlUp).Row
Range("A" & NextFree).Select '[A9] for example - works to here
'A9 needs to be Userform's CboPatient.Value
'B9 needs to be Userform's ContactDate.Value
'C9 needs to be Userform's PNCD.Value
End With
Thanks in anticipation!
Pete
Bookmarks