Döngü Hatası

[aycnc]

Gönderdiğim tablo'yu vb derslerini konu alan yazıdan birebir alarak yaptım ama avanslar kısmında sanırım döngüsel bi hata var düzeltmesini yapabilecek ve hatanın ne olduğunu açıklayabilecek bi arkadaş mevcutmudur???

 

[aycnc]

Yok

Cevap yoko sanırım...

 

[aycnc]

Son

Arkadaşlar şu sorunumu çözecek kimse yok mu bu son çağrı.

 

[Orion1]

Private Sub CommandButton1_Click()

If TextBox1 = "" Then MsgBox "Lütfen Personel Numarasını Giriniz": TextBox1.SetFocus:
Dim yer, i As Long, mesaj As Integer
yer = 2
While Sheets(1).Cells(yer, 1) <> ""
yer = yer + 1
Wend
yer = yer - 1
For i = 2 To yer
If TextBox1.Text = Sheets(1).Cells(i, 1) Then
mesaj = MsgBox("Maaş ve Avans Bilgilerini Güncellemek İstiyormusunuz?", 4 + 32, "Uyarı")
If mesaj = 6 Then
Sheets(1).Cells(i, 15) = TextBox4
Sheets(1).Cells(i, 16) = TextBox5
Sheets(1).Cells(i, 17) = TextBox6
Sheets(1).Cells(i, 18) = TextBox7
Sheets(1).Cells(i, 19) = TextBox8
ThisWorkbook.Save
TextBox1 = "": TextBox2 = "": TextBox3 = "": TextBox4 = "": TextBox5 = "":
TextBox6 = "": TextBox7 = "": TextBox8 = ""
Else
Cancel = True
End If
End If
Next i
End Sub

 

[aycnc]

Teşekkür

Teşekkür ederim Evren bey

 

[Orion1]

Teşekkür ederim Evren bey

Rice ederim .
İyi çalışmalar.