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

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

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

İleti#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

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 :)
Kullanıcı avatarı
ayhan518
Yeni Başlamış
 
Kayıt: 06 Şub 2019 16:15
Meslek: serbest
Yaş: 34
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/ nilüfer

Cevap: combobox rowsource da seçili ifade yerine "X" veya ""

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

Merhaba,
Örnek dosyanızı ekler misiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9956
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: combobox rowsource da seçili ifade yerine "X" veya ""

İleti#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.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ayhan518
Yeni Başlamış
 
Kayıt: 06 Şub 2019 16:15
Meslek: serbest
Yaş: 34
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/ nilüfer

Cevap: Cevap: combobox rowsource da seçili ifade yerine "X"

İleti#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
Kullanıcı avatarı
ayhan518
Yeni Başlamış
 
Kayıt: 06 Şub 2019 16:15
Meslek: serbest
Yaş: 34
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa/ nilüfer

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 1 misafir

Bumerang - Yazarkafe