Soru Combobox seçimine göre hata

[sirkülasyon]

Ekli formda combobox1 seçildiğinde Combobox2 ye veri doğrulama ile personel adı geliyor. Combobox2 de seçilen personele ait bilgiler de Framelere Geliyor.
Combobox1 değiştiği zaman "run time error 1004" hatası alıyorum. Rica etsem yardımcı olabilir misiniz?

Bir ikincisi de Dim tanımlaması döngüye bağlanabilir mi?

Teşekkür ederim.

 

[Muzaffer Ali]

Private Sub ComboBox2_Change()

Satırının altına aşağıdaki satırı ekleyin.

If ComboBox2.Value = "" Then Exit Sub

İkinci sorunuzu anlamadım.
Dim tanımlaması elbette döngüde kullanılabilir ama siz tam olarak ne sitiyorsunuz?

 

[sirkülasyon]

Sayın dalgalikur
Dim Sonuc1, Sonuc2,........ gibi giden kısmı uzun uzadıya diye değil de döngüye alarak kısaltmak mümkün müdür diye sordum aslında

 

[Muzaffer Ali]

Dizi değişken tanımlayabilirsiniz.

Dim Sonuc(15) As String
Sonuc(1) = Application.WorksheetFunction.VLookup(Me.ComboBox2.Value, .Range("C2:AA" & .Cells(Rows.Count, "C").End(xlUp).Row), 2, 0)
Sonuc(2) = Gibi devam edebilirsiniz.

 

[sirkülasyon]

Sayın Dalgalıkur
Yardımınızı esirgemediğiniz için size teşekkür ederim.
Sağ ol. Allah sizden razı olsun

 

[Muzaffer Ali]

Allah sizden de razı olsun. Kolay gelsin.

 

[Ziynettin]

"Scripting.Dictionary" metodunu Array boyutunda kullanılarak yapılan çalışma.