Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 3 van 3

Onderwerp: zoeken lege cel in kolom A

  1. #1
    Member
    Verenigingslid

    Geregistreerd
    27 februari 2016
    Vraag is opgelost

    zoeken lege cel in kolom A

    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

    BEGROTING helpmij.xlsb

  2. #2
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    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
    ____________
    mvg,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  3. #3
    Member
    Verenigingslid

    Geregistreerd
    27 februari 2016
    Goedemorgen Harry,

    Werkt perfect, bedankt.
    Groet,
    Albert

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren
Aanbiedingen