ComboBox Nedir, Nasıl Kullanılır ?

Açılır liste kutusu.

Cevap: Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#41)  Ali ÖZ » 23 Tem 2015 17:03

Kadir bey merhaba,

Sizin istediğiniz işlemleri bu kodlar ile yapabilirsiniz.Ancak sorularınıza cevap bulamadığınızda verdiğiniz tepkiler hoş değil.Sözlerimi yanlış anlamayın lütfen,burada siz de dahil herkes elinden geldiğince en kısa sürede yardımcı olmaya çalışıyor.Birde farklı konuların altına yazdığınızda gözden kaçabiliyor,siz sorularınızı yeni konu açarak sorarsanız daha hızlı cevap alırsınız.

Cevap: ComboBox Nedir, Nasıl Kullanılır ?
#40)  vba_kadir » 23 Tem 2015 13:45
Bu soruları cevaplayabilecek yok anlaşılan.

Cevap: Sayfadaki Comboboxlarla arama süzme ila başlayan içe
#3)  vba_kadir » 23 Tem 2015 14:01
Allahın kulları çok mu yoğunsunuz. Yok mu bir Allahın kulu.

vba_kadir
Siteye Alışmış
Kayıt: 15 May 2015 12:57
Meslek: polis
Yaş: 39
İleti: 182
 
Cinsiyet: Bay
Adınız: kadir
Soyadınız: saldoğan
Bulunduğunuz İl / Semt: aydın





Kod: Tümünü seç
Private Sub Worksheet_Activate()
Combobox1.Clear
For i = 1 To Cells(65536, "a").End(3).Row
If WorksheetFunction.CountIf(Range("a1:a" & i), Range("a" & i)) = 1 Then
ComboBox1.AddItem Cells(i , "a").Value
End If
Next
End Sub


Kod: Tümünü seç
Sub CommandButton1_Click()
For Each evn In Sheets("Sayfa1").OLEObjects
If evn.progID = "Forms.Combobox.1" Then evn.Object.Text = vbNullString
Next
End Sub
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 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9429
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#42)  vba_kadir » 23 Tem 2015 17:14

Ali bey teşekkür ederim.

Ayrıca bu forumu kuran ve devam ettirenlere de çok teşekkür ederim.

Tepkimin hoş olmadığının farkındayım. Kusura bakmayın.

Kimse bana cevep vermek zorunda değil onu da biliyorum.

Ama bu sorular en az bir ay önce yezıldı.

Amacım bir sorun varsa düzeltilmesi. Forumun daha verimli hale gelmesi.
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 14:57
Meslek: polis
Yaş: 42
İleti: 1054
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#43)  vba_kadir » 23 Tem 2015 17:37

Ali bey sayfadaki Comboboxlar için bir formül lazım bana.
Sizinki sanırım userformda olanlar için. ( "Forms.Combobox.1" )
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 14:57
Meslek: polis
Yaş: 42
İleti: 1054
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#44)  Ali ÖZ » 23 Tem 2015 17:46

Cepten yaziyorum,sayfaya combobox ekleyip tam metnini yazin.
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 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9429
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

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

Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#45)  vba_kadir » 23 Tem 2015 17:50

Sayfada Comboboxlar ekli zaten.

Tam metnini yazın derken ?

0xxxxx
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 14:57
Meslek: polis
Yaş: 42
İleti: 1054
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

Cevap: Cevap: Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#46)  Ali ÖZ » 23 Tem 2015 18:50

Bu şekilde kullanın.

Kod: Tümünü seç
Sub CommandButton1_Click()
For Each evn In Sheets("Sayfa1").OLEObjects
If evn.progID = "Forms.ComboBox.1" Then evn.Object.Text = vbNullString
Next
End Sub
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 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9429
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#47)  vba_kadir » 23 Tem 2015 18:59

Tmm bu kod çok farklı.
Güzel espiri. :))
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 14:57
Meslek: polis
Yaş: 42
İleti: 1054
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#48)  Ali ÖZ » 23 Tem 2015 19:26

