Özel Arama
ö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
