First I would like to apologize for the unclearness of my previous post. Now, I need a code that I can use for locating cells which will be filled with values from a userform. So for example optionbutton1 needs to be written 3 Rows down and 5 columns right from the last cell with a value in column A. Optionbutton2 also 3 Rows down from last in column A but 7 columns right. Optionbutton3 6 Rows down, 10 columns left..
Until now I use:
Private Sub ButtonEingabe_Click()
'Find first empty cell
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
'Lable
If CheckBox2.Value = True Then Cells(last, 7).Value = CheckBox2.Caption
If CheckBox3.Value = True Then Cells(last, 8).Value = Cells(last, 8).Value & " " & CheckBox3.Caption
If OptionButton1.Value = True Then Cells(last, 6).Value = "Nominals"
If OptionButton2.Value = True Then Cells(last, 6).Value = "Verbs"
End Sub
And so forth. This works fine if the entries are always in the same row and for each cell is an entry. But often there are empty cells which can occur in every column. Then entries will be written in wrong rows.So my idea is to use fixed coordinates instead of
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1