zoeken lege cel in kolom A

AD1957 · 7 dec 2017

in bijgevoegd bestand zoek ik een mogelijkheid om een aantal rijen leeg te laten en deze pas op een
later tijdstip in te vullen.
onderstaande code geeft echter een probleem:
Bij later invullen van leeggelaten regels springt de cursor naar de laatste lege regel (logisch gezien de code)
is het mogelijk om als ik in cel A22 nog iets wil invullen de cursor dan naar A23 gaat.
en daarna als ik verder ga in cel A29 weer naar A30

Private Sub ListBox1_Click()
With ListBox1
If .ListIndex > -1 Then
TextBox1.Value = .List(.ListIndex, 0)
End If
End With
With ActiveCell
If .Column = 1 Then .Value = Me.TextBox1.Value
End With
Application.Goto Cells(Rows.Count, 1).End(xlUp).Offset(1)
Cancel = True
End Sub

Hoop dat de vraagstelling duidelijk is.

Groet,
Albert

Bekijk bijlage BEGROTING helpmij.xlsb

HSV · 7 dec 2017

Code:

Private Sub ListBox1_Click()
 With ListBox1
     If .ListIndex > -1 Then
          TextBox1.Value = .Column(0)
     End If
 End With
 With ActiveCell
    If .Column = 1 Then
      .Value = TextBox1.Value
     Application.Goto .Offset(-1).End(xlDown).Offset(1)
   end if
  End With
End Sub

AD1957 · 8 dec 2017

Goedemorgen Harry,

Werkt perfect, bedankt.
Groet,
Albert

zoeken lege cel in kolom A

AD1957

Verenigingslid

HSV

Inventaris

AD1957

Verenigingslid

Nieuwste berichten

Wij waarderen jouw privacy