Değişken Atamak

[casteneda]

Herkese selamlar ve kolay gelsin, aşağıdaki gibi bir çalışma sayfasının üzerinde bulunan Comboların üzerine mouse ile tıklandığında, açılır kutu olmasını sağlayan makroda, 15 adet Combo için değişken kullanılması mümkünmüdür, mümkünse nasıl değişken ve döngü kullanılabilir. Yoksa Onbeş adet Combo içinde ayrı ayrı bu formül yazılmalımıdır.

"Private Sub ComboBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ComboBox.DropDown
End Sub"

 

[N.Ziya Hiçdurmaz]

Örnekteki kod 15 adet comboyu temizler size fikir vermesi açısından.
Private Sub CommandButton1_Click()
For i = 1 To 15
Controls("ComboBox" & i) = Empty
Next
End Sub

 

[casteneda]

Öncelikle ilgilendiğiniz için teşekkürler. Benim sorum aslında tam olarak,
Makronun;
"Private Sub ComboBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)" kısmında Comboları değişken ile nasıl göstereileceğimiz.

 

[Seyit Tiken]

Bence grup halinde açmazı zor gibi. Ben yapamadım.

 

[casteneda]

Yinede ilgilendiğiniz için Teşekkürler Seyit bey. Bence bir çözümü var. Umarım bilen bir arkadaş yayınlar.

 

[Seyit Tiken]

Soru çözümsüz kaldığı zaman, beyin çözüm yada alternatif çözümler arar.
Ekli dosyayı inceleyiniz. Ne derece alternatif olur.

 

[sinancemoglu]

xlDown

Soru çözümsüz kaldığı zaman, beyin çözüm yada alternatif çözümler arar.
Ekli dosyayı inceleyiniz. Ne derece alternatif olur.

bence cok guzel bir yol izlemissiniz.

[a1000].end(3).row yerine [a1].end(xlDown).row kullaninca satir adedi ile ilgili bir kisitlama kalmiyor.

kolay gelsin..