textbox dolu ise bir alt hücreyi yazdırma

[mersilen]

Merhabalar,
Formdaki textbox boş ise a3 ü yazacak , dolu ise a sütununda eşleştirip bir alt hücreyi yazacak kodu nasıl düzenlemem lazım.Aşağıdaki kod hata veriyor.
ilgilenenlere teşekkürler.

Private Sub CommandButton1_Click()
Dim i As Range
If TextBox1.Text <> "" Then
   For Each i In Range(Cells(3, 1), Cells(Range("A65536").End(xlUp).Row, 1))
       If TextBox1.Text = i.Value Then TextBox1.Text = Cells(i.Row + 1, 1).Value      
   Next
ElseIf TextBox1.Text = "" Then TextBox1.Text = Cells(3, 1).Value   
End If
End Sub

 

[Huseyinkis]

Ekteki gibi denermisiniz.

Private Sub CommandButton1_Click()
    Dim i As Range


    If TextBox1.Text <> "" Then
    For Each i In Range(Cells(3, 1), Cells(Range("A65536").End(xlUp).Row, 1))
    If TextBox1.Text = i.Value Then
    TextBox1.Text = Cells(i.Row + 1, 1).Value
    Exit Sub
    end if
    Next
    If TextBox1.Text = "" Then TextBox1.Text = Cells(3, 1).Value
    End If


End Sub

 

[mersilen]

Hüseyin bey cevap için teşekkürler, sizin kod olmadı.

Aşağıda ki şekilde sorunu çözdüm.Ama mükerrer kelime olunca sorun oluyor.

Private Sub CommandButton1_Click()
Dim i As Range
If TextBox1.Text <> "" Then
Set Bul = Range("A:A").Find(TextBox1, , , xlWhole)
TextBox1.Text = Cells(Bul.Row + 1, 1).Value   
ElseIf TextBox1.Text = "" Then TextBox1.Text = Cells(3, 1).Value   
End If
End Sub

 

[Huseyinkis]

Yukarıdaki kodları tekrar deneyip nerede hata aldığınızı yazabilirmisiniz.

 

[mersilen]

Hüseyin bey, sizin kodlarıda içeren uygulamayı ekliyorum.
Sizin kodda textbox boş iken çalışmıyor.

 

[Huseyinkis]

Hüseyin bey, sizin kodlarıda içeren uygulamayı ekliyorum.
Sizin kodda textbox boş iken çalışmıyor.

Eğer işlemini sonlandırması eksik kalmış.

Private Sub CommandButton3_Click()
    Dim i As Range
    If TextBox1.Text <> "" Then
    For Each i In Range(Cells(3, 1), Cells(Range("A65536").End(xlUp).Row, 1))
    If TextBox1.Text = i.Value Then
    TextBox1.Text = Cells(i.Row + 1, 1).Value
    Exit Sub
    End If
    Next
    End If
    
    If TextBox1.Text = "" Then
    TextBox1.Text = Cells(3, 1).Value
    End If


End Sub