listbox a kod yazma

[efkanaka]

arkadaşlar..

bir listbox yapmak istedim.. sayfa2 de A1:A18 satırlarının liste halinde görünmesini istiyorum.. ve bu listenin aynından listbox2, listbox3, listbox4 ve listbox5 te göstermek istiyorum.. userform ile ise Sayfa1 üzerinde çalışıyorum ve bu listbox'lardan seçtiklerimi Sayfa1 üzerine kaydediyorum..
yapmak istediğim ise şu: listbox'lardan mesela 1. sinde seçtiğim şeyi (bu mesela ekmek olsun ve sıra ile makarna, çay vs.. gibi) 2. listbox'da seçtiğimde hata uyarısı gelsin istiyorum.. bir yazdığım şeyi mükerrer yazmamak için..

yardımlarınızı bekliyorum..
şimdiden tşk..

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[efkanaka]

dosya boyutu çok büyük oldugu için ekleyemedim.. ama zaten listbox'lar1 kodlayabilmis degilim.. önce listbox lar1n nas1l kodland1g1n1 ögrenmeliyim ki sonra digerlerini yapabileyim..

Private Sub CommandButton1_Click()
Dim DoluSay As Integer
DoluSay = WorksheetFunction.CountA([B8:B1500]) + 8
If TextBox1 = "" Then
MsgBox "ÞUBE KODU BOÞ OLMAZ"
Else
If TextBox6 = "" Then
MsgBox "İLGİLİ BİRİM BOÞ OLAMAZ"
Exit Sub
End If
Cells(DoluSay, "B").Value = [DoluSay] - 7
Cells(DoluSay, "D").Value = TextBox1.Value
Cells(DoluSay, "E").Value = TextBox2.Value
Cells(DoluSay, "F").Value = TextBox3.Value
Cells(DoluSay, "G").Value = TextBox4.Value
Cells(DoluSay, "H").Value = TextBox5.Value
Cells(DoluSay, "I").Value = TextBox6.Value
Cells(DoluSay, "J").Value = TextBox7.Value
Cells(DoluSay, "K").Value = TextBox8.Value
Cells(DoluSay, "L").Value = TextBox9.Value
Cells(DoluSay, "M").Value = TextBox10.Value
Cells(DoluSay, "N").Value = TextBox11.Value
Cells(DoluSay, "O").Value = TextBox12.Value
End If
End Sub

böyle bisey var..
daha önce listbox yerine textbox a yaz1yordum.. ama yazd11m seyler her zaman sabit oldugu için bunu listbox haline getireyim dedim..
tekrar t_k..

 

[Levent Menteşoğlu]

Ã?ncelikle listboxa verileri atamakla ilgili aşağıdaki kodu deneyerek başlayın. bu kod userforma yazılacaktır. Eğer listboxa aktaracağınız veriler tek sütundan ibaretse bunun için combobox kullanmanızı öneririm. Bu durumda aşağıdaki kodda listbox1 yerine combobox1 yazmanız yeterlidir. Aşağıdaki kod listbox1 e sayfa2 nin A1:A18 aralığındaki verileri yükler.

[vb:1:28af7cad17]Private Sub UserForm_Initialize()
ListBox1.RowSource = "sayfa2!a1:a18"
End Sub
[/vb:1:28af7cad17]

 

[efkanaka]

tsk ederim.. combobox tamamd1r..

şimdi 4 tane combobox daha yapmalıyım ve hiçbirinde diğer seçtiğim şey olmamalı.. aynından seçersem hata uyarısı vermeli ve boş seçtiğim zaman ise (birden fazla combobox da boş seçersem) hata vermemeli..

ya da şöyle diim.. A1 hücresi boş ve diğerleri dolu.. diğerlerinden farklı comboboxlarda aynı şeyi (örn.. ekmek) seçtiğimde hata mesajı versin mükerrer yazdın diye.. ama boş hücreyi (A1 hücresi) birden fazla combobox da seçebileyim..

tekrar yardımlarıız için tşk..

 

[Levent Menteşoğlu]

Basit olarak aşağıdaki gibi yapabilirsiniz.

Dört comboboxada aynı verileri yüklemek için

[vb:1:e1d4990878]Private Sub UserForm_Initialize()
For a = 1 To 4
Controls("ComboBox" & a).RowSource = "sayfa1!a1:a18"
Next
End Sub[/vb:1:e1d4990878]

combobox2,3 ve 4 e aşağıdaki kodları yazın.

[vb:1:e1d4990878]
Private Sub ComboBox2_Click()
If ComboBox2 = ComboBox1 Then
MsgBox ("AYNI DEÐER SEÇİLEMEZ")
ComboBox2.Value = ""
End If
End Sub

Private Sub ComboBox3_Click()
If ComboBox3 = ComboBox2 Or ComboBox3 = ComboBox1 Then
MsgBox ("AYNI DEÐER SEÇİLEMEZ")
ComboBox3.Value = ""
End If
End Sub

Private Sub ComboBox4_Click()
If ComboBox4 = ComboBox3 Or ComboBox4 = ComboBox2 Or ComboBox4 = ComboBox1 Then
MsgBox ("AYNI DEÐER SEÇİLEMEZ")
ComboBox4.Value = ""
End If
End Sub[/vb:1:e1d4990878]

 

[efkanaka]

yapamad1m ya.. biliyorum çok oluyorum ama.. nedense combobox listesi benim veri alan1m1 göstermiyor.. Userform Sayfa1 de iken aç1l1yo.. ama veri almak istedigim sayfa2 A1:A18

ve yazm1s oldugunuz
Private Sub UserForm_Initialize()
For a = 1 To 4
Controls("ComboBox" & a).RowSource = "sayfa1!a1:a18"
Next
End Sub
kodu tam olarak nereye yazmam gerekiyor?
tsk..

 

[metinozlu]

Controls("ComboBox" & a).RowSource = "sayfa1!a1:a18"
bu kodu
Controls("ComboBox" & a).RowSource = "sayfa2!a1:a18"
şeklinde değiştirin

 

[efkanaka]

onu da denedim ama olmad1..

yine de tsk..