what do I do wrong?
ehmmm... a last question and hopefully I will be done with my sheet...
My sheet contains 2 tables of 4 columns / 17 rows each
The data for these tables SHOULD come from an userform (which I've already
made). When the "ready" button in the userform is pushed the data should go
in the first empty row (this is what I use for this purpose):
Private Sub cmdNext_Click()
ActiveWorkbook.Sheets("Sheet1").Activate
Range("B16").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
Next step is where everything goes wrong:
now the data has to be input in the right place and this is what I do:
ActiveCell.Value = txtCode1.Value
ActiveCell.Offset(0, 1) = txtCode2.Value
ActiveCell.Offset(0, 2) = txtDate.Value
End sub
Apparently this code is not working. All I get is the first line highlighted
and that's it.
Furthermo when the first table is full (4 colums / 17 rows) I need the
data to go to the next table which start at the same hight as the first (say
row 16) but 7 columns to the right....
Sorry for the lenght of this but english is not my language and I don't know
how to keep it short...
Thanks for any help....
|