VB Run time error (Type mismatch)

[matrix81]

Merhaba,

Userform dan bir süre sonra hata alıyorum ve nedenini bir türlü anlayamadım.
Dosyayı kapatıp açınca düzeliyor ama tam emin olmamakla birlikte sanki bir zamana dayalı yada fazla eklenti olduğundan hata veriyor.

Ekteki hatanın tam anlamı ve çözümü hakkında yardımlarınızı rica ederim.

 

[cems]

Ekteki hatanın tam anlamı ve çözümü
[/B]

Ekte eklenmiş bir şey yok. Dosyanız ve hata anında çıkan hata kodu veya ekran fotosunu ekleyebilir misiniz ?

 

[matrix81]

Ekte eklenmiş bir şey yok. Dosyanız ve hata anında çıkan hata kodu veya ekran fotosunu ekleyebilir misiniz ?

Upload' a basmayı atlamışım

 

[matrix81]

VB Uzmanları Yardımlarınızı bekliyorum.

 

[matrix81]

Bu hatayı çözmek yerine birbirine bağlantılı 2 combobox userform da nasıl yapılır konusu il/ilçe bağlantılı gibi kısaca anlatılabilir mi?

Bir çok örnek var ama bir türlü aradığımı bulamadım.
İstediğim çok basit diye düşünüyorum.
Userform1 in olduğu sayfa haricinde "Veri3" adlı bir sayfam var ve A Stününa Marka B Stününa Model yazarak datayı oluşturdum. Markalardan alt alta bir çok aynı marka olduğundan buradan aynı olanları almadan listelemesi lazım.



Aşağıda mevcutta yaptığım kod var ancak bu kod düzgün çalışıyor gibi görünsede bazı hatalara neden oluyor.

Private Sub UserForm_Initialize()
Dim AllCells As Range, Cell As Range
Dim ciftolmayan As New Collection
Dim Item
Set AllCells = Range("A2:A98")
On Error Resume Next
For Each Cell In AllCells
ciftolmayan.Add Cell.Value, CStr(Cell.Value)
Next Cell
On Error GoTo 0
For Each Item In ciftolmayan
UserForm1.ComboBox1.AddItem Item
Next Item

 

[hacuc]

Run Time Error '13' Type Mismatch Hatası

Merhaba ben çalışma sayfamda bu hatayı alıyorum, hatanın nedenini biliyorum, fakat bu hata yerine, benim yazacağım bir uyarı notu oluşturabilir miyiz Örnek olarak "Renk Seçiniz" gibi.
Teşekkürler