combobox rowsource da seçili ifade yerine "X" veya "" boşluk

**#1)** **ayhan518** » 28 Kas 2019 23:10

merhaba
öncelikle vba konusunda çok yeni olduğumu belirtmek istiyorum.
yapmış olduğum çalışmada kaydet butonum şu şekilde çalışıyor;

Private Sub CommandButton10_Click()
If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" And TextBox4 <> "" And ComboBox1 <> "" And ComboBox2 <> "" And ComboBox3 <> "" And ComboBox4 <> "" And ComboBox5 <> "" And ComboBox6 <> "" And ComboBox7 <> "" And ComboBox8 <> "" And ComboBox9 <> "" And ComboBox10 <> "" And ComboBox11 <> "" And ComboBox12 <> "" And ComboBox13 <> "" And ComboBox14 <> "" And ComboBox15 <> "" And ComboBox16 <> "" And ComboBox17 <> "" And ComboBox18 <> "" And ComboBox19 <> "" And ComboBox20 <> "" And ComboBox21 <> "" And ComboBox22 <> "" And ComboBox23 <> "" And ComboBox24 <> "" And ComboBox25 <> "" And ComboBox26 <> "" And ComboBox27 <> "" And ComboBox28 <> "" And ComboBox29 <> "" And ComboBox30 <> "" And ComboBox31 <> "" Then

Dim sonsatır As Variant

sonsatır = WorksheetFunction.CountA(Worksheets("Sayfa6").Range("A:A")) + 1

