Do While Loop Döngüsü

[ahmedummu]

Günaydın arkadaşlar.

Do While Loop döngüsü ile Textbox1 deki değer enson dolu satırdaki değer ile aynı ise bir alt satıra, aynı değil ise 2 alt satıra gitmek istiyorum. Aşağıdaki kod ile denedim ama değerler aynı olmasa bile 1 alt satıra gidiyor. Yardımcı olursanız sevinirim.

brd.Select
Range("b6").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell.Offset(-1, 0).Value = UserForm3.TextBox1.Value Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(2, 0).Select
End If
Loop

 

[Necdet]

Merhaba,

Aşağıdaki gibi bir döngü kurun.

    Dim SonSat  As Long
    
    SonSat = Cells(Rows.Count, "B").End(3).Row
    
    If SonSat < 6 Then SonSat = 6
    
    If Range("B" & SonSat) = UserForm3_TextBox1.Value Then
        Range("B" & SonSat).Offse(1, 0).Select
    Else
        Range("B" & SonSat).Offset(2, 0).Select
    End If

 

[ahmedummu]

Örnek resim

 

[ahmedummu]

Merhaba,

Aşağıdaki gibi bir döngü kurun.

    Dim SonSat  As Long
  
    SonSat = Cells(Rows.Count, "B").End(3).Row
  
    If SonSat < 6 Then SonSat = 6
  
    If Range("B" & SonSat) = UserForm3_TextBox1.Value Then
        Range("B" & SonSat).Offse(1, 0).Select
    Else
        Range("B" & SonSat).Offset(2, 0).Select
    End If

Merhaba Necdet bey.

aşağıdaki kod satırında
If Range("B" & SonSat) = UserForm3_TextBox1.Value Then
424 hatası verdi.

 

[ahmedummu]

Bir kişiye ait birkaç satır veri girilebiliyor. Örneğin bir kişiye ait 3 satır veri girmişsek, İkinci bir klişiye veri girildiğinde önceki girilen kiinin verilerini bir alt satıra toplama yapacak ve ikinci kişiyi bir alt satırdan devam edecek.

 

[ahmedummu]

Önceki hata düzeldi. Userform3_Textbox1 alt çizginin yerine . nokta koyunca düzekdi.

Şimdi de aşağıdaki satırda hata veriyor

Range("B" & SonSat).Offse(1, 0).Select

Ve sayfada ilk 2 satırı boş veriyor.

 

[ahmedummu]

Aşağıdaki kod ilk iki satırı örnek resimdeki gibi boş bırakıyor. Yardım edebilir misiniz.

Dim SonSat As Long
SonSat = Cells(Rows.Count, "B").End(3).Row
If SonSat < 6 Then SonSat = 6
If Range("B" & SonSat) = UserForm3.TextBox1.Value Then
Range("B" & SonSat).Offset(1, 0).Select
Else
Range("B" & SonSat).Offset(2, 0).Select
End If

 

[Ömer]

Merhaba,

Örnek excel dosyası ekleyerek açıklar mısınız.