Type mismatch hatasını gideremiyorum

[millis]

Sayın arkadaşlar ve üstadlar; VERİLEN ÇEKLER kısmında yazmaya çalıştığım bir yazılımı çalıştırmaya başladığımda verileri TextBox kutularına giriyorum BİLGİLERİ GETİR butonuna tıkladığımda karşıma Type Mismatch hatası çıkıyor. Bir türlü bu sorunu çözemedim. Acilen yardımlarınızı bekliyorum. Hepinize şimdiden teşekkür ve saygılarımı sunuyorum. Dosya ektedir.

 

[Levent Menteşoğlu]

If CLng(ComboBox4.Value) = CLng(Cells(X, "A").Value).......

Yukarıdaki satırdaki clng fonksiyonlarını kaldırın.

 

[Skorpiyon]

Sayın millis,

Kodunuzda hata veren satırda CLng yazan yerleri kaldırın ve deneyin.

Yani;
If ComboBox4.Value = Cells(X, "A").Value And ComboBox5.Value = Cells(X, "B").Value _
And ComboBox5.Value = Cells(X, "B").Value Then 'şeklinde yazın.

Saygılarımla...

 

[Skorpiyon]

Sayın leventm, benden önce davranmış

 

[millis]

Teşekkür

Sayın millis,

Kodunuzda hata veren satırda CLng yazan yerleri kaldırın ve deneyin.

Yani;
If ComboBox4.Value = Cells(X, "A").Value And ComboBox5.Value = Cells(X, "B").Value _
And ComboBox5.Value = Cells(X, "B").Value Then 'şeklinde yazın.

Saygılarımla...

Sayın üstadlar ve arkadaşlar; hepinize çok teşekkür ederim. Basit hata ve gözden kaçıyor. Saygılarımı ve teşekkürlerimi sunuyorum. İyi çalışmalar.