If sonsatır = 5 Then
Worksheets("Sayfa6").Cells(sonsatır, 1) = 1
Worksheets("Sayfa6").Cells(sonsatır, 2) = TextBox2.Value
Worksheets("Sayfa6").Cells(sonsatır, 3) = TextBox1.Value
Worksheets("Sayfa6").Cells(sonsatır, 4) = TextBox3.Value
Worksheets("Sayfa6").Cells(sonsatır, 5) = TextBox4.Value
Worksheets("Sayfa6").Cells(sonsatır, 6) = ComboBox1.Value
Worksheets("Sayfa6").Cells(sonsatır, 7) = ComboBox2.Value
Worksheets("Sayfa6").Cells(sonsatır, 8) = ComboBox3.Value
Worksheets("Sayfa6").Cells(sonsatır, 9) = ComboBox4.Value
Worksheets("Sayfa6").Cells(sonsatır, 10) = ComboBox5.Value
Worksheets("Sayfa6").Cells(sonsatır, 11) = ComboBox6.Value
Worksheets("Sayfa6").Cells(sonsatır, 12) = ComboBox7.Value
Worksheets("Sayfa6").Cells(sonsatır, 13) = ComboBox8.Value
Worksheets("Sayfa6").Cells(sonsatır, 14) = ComboBox9.Value
Worksheets("Sayfa6").Cells(sonsatır, 15) = ComboBox10.Value
Worksheets("Sayfa6").Cells(sonsatır, 16) = ComboBox11.Value
Worksheets("Sayfa6").Cells(sonsatır, 17) = ComboBox12.Value
Worksheets("Sayfa6").Cells(sonsatır, 18) = ComboBox13.Value
Worksheets("Sayfa6").Cells(sonsatır, 19) = ComboBox14.Value
Worksheets("Sayfa6").Cells(sonsatır, 20) = ComboBox15.Value
Worksheets("Sayfa6").Cells(sonsatır, 21) = ComboBox16.Value
Worksheets("Sayfa6").Cells(sonsatır, 22) = ComboBox17.Value
Worksheets("Sayfa6").Cells(sonsatır, 23) = ComboBox18.Value
Worksheets("Sayfa6").Cells(sonsatır, 24) = ComboBox19.Value
Worksheets("Sayfa6").Cells(sonsatır, 25) = ComboBox20.Value
Worksheets("Sayfa6").Cells(sonsatır, 26) = ComboBox21.Value
Worksheets("Sayfa6").Cells(sonsatır, 27) = ComboBox22.Value
Worksheets("Sayfa6").Cells(sonsatır, 28) = ComboBox23.Value
Worksheets("Sayfa6").Cells(sonsatır, 29) = ComboBox24.Value
Worksheets("Sayfa6").Cells(sonsatır, 30) = ComboBox25.Value
Worksheets("Sayfa6").Cells(sonsatır, 31) = ComboBox26.Value
Worksheets("Sayfa6").Cells(sonsatır, 32) = ComboBox27.Value
Worksheets("Sayfa6").Cells(sonsatır, 33) = ComboBox28.Value
Worksheets("Sayfa6").Cells(sonsatır, 34) = ComboBox29.Value
Worksheets("Sayfa6").Cells(sonsatır, 35) = ComboBox30.Value
Worksheets("Sayfa6").Cells(sonsatır, 36) = ComboBox31.Value
Else
Worksheets("Sayfa6").Cells(sonsatır, 1) = Worksheets("Sayfa6").Cells(sonsatır - 1, 1) + 1
Worksheets("Sayfa6").Cells(sonsatır, 2) = TextBox2.Value
Worksheets("Sayfa6").Cells(sonsatır, 3) = TextBox1.Value
Worksheets("Sayfa6").Cells(sonsatır, 4) = TextBox3.Value
Worksheets("Sayfa6").Cells(sonsatır, 5) = TextBox4.Value
Worksheets("Sayfa6").Cells(sonsatır, 6) = ComboBox1.Value
Worksheets("Sayfa6").Cells(sonsatır, 7) = ComboBox2.Value
Worksheets("Sayfa6").Cells(sonsatır, 8) = ComboBox3.Value
Worksheets("Sayfa6").Cells(sonsatır, 9) = ComboBox4.Value
Worksheets("Sayfa6").Cells(sonsatır, 10) = ComboBox5.Value
Worksheets("Sayfa6").Cells(sonsatır, 11) = ComboBox6.Value
Worksheets("Sayfa6").Cells(sonsatır, 12) = ComboBox7.Value
Worksheets("Sayfa6").Cells(sonsatır, 13) = ComboBox8.Value
Worksheets("Sayfa6").Cells(sonsatır, 14) = ComboBox9.Value
Worksheets("Sayfa6").Cells(sonsatır, 15) = ComboBox10.Value
Worksheets("Sayfa6").Cells(sonsatır, 16) = ComboBox11.Value
Worksheets("Sayfa6").Cells(sonsatır, 17) = ComboBox12.Value
Worksheets("Sayfa6").Cells(sonsatır, 18) = ComboBox13.Value
Worksheets("Sayfa6").Cells(sonsatır, 19) = ComboBox14.Value
Worksheets("Sayfa6").Cells(sonsatır, 20) = ComboBox15.Value
Worksheets("Sayfa6").Cells(sonsatır, 21) = ComboBox16.Value
Worksheets("Sayfa6").Cells(sonsatır, 22) = ComboBox17.Value
Worksheets("Sayfa6").Cells(sonsatır, 23) = ComboBox18.Value
Worksheets("Sayfa6").Cells(sonsatır, 24) = ComboBox19.Value
Worksheets("Sayfa6").Cells(sonsatır, 25) = ComboBox20.Value
Worksheets("Sayfa6").Cells(sonsatır, 26) = ComboBox21.Value
Worksheets("Sayfa6").Cells(sonsatır, 27) = ComboBox22.Value
Worksheets("Sayfa6").Cells(sonsatır, 28) = ComboBox23.Value
Worksheets("Sayfa6").Cells(sonsatır, 29) = ComboBox24.Value
Worksheets("Sayfa6").Cells(sonsatır, 30) = ComboBox25.Value
Worksheets("Sayfa6").Cells(sonsatır, 31) = ComboBox26.Value
Worksheets("Sayfa6").Cells(sonsatır, 32) = ComboBox27.Value
Worksheets("Sayfa6").Cells(sonsatır, 33) = ComboBox28.Value
Worksheets("Sayfa6").Cells(sonsatır, 34) = ComboBox29.Value
Worksheets("Sayfa6").Cells(sonsatır, 35) = ComboBox30.Value
Worksheets("Sayfa6").Cells(sonsatır, 36) = ComboBox31.Value

