- Katılım
- 4 Ocak 2006
- Mesajlar
- 12,070
- Excel Vers. ve Dili
-
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Kolay gelsin arkadaşlar. Her ne kadar kendimi çok iyi görmesem de excelde kendimi en zayıf gördüğüm konu maalesef userform uygulamaları. Dosyamda C7:C aralığında bir hücreye tıkladığımda bir userform açılmasını ve bu userform üstünde bulunan listbox'a mahalleler sayfasından mahalle listesinin yüklenmesini sağladım (Gerçi kullandığım kod muhtemelen daha basitleştirilebilir).
Asıl yapmak istediklerim ise :
1 - Listboxta yaptığım seçimler anında textbox1'de görünsün. Eğer birden fazla seçim yapmışsam aralarında virgül ya da tire olsun.
2 - Aktar dediğimde textboxtaki veri seçili olan hücreye aktarılsın (muhtemelen bu zaten kodlar arasında mevcut)
3 - Commandbutton3 yani Seçim iptal düğmesine bastığımda seçilenler temizlensin ama userform açık kalsın.
Yardımcı olursanız çok sevinirim.
Dosya ekte, kullandığım kodlar da aşağıda:
Yardımlarınız için şimdiden teşekkür ederim.
Asıl yapmak istediklerim ise :
1 - Listboxta yaptığım seçimler anında textbox1'de görünsün. Eğer birden fazla seçim yapmışsam aralarında virgül ya da tire olsun.
2 - Aktar dediğimde textboxtaki veri seçili olan hücreye aktarılsın (muhtemelen bu zaten kodlar arasında mevcut)
3 - Commandbutton3 yani Seçim iptal düğmesine bastığımda seçilenler temizlensin ama userform açık kalsın.
Yardımcı olursanız çok sevinirim.
Dosya ekte, kullandığım kodlar da aşağıda:
Kod:
Private Sub UserForm_Initialize()
Dim a As Long
Dim i As Long
ReDim dizial(1 To 56, 1 To 1)
ListBox1.ColumnCount = 1
ListBox1.MultiSelect = fmMultiSelectMulti
For i = 2 To Sheets("Mahalleler").Cells(Rows.Count, "A").End(3).Row
a = a + 1
ReDim Preserve dizial(1 To 56, 1 To a)
dizial(1, a) = Sheets("Mahalleler").Cells(i, "A")
Next i
ListBox1.Column = dizial
Erase dizial
a = Empty
i = Empty
Set SV = Nothing
End Sub
Private Sub CommandButton1_Click()
ActiveCell.Value = TextBox1.Value
Unload Me
End Sub
Private Sub CommandButton3_Click()
'Burada mümkünse listeden seçim yapılmışsa seçimin iptal edilmesini istiyorum (seçilenleri seçme/hiçbir şey seçme yani)
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub
