Textbox boş ise geç kodu nasıl yazılır

[tufan03]

Arkadaşlar kodları yazıyorum fakat birtürlü çalıştıramadım. İstediğim;Aşağıdaki açıklama ili ilgili kodları nasıl yazabiliriz.

Textbox1 dolu ise buradaki veriyi D12 hücresine yapıştır.
Boş ise Textbox2 ye geç

Textbox2 dolu ise veriyi D13 hücresine yapıştır.
Textbox2 boş ise Textbox3 e geç

Textbox3 dolu ise veriyi D14 hücresine yapıştır.
Textbox3 boş ise Textbox4 e geç

Textbox4 dolu ise veriyi D15 hücresine yapıştır.
Textbox4 boş ise Textbox5 e geç

Textbox5 dolu ise veriyi D16 hücresine yapıştır.
Textbox5 boş ise Textbox6 e geç

 

[Orion1]

Bir buton oluşturup butona aşağıdaki kodları yazınız.

Dim i As Byte
For i = 1 To 6
    If Controls("TextBox" & i).Value <> "" Then
        Range("D" & i + 11).Value = Controls("TextBox" & i).Value
    End If
Next i

 

[tufan03]

Orion2 Teşekkür ederim.

 

[Orion1]

Orion2 Teşekkür ederim.

Rica ederim.