[VBA] Lege cel vinden in stappen van vier

[scadome]

[VBA] Lege cel vinden in stappen van vier SOLVED

Hallo,

Ik zit met een klein vraagstuk waar ik zelf niet uit kom. Ik wil met behulp van VBA in excel in een kolom de eerste lege cel zoeken. Het resultaat van de macro moet het rijnummer zijn. Het probleem is dat er niet per één rij moet worden gezocht maar per vier.

Als er in kolom A moet worden gezocht zal er dus in cel A1, A5, A6, A7, etc moeten worden gezocht. In het bijgevoegde bestand heb ik een macro staan met de For functie met stappen van vier. Deze functie krijg ik alleen niet goed werkende.

 

[Wigi]

Sub Macro()
Dim rij As Long 'geen Integer
Dim i As Long

For i = 6 To 100 Step 4
    If IsEmpty(Range("C" & i)) Then
        rij = i
        Exit For
    End If
Next i
MsgBox rij
End Sub

Wigi

 

[Wigi]

Alternatief:

Sub Macro()
Dim rij As Long 'Integer
Dim i As Long
i = 6
Do While Not IsEmpty(Range("C" & i))
    i = i + 4
Loop
rij = i
MsgBox rij
End Sub

Wigi

 

[Wigi]

scadome

ik heb nu pas gezien dat het al opgelost was :evil:

geef dat in het vervolg eens duidelijk aan aub, in een nieuw antwoord op je eigen vraag. En dan moet je ook de vraag op opgelost zetten zodat er geen tijd verloren gaat.

Wigi

 

[Axel Hagg]

Lewge cel vinden

Tijd verloren? Ik denk van niet. Elke oefening baart kunst.

Overigens ben ik het niet eens met de oplossing.

De vraag was in elke kolom op vier specifieke rijen te zoeken naar een lege cel.

Mijn oplossing:


Private Sub ZoekLegeCel()
Dim i As Integer
Dim k As String
Dim r As String

With ActiveWorkbook.Sheets(1)
For i = 1 To Input("AantalKolommen")
k = IIf(i < 27, "", Chr((i - 1) \ 26 + 64)) & Chr((i - 1) Mod 26 + 65)
If IsEmpty(Range(k & 1)) Then
r = 1
ElseIf IsEmpty(Range(k & 5)) Then
r = 5
ElseIf IsEmpty(Range(k & 6)) Then
r = 6
ElseIf IsEmpty(Range(k & 7)) Then
r = 7
End If
If Len(r) Then Exit For
Next
End With
MsgBox IIf(Len(r) = 0, "Er zijn geen lege cellen.", "Rij " & r & " van kolom " & k & " is leeg.")
End Sub