2x hetzelfde wegschrijven middels VBA

[resmatrix]

Goedemorgen,

Ik heb een vraagje waarvan ik niet weet of het kan. Ik heb een VBA module die automaties ingevulde gegevens in de laatste lege regel wegschrijft. (zie bijgevoegde code)
Nu zou ik graag willen dat als X geselecteerd is hij de hele regel er niet 1x in zet maar 2 keer, kan dat?

de code is:
Private Sub CommandButton1_Click()
Dim iRow As Long
iRow = Sheets("administratie").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
With Sheets("administratie")
.Cells(iRow, 1).Value = TextBox12.Value
If optIntroduction = True Then
.Cells(iRow, 8).Value = "X"
ElseIf optIntermediate = True Then
.Cells(iRow, 8).Value = "Y"
ElseIf optAdvanced = True Then
.Cells(iRow, 8).Value = "Z"
End If

.Cells(iRow, 2).Value = TextBox13.Value
.Cells(iRow, 3).Value = TextBox14.Value
.Cells(iRow, 6).Value = TextBox15.Value
.Cells(iRow, 7).Value = TextBox16.Value
End With

vast dank voor de genomen moeite

 

[Wigi]

En wat moet er dan waar nog een tweede keer gezet worden?

 

[resmatrix]

er worden in het formulier een aantal waarden ingevuld in de textboxen. Deze waarden worden op de eerst volgende lege regel op het werkblad geplaatst.
de waarden moeten bij het aanvinken van die optie dus daaroner nog een keer geplaatst worden.

dus textbox 1 tm 5 worden in (als het werkblad nog leeg is) geplaatst in A1, B1, C1, D1, E1.
Als de checkbox met X is aangevinkt moet hij de regel wegschrijven maar diezelfde regel nog een keer in de daarop volgende lege regel plaaten. Oftwel zoals in het voorbeeld zou hij dezelfde data ook in A2, B2, C2, D2, E2 moeten plaatsen.

Indien de checkbox niet is aangevinkt dan echter maar 1x plaatsen

Snap je zo wat ik bedoel?

 

[Wigi]

Met

 .Cells(iRow[B] + 1[/B], 8).Value = "X"

kan je de regel eronder bereiken.

Zet er ook een IF rond en je bent er volgens mij.

 

[resmatrix]

Dank je Wigi,

ik snap dat de +1 de regel erna betreft. Waar ik echter onduidelijkheid heb is hoe ik die IF functie er omheen bouw?

zou je me daar wat meer uitleg over kunnen geven op basis van de geplaatste code?

als dat teveel tijd kost moet je het zeggen hoor...

 

[Wigi]

Echt begrijpen doe ik het niet maar dit is wat ik er van maak:

Private Sub CommandButton1_Click()

    Dim iRow As Long

    iRow = Sheets("administratie").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

    With Sheets("administratie")

        .Cells(iRow, 1).Value = TextBox12.Value

        If optIntroduction = True Then
            .Cells(iRow + i, 8).[B]Resize(2)[/B].Value = "X"
        ElseIf optIntermediate = True Then
            .Cells(iRow + i, 8).Value = "Y"
        ElseIf optAdvanced = True Then
            .Cells(iRow + i, 8).Value = "Z"
        End If

        .Cells(iRow, 2).Value = TextBox13.Value
        .Cells(iRow, 3).Value = TextBox14.Value
        .Cells(iRow, 6).Value = TextBox15.Value
        .Cells(iRow, 7).Value = TextBox16.Value

    End With
End Sub

Zie gedeelte in vet.

Wigi