Jag har ett formulär där jag skriver in nr. Detta nummer skall sedan läggas till i Första lediga cell i kolumnen L.
Detta gör jag med nedanstående kod.
Private Sub box_startnr_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then 'Enter = 13
Range("L1").Select 'ställer sig i L1
Selection.End(xlDown).Select 'hoppar till sista cellen i kolumnen
'skriver in värdet i TextBox1 i första lediga cellen i kolumnen J
ActiveSheet.Cells(ActiveCell.row + 1, 12).value = box_startnr.Text
box_startnr.Text = "" 'tömmer TextBox1
Call x_get_raw_data_and_copy_it_to_edited_data_sheet

Problemet är när jag ska lägga till första posten eftersom jag får ett error då.
Misstänker att jag kan lösa det med en ifsats men frågan är hur man vet om L1 är tom eller inte?

If range("L1") <> "" Then
...
End If

Sen är det några grejer med koden som jag skulle ändra, men ändå... =)

Tack Niklas.
Vad är det för grejor du skule vilja ändra?

Först och främst skippa alla onödiga select:

Private Sub box_startnr_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then 'Enter = 13
Range("L1").End(xlDown).offset(1, 0) = box_startnr.Text
box_startnr.Text = "" 'tömmer TextBox1
Call x_get_raw_data_and_copy_it_to_edited_data_sheet

Sen ser du nog vad jag tycker om olika sätt att skriva kod i http://www.pellesoft.se/communicate/forum/view.aspx?msgid=231932&forumid=128&sum=0