Oldu peki? Kod işi böyke bir karakter bile tüm sistemin çlışmasını engelliyor.
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 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9429
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#49)  vba_kadir » 24 Tem 2015 10:01

Ali bey telefondan yazdığınıza göre pek müsait değildiniz anlaşılan.

Bu kodlar tamamen aynı ;)
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 14:57
Meslek: polis
Yaş: 42
İleti: 1054
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#50)  Ali ÖZ » 24 Tem 2015 17:00

Tamamen aynı değil dikkatli bakın,
"Forms.ComboBox.1" bu satırda comboboxın 2. B harfi büyük ;;_)

Bir de böyle deneyin.
Kod: Tümünü seç
Sub CommandButton1_Click()
For Each evn In Sheets("Sayfa1").OLEObjects
If evn.progID = "Forms.ComboBox.1" Then evn.Object.ClearContents
Next
End Sub
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 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9429
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#51)  vba_kadir » 24 Tem 2015 17:19

evn.Object.ClearContents
Bu kısmı sarıya boyayıp uyarı verdi.
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 14:57
Meslek: polis
Yaş: 42
İleti: 1054
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#52)  Ali ÖZ » 24 Tem 2015 17:23

Çok pardon,kafa gitmiş iyice :)
Bu şekilde kullanın.

Kod: Tümünü seç
Sub CommandButton1_Click()
For Each evn In Sheets("Sayfa1").OLEObjects
If evn.progID = "Forms.ComboBox.1" Then evn.Object.Clear
Next
End Sub
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 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9429
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#53)  vba_kadir » 24 Tem 2015 17:29

evn.Object.Clear

Şimdide burayı sarıya boyadı.

Acaba ben mi bir yerde yanlış yapıyorum.
Dosyayı ekliyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 14:57
Meslek: polis
Yaş: 42
İleti: 1054
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#54)  vba_kadir » 24 Tem 2015 17:35

Ayrıca bütün comboboxları birden temizlemem lazım.
Çoğaltmalımıyım yoksa tek bir formül varmı.
Allah kolaylık versin Ali bey sizi çok uğraştırdım.
Şahsen de tanışmak isterdim sizinle. Allah razı olsun.

--Bana bir harf ögretenin kırk yıl kölesi olurum--
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 14:57
Meslek: polis
Yaş: 42
İleti: 1054
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#55)  Ali ÖZ » 24 Tem 2015 18:44

İnşaAllah bir gün tanışırız.Dosya açamadığım için bakamıyorum kusura bakmayın.
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 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9429
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#56)  Tarkan VURAL » 26 Tem 2015 01:13

Arkadaşlar, form nesnelerinin ClearContents gibi özelliği yok. Önceki mesajda doğrusu yazılmış.

Yazılı değerleri temizlemek için ;
Kod: Tümünü seç
Evn.object.text = vbnullstring

Kod: Tümünü seç
Evn.object.text=""


Combo içini boşaltmak için;
Kod: Tümünü seç
Evn.object.clear


Hepsini boşaltmamak için;
(ComboBox1 - 2 - 3 boşaltılmaz, diğerleri boşaltılır...)
Kod: Tümünü seç
For Each evn In Sheets("Sayfa1").OLEObjects
If evn.progID = "Forms.ComboBox.1" Then
select case evn.name
case="ComboBox1","ComboBox2","ComboBox3" 
case else
evn.Object.clear
end select
end if
Next
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26765
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#57)  vba_kadir » 26 Tem 2015 23:49

Teşekkür ederim.

Hepsini boşaltmamak için;
(ComboBox1 - 2 - 3 boşaltılmaz, diğerleri boşaltılır...)

For Each evn In Sheets("Sayfa1").OLEObjects
If evn.progID = "Forms.ComboBox.1" Then
select case evn.name
case="ComboBox1","ComboBox2","ComboBox3"
case else
evn.Object.clear <-----
end select
end if
Next

