Kod hatası

[okankoc25]

Arkadaşlar vereceğim dosya için kaydet istediğimda kod hatası veriyor.Hatayı düzelilirseniz çok sevinirim.Birde şunu sormak istiyorum kişinin ülkesine göre ayrı bir sayfaya kaydetmesini istiyorum bu nasıl yapabilirim?

 

[asi_kral]

Merhaba
Eki inceler misiniz_?
Tüm istekleriniz gerçekleştirildi.
Textbox5'e ülke girişi yaptığınızda o sayfaya kayıt yapar.

 

[okankoc25]

Çok tşk ederim ama sürekli ülke girmdiniz diye uyarı çıkıyor nerede hata anlayamadım(ülke girdiğim halde bu uyarı çıkıyor)

 

[asi_kral]

Merhaba
Userform'daki kodları bununla değiştirip deneyin.

Private Sub CommandButton1_Click()
  If TextBox4.Text <> "" Then

Son_Dolu_Satir = Sheets(TextBox4.Text).Range("A65536").End(xlUp).Row

Bos_Satir = Son_Dolu_Satir + 1

Sheets(TextBox4.Text).Range("A" & Bos_Satir).Value = _
               Application.WorksheetFunction.Max(Sheets(TextBox4.Text).Range("A:A")) + 1
        
Sheets(TextBox4.Text).Range("B" & Bos_Satir).Value = TextBox1.Text

Sheets(TextBox4.Text).Range("C" & Bos_Satir).Value = TextBox2.Text

Sheets(TextBox4.Text).Range("D" & Bos_Satir).Value = TextBox3.Text

Sheets(TextBox4.Text).Range("AK" & Bos_Satir).Value = TextBox4.Text
Sheets(TextBox4.Text).Range("I" & Bos_Satir).Value = TextBox4.Text
Sheets(TextBox4.Text).Range("G" & Bos_Satir).Value = TextBox10.Text
Sheets(TextBox4.Text).Range("AJ" & Bos_Satir).Value = TextBox6.Text
Sheets(TextBox4.Text).Range("F" & Bos_Satir).Value = TextBox7.Text
Sheets(TextBox4.Text).Range("E" & Bos_Satir).Value = TextBox17.Text
Sheets(TextBox4.Text).Range("H" & Bos_Satir).Value = TextBox22.Text
Sheets(TextBox4.Text).Range("J" & Bos_Satir).Value = TextBox8.Text
Sheets(TextBox4.Text).Range("L" & Bos_Satir).Value = TextBox13.Text
Sheets(TextBox4.Text).Range("K" & Bos_Satir).Value = TextBox18.Text
Sheets(TextBox4.Text).Range("M" & Bos_Satir).Value = TextBox23.Text
Sheets(TextBox4.Text).Range("N" & Bos_Satir).Value = TextBox9.Text
Sheets(TextBox4.Text).Range("P" & Bos_Satir).Value = TextBox14.Text
Sheets(TextBox4.Text).Range("O" & Bos_Satir).Value = TextBox19.Text
Sheets(TextBox4.Text).Range("Q" & Bos_Satir).Value = TextBox24.Text
Sheets(TextBox4.Text).Range("R" & Bos_Satir).Value = TextBox10.Text
Sheets(TextBox4.Text).Range("T" & Bos_Satir).Value = TextBox15.Text
Sheets(TextBox4.Text).Range("S" & Bos_Satir).Value = TextBox20.Text
Sheets(TextBox4.Text).Range("U" & Bos_Satir).Value = TextBox25.Text
Sheets(TextBox4.Text).Range("V" & Bos_Satir).Value = TextBox11.Text
Sheets(TextBox4.Text).Range("X" & Bos_Satir).Value = TextBox16.Text
Sheets(TextBox4.Text).Range("W" & Bos_Satir).Value = TextBox21.Text
Sheets(TextBox4.Text).Range("Y" & Bos_Satir).Value = TextBox26.Text
Sheets(TextBox4.Text).Range("Z" & Bos_Satir).Value = TextBox31.Text
Sheets(TextBox4.Text).Range("AB" & Bos_Satir).Value = TextBox33.Text
Sheets(TextBox4.Text).Range("AA" & Bos_Satir).Value = TextBox35.Text
Sheets(TextBox4.Text).Range("AC" & Bos_Satir).Value = TextBox37.Text
Sheets(TextBox4.Text).Range("AD" & Bos_Satir).Value = TextBox32.Text
Sheets(TextBox4.Text).Range("AF" & Bos_Satir).Value = TextBox34.Text
Sheets(TextBox4.Text).Range("AE" & Bos_Satir).Value = TextBox36.Text
Sheets(TextBox4.Text).Range("AG" & Bos_Satir).Value = TextBox38.Text
Sheets(TextBox4.Text).Range("AL" & Bos_Satir).Value = TextBox29.Text
Sheets(TextBox4.Text).Range("AI" & Bos_Satir).Value = TextBox28.Text
Sheets(TextBox4.Text).Range("AH" & Bos_Satir).Value = TextBox27.Text
MsgBox "KAYDEDİLMİŞTİR"
Else
MsgBox "Ülke Girilmediği İçin Başarısız"
End If
'UserForm_Initialize
End Sub

 

[okankoc25]

Teşekkür ederim eline sağlık....

 

[asi_kral]

Teşekkür ederim eline sağlık....

Kolay Gelsin.