zit vast in loop

[eurotax]

"np" "in" "uit" "onv"
A - 1 - 5 -
B - 1 - - B
C - 5 - 3 -
D - - 6 - D
E - 1 - - E
A - - 5 - A
C - 2 - - C

Ik zou in bovenstaande kolomstructuur via VBA de output van de laatste kolom("onv") willen laten genereren. Hij doet dit voor de eerste registratie, dan loopt hij vast in een loop. de bedoeling is als waarde in kolom "in" = leeg of de waarde in kolom "uit" = leeg dat dan de waarde uit kolom "np" wordt gecopieerd naar kolom "onv".
Hij doet dit voor de eerste registratie, dan loopt hij vast in een loop.
Wat doe ik verkeerd?

Private Sub CommandButton1_Click()
            
            ActiveWorkbook.Sheets("sheet1").Activate
            Range("D6", Range("D6").End(xlDown)).Select
            Do
                If ActiveCell.Offset(0, 1) = Empty Then
                ActiveCell.Offset(0, 3) = ActiveCell.Value
                Else
                    If ActiveCell.Offset(0, 2) = Empty Then
                    ActiveCell.Offset(0, 3).Value = ActiveCell.Value
                    Else
                    ActiveCell.Offset(1, 0).Select
                    End If
                End If
            Loop Until ActiveCell.Value = Empty
                         
End Sub

 

[Wigi]

Waarom VBA als een formule ook kan en veel simpeler is?

=ALS(OF(B1="";C1="");A1;"")

 

[eurotax]

Wigi,

dit deeltje is een onderdeel van een grotere bewerking, ik wou dit eerst in een beperkte omgeving testen. de bedoeling is om later uit die kolom "onv" een unieke lijst te trekken die kan dienen als bron voor een combobox.

 

[Wigi]

Zoiets dan

Sub vergelijken()
Dim c As Range
For Each c In Range("D1:D" & Range("A" & Rows.Count).End(xlUp).Row)
    If IsEmpty(c.Offset(, -1)) Or IsEmpty(c.Offset(, -2)) Then c = c.Offset(, -3)
Next
End Sub

Wigi

 

[eurotax]

Bedankt Wigi,

dit was wat ik zocht.
Nu kan ik weer even verder.