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
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