----evn.Object.Clear---- bu bölümü sarıya boyadı.
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 14:57
Meslek: polis
Yaş: 42
İleti: 1054
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#58)  Tarkan VURAL » 27 Tem 2015 16:15

Additem ile doldurma yapmadığınızdan Clear hata döndürüyor. Fillrange yahut Rowsource ile doldurulan nesneler, yine aynı metotla boşaltılmalıdır.

Aşağıdaki yöntemi kullanabilirsiniz.

Kod: Tümünü seç
Sub CommandButton1_Click()
For 
Each evn In Sheets("Anasayfa").OLEObjects
If evn.progID "Forms.ComboBox.1" Then
Select 
Case evn.Name
Case Is "ComboBox1""ComboBox2""ComboBox3"
Case Else
On Error GoTo 10
evn
.Object.Clear
GoTo 20
10 Err
.Clear
evn
.ListFillRange ""
Resume Next
20 End Select
End 
If
Next
End Sub
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26765
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#59)  vba_kadir » 28 Tem 2015 17:07

Tarkan hocam çok teşekkür ederim. Oldu..

Yanlız birkaç isteğim daha olacak. Yardımcı olursanız çok sevinirim.

Ekleyeceğim dosyada aşağıdaki koda bir ekleme yapabilirmisiniz.

A sütununda son kayıt sayısına bir ekleyip son boş satıra yazmıyor.

Kod: Tümünü seç
Private Sub CommandButton1_Click()

If TextBox2.Text = Empty Then
MsgBox "Lütfen Alıcı Adı ve Soyadı Giriniz.", vbExclamation, "": Exit Sub
End If   ' BOŞ BIRAKILMASINI İSTEMEDİĞİNİZ YERLER İÇİN...

If TextBox3.Text = Empty Then
MsgBox "Alıcı Adres Bilgilerini Kontrol ediniz!", vbExclamation, "": Exit Sub
End If   ' BOŞ BIRAKILMASINI İSTEMEDİĞİNİZ YERLER İÇİN...

With Sheets("satış")
Satır = .Range("A65536").End(3).Row + 1 ' a sütunundaki son dolu satırı bulup bir sonraki satıra aşağıdaki işlemi yapar
.Cells(Satır, 2) = CDate(TextBox1.Text) 'birinci sütuna Textbox1 tarih formatında yazılır
.Cells(Satır, 3) = TextBox2             ' üçüncü sutuna ComboBox9 yazar
.Cells(Satır, 4) = TextBox3
.Cells(Satır, 5) = TextBox4
.Cells(Satır, 6) = TextBox5
.Cells(Satır, 7) = TextBox6
.Cells(Satır, 8) = TextBox7
.Cells(Satır, 13) = TextBox8
.Cells(Satır, 14) = ComboBox1
.Cells(Satır, 15) = ComboBox2
.Cells(Satır, 18) = TextBox9
.Cells(Satır, 19) = ComboBox3
.Cells(Satır, 20) = ComboBox4
.Cells(Satır, 21) = ComboBox5
.Cells(Satır, 22) = ComboBox6
.Cells(Satır, 24) = ComboBox7
.Cells(Satır, 31) = ComboBox8
.Cells(Satır, 32) = TextBox10
.Cells(Satır, 33) = TextBox11
.Cells(Satır, 34) = TextBox12

For i = 2 To 10
Controls("Textbox" & i).Value = ""
Next

End With
deger1 = 0
MsgBox "KAYIT İŞLEMİ TAMAMLANDI", , ""
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 14:57
Meslek: polis
Yaş: 42
İleti: 1054
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

Cevap: ComboBox Nedir, Nasıl Kullanılır ?

İleti#60)  vba_kadir » 29 Tem 2015 15:17

Tarkan hocam ilgilenirseniz sevinirim. Benim için önemli.
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 14:57
Meslek: polis
Yaş: 42
İleti: 1054
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

ÖncekiSonraki

Forum ComboBox

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe