Kodlar Hata Veriyor

[ZorBey_]

Merhaba İyi Çalışmalar

Aşağıdaki Kodlar
ComboBox2 Den Sayfa Seçiliyor
ComboBox1 e Seçilen Sayfanın
Sutun Başlıkları Geliyor
Kodlar Normal Çalışıyor
Fakat Kendi Dosyama Uyarlamaya Çalıştığımda
Hata Veriyor Aşağıdaki Kodları
Dosyama Uyarlayabilirmisiniz
Bu Konuda
Yardımınızı Rica Ediyorum
Şimdiden Teşekkür Ederim.

Private Sub ComboBox2_Change()
Dim SÜT As Long
i = ComboBox2.Value
Sheets(i).Activate
ComboBox1.Clear
For SÜT = 1 To 16
ComboBox1.AddItem Cells(1, SÜT)
Next
End Sub


Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Sheets.Count
ComboBox2.AddItem Sheets(i).Name
Next

 

[cengizank]

"SÜT" Türkçe karekter kullanmayın

 

[ZorBey_]

Merhaba
cengizank
İyi Çalışmalar
Uyarınız İçin Teşekkür Ederim
Karakteri Değiştirdim
Fakat Yine Hata Veriyor.

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Kodlar Hata Veriyor
Bir Türlü Ayarlıyamadım
Yardımcı Olun Lütfen.

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Hata Veren Dosyayı Ekliyorum
Ben Hatayı Düzeltemedim
İnşallah Hatayı Düzelten
Bir Arkadaş Olur.

 

[halit3]

Merhaba
İyi Çalışmalar
Hata Veren Dosyayı Ekliyorum
Ben Hatayı Düzeltemedim
İnşallah Hatayı Düzelten
Bir Arkadaş Olur.

Dosyanızda bir çok hata mevcut kodları kapyalayıp yapıştırarak kullanıyorsunuz kodlar bazen dosyanıza uyumlu olmaya biliyor ve üzerinde değişiklikler yapmak gerekiyor.

Ben kodlarınızı düzeltmekten çok çözüm yolu sunacağım. ekli dosyada yanlış kodlarınz ve doğru kodlar sayfada mevcut kontrol edin.

not=1- combobox2 nesnesine ait Properties penceresinden RowSource özelliğini silin
2-diğer taraftan nesnelerdeki RowSource ve AddItem özelliklerinden birisi kullanılır ikisi birden kullanıldığı zaman form hata verir

 

[ZorBey_]

Hata Veren Dosya Son

Merhaba
Sayın Halit3
İyi Çalışmalar
Söylediklerinizi Yaptım
Tam İStediğim Gibi Olmuş
Çok Teşekkür Ederim
Allah Razı Olsun.

Yalnız Bir Yerde Hata
Yapıyorum Galiba
Sutun Seçimi Yapıldığında

Örneğin
Sıra No'yu Seçiyorum
TC.Kimlik no Sutunu Geliyor.

TC.Kimlik Noyu Seçtiğimde
Adı Soyadı Sutunu Geliyor

Seçilen Sutundan Bir İlerideki Sutun Geliyor
Bunu Düzeltebilirmiyiz Acaba
Tekrar Teşekkür Ederim
İyi Çalışmalar.

 

[halit3]

Merhaba
Sayın Halit3
İyi Çalışmalar
Söylediklerinizi Yaptım
Tam İStediğim Gibi Olmuş
Çok Teşekkür Ederim
Allah Razı Olsun.

Yalnız Bir Yerde Hata
Yapıyorum Galiba
Sutun Seçimi Yapıldığında

Örneğin
Sıra No'yu Seçiyorum
TC.Kimlik no Sutunu Geliyor.

TC.Kimlik Noyu Seçtiğimde
Adı Soyadı Sutunu Geliyor

Seçilen Sutundan Bir İlerideki Sutun Geliyor
Bunu Düzeltebilirmiyiz Acaba
Tekrar Teşekkür Ederim
İyi Çalışmalar.

Kodun kırmızı bölümünü

Private Sub TextBox16_Change()
[COLOR=red]sat = Val(ComboBox1.ListIndex + 2)[/COLOR]

Bununla değiştirn

[COLOR=red]If ComboBox1.ListIndex > 0 Then
sat = Val(ComboBox1.ListIndex + 1)
Else
sat = 1
End If[/COLOR]

 

[ZorBey_]

Merhaba
Sayın Halit3
Çok Teşekkür Ederim
Dosyam Sayenizde
İstediğim Gibi Oldu
Hakkınızı Helal Edin
Allah Razı OLsun
İyi Çalışmalar.