Lisette2016
Gebruiker
- Lid geworden
- 10 okt 2016
- Berichten
- 46
Hallo ,
Ik heb een bestaande code die rijen met een aantal kolommen (17 stuks) wegschrijft als deze voldoen aan een voorwaarde.
Nu komen de rijen uit een draaitabel met maanden van het jaar. Bij een vol jaar zijn het precies 17 kolommen.
Nu dat ik weer met januari begin zijn het 6 kolommen.
Zou een deel van de code aangepast kunnen worden van "For INGZoekKolomNR = 1 To 17", naar "For INGZoekKolomNR = 1 To (einde van de laatste kolom min 1)" (laatste kolom is eindtotaal, deze hoeft niet).
Do While Worksheets("blad1").Cells(lngZoekRegel, 2) <> vbNullString
If Worksheets("blad1").Cells(lngZoekRegel, 2).Value = strZoekwaarde Then
For lngZoekKolomNr = 1 To 17
alvast bedankt.
Ik heb een bestaande code die rijen met een aantal kolommen (17 stuks) wegschrijft als deze voldoen aan een voorwaarde.
Nu komen de rijen uit een draaitabel met maanden van het jaar. Bij een vol jaar zijn het precies 17 kolommen.
Nu dat ik weer met januari begin zijn het 6 kolommen.
Zou een deel van de code aangepast kunnen worden van "For INGZoekKolomNR = 1 To 17", naar "For INGZoekKolomNR = 1 To (einde van de laatste kolom min 1)" (laatste kolom is eindtotaal, deze hoeft niet).
Do While Worksheets("blad1").Cells(lngZoekRegel, 2) <> vbNullString
If Worksheets("blad1").Cells(lngZoekRegel, 2).Value = strZoekwaarde Then
For lngZoekKolomNr = 1 To 17
alvast bedankt.