Volgende lege cellen invullen na klikken op button

[wally1968]

Elke keer dat je op de button klikt, dan wordt een X in de volgende lege cel in kolom A ingevuld

Hoe kan ik dit doen om, wanneer je op de button klikt, in de 2 volgende lege cellen in kolom A een x wordt ingevuld ?

In dit geval (kolom A = leeg), als ik nu klik komt er een x in cel A1, na een tweede klik komt er een x in cel A2, enz.
Wat ik zou willen is, wanneer ik erop klik dat er dan een x in cellen A1 en A2 komt
en na een tweede klik een x in cellen A3 en A4 komt. Enz.

Ik kom er niet uit, zouden jullie mij hiermee kunnen helpen AUB

 

[SjonR]

probeer dit eens:

Sub Knop1_Klikken()
Cells(Range("A" & Rows.Count).End(xlUp).Row + 1, 1).Resize(2, 1).Value = "X"
End Sub

 

[roeljongman]

probeer het eens met deze code

alleen een .resize toegevoegd aan de coderegel die de x zet

Sub Knop1_Klikken()
For Rij = 1 To 20 Step 1
  For kolom = 1 To 1
    If Cells(Rij, kolom) = "" Then
      Cells(Rij, kolom)[B].Resize(2, 1)[/B].Value = "x"
      Exit Sub
    End If
  Next
Next
End Sub

 

[HSV]

Of:

Sub Knop1_Klikken()
 Cells(Rows.Count, 1).End(xlUp).Offset(Abs(Cells(1) <> "")).Resize(2) = "X"
End Sub

 

[wally1968]

Allemaal bedankt,

Met de oplossing van roeljongman ben ik volledig geholpen

vele groeten Walter