Tür Uyuşmazlığı Hatası Alıyorum ???

[mesuttasar]

Arkadaşlar merhaba , akaryakıt takip cetveli oluşturmaya çalışıyorum, ilk başlarda sorun yoktu ne zaman ki sona geldim dosyadan Tür Uyuşmazlığı hatası almaya başladım.Son eklediğim kodlara baktım herhangi bir hata fark edemedim dolayısıyla sorun şu noktadadır diyemiyorum.Sizden ricam dosyaya göz atabilirmisiniz? Nerede hata yapmış olabilirim acaba?

 

[hamitcan]

ComboBox1.AddItem Sheets("ARACKAYIT").Range("D2:D" & X)

satırını

ComboBox1.RowSource = "ARACKAYIT!D2:D" & X

bu şekilde değiştirin.
Ayrıca aşağıdaki kodu, eskisiyle değiştirin.

Private Sub ComboBox1_Change()
Dim ARn As String
ARn = ComboBox1.Text
Sheets(ARn).Select
End Sub

 

[mesuttasar]

Çok teşekkürler sayın hamitcan , dediklerinizi uygulayınca düzeldi.

 

[Orion1]

Listelemeye alternatif :biggrin: ;
ComboBox1.list = sheets("ARACKAYIT).range("D2" & X).value

 

[mesuttasar]

Sayın Orion1 , list ve rowsource arasında bir fark varmıdır? Hangisi daha kullanışlıdır? Teşekkür ederim bu arada

 

[Orion1]

Sayın Orion1 , list ve rowsource arasında bir fark varmıdır? Hangisi daha kullanışlıdır? Teşekkür ederim bu arada

List ile dizi olarak verilerinizi alabilirsiniz listeye.
Ama row source yönteminde ise çok az farklada olsa dizi yönteminden çok az farkla daha hızlı çalışır.rowsorce'de esas avantaj sütun başlıklarınıda listeleyebilirsiniz.Kolon başlıklarında rowsource yöntemi dışında
kolon başlıklarını listeleyemezsiniz.

 

[mesuttasar]

Yanıtınız için çok teşekkür ederim üstadım.