TextBox6 = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
ComboBox4 = ""
ComboBox5 = ""
ComboBox6 = ""
ComboBox7 = ""
ComboBox8 = ""
ComboBox9 = ""
ComboBox10 = ""
ComboBox11 = ""
ComboBox12 = ""
ComboBox13 = ""
ComboBox14 = ""
ComboBox15 = ""
ComboBox16 = ""
ComboBox17 = ""
ComboBox18 = ""
ComboBox19 = ""
ComboBox20 = ""
ComboBox21 = ""
ComboBox22 = ""
ComboBox23 = ""
ComboBox24 = ""
ComboBox25 = ""
ComboBox26 = ""
ComboBox27 = ""
ComboBox28 = ""
ComboBox29 = ""
ComboBox30 = ""
ComboBox31 = ""
ListBox1.Clear
MsgBox "İLGİLİ PERSONELE AİT YAPTIĞINIZ SEÇİMLER BAŞARIYLA KAYDEDİLDİ"
End If

Else
MsgBox "EKSİK BİLGİ GİRDİNİZ!!! SOLDAKİ MENÜDEN PERSONELİ SEÇTİĞİNİZE VE O PERSONELE AİT 31 GÜNLÜK SEÇİM YAPTIĞINIZA EMİN OLUN!"
End If
End Sub

31 gün için oluşturduğum 31 adet combobox ın rowsource kısmı ise sırasıyla; A
D
H
İ
K
O
T
İS
Kİ
KO
2
3
BG

den oluşuyor. yapmak isteyip hakkında bilgim olmayan konu şu combobaxtan herhangi birinde "2" veya "3" ü seçtiğimde bunu Sayfa6 daki ilgili hücreye "X" olarak kaydetmesi ve 31 comboboxa da 2 yada 3 seçmiş olsam dahi Sayfa6 kaydettiğim ilgili satıra yalnızca 20 tanesini "X" olarak yazmasını 20 den fazla olanları boş "" yazmasını istiyorum. BG seçili olduğunda da boş "" olarak kaydetmeyi istiyorum. bunları dışında bir değer seçili ise bunu seçili olduğu haliyle kaydedebilir bunda sorun yok. bu konuda yardımlarınıza ihtiyacım var. çok mutlu olurum . şimdiden teşekkürler

**#2)** **Ali ÖZ** » 02 Arl 2019 16:19

Merhaba,
Örnek dosyanızı ekler misiniz.

**#3)** **ayhan518** » 04 Arl 2019 21:56

merhaba. sorumu şu şekilde güncellemek istiyorum. F5 ile Z5 arasındaki "X" içeren hücreleri sayacak ve o satırda en fazla 20 hücrede "X" olacak diğer hücrelerdeki "X" leri silecek bir koda ihtiyacım var. ve bu kodu 505. satıra kadar uygulamam gerekiyor. örnek çalışma kitabını ekledim. yardımcı olursanız çok sevinirim.

**#4)** **ayhan518** » 04 Arl 2019 22:05

ayhan518 yazdı:merhaba. sorumu şu şekilde güncellemek istiyorum. F5 ile AJ5 arasındaki "X" içeren hücreleri sayacak ve o satırda en fazla 20 hücrede "X" olacak diğer hücrelerdeki "X" leri silecek bir koda ihtiyacım var. ve bu kodu 505. satıra kadar uygulamam gerekiyor. örnek çalışma kitabını ekledim. yardımcı olursanız çok sevinirim.

hücre aralığını yanlış yazmışım "F5" ile "AJ5" aralığı olacak

[Yardım] combobox rowsource da seçili ifade yerine "X" veya "" boşluk