[Yardım]  Combobox veri çekme

Açılır liste kutusu.

Combobox veri çekme

İleti#1)  rayses » 27 Eyl 2017 10:19

Merhaba Arkadaşlar,

Ekte bulunan excelde 3. Combobox herhangi bir değer seçili değilken unvan listesini getirmesini istiyorum
Yardımcı olabilir misiniz?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
rayses
 
Kayıt: 12 Eyl 2017 10:53
Meslek: tey
Yaş: 98
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Gaziosmanpaşa

Cevap: Combobox veri çekme

İleti#2)  AhmetRasim » 27 Eyl 2017 13:41

Merhabalar;
UserForm_Initialize kodlarında;
Next satırının altına
Kod: Tümünü seç
For y = 1 To Cells(65536, 3).End(xlUp).Row
If WorksheetFunction.CountIf(Range("C1:C" & y), Cells(y, 3)) = 1 Then
        UserForm1.ComboBox3.AddItem Cells(y, 3).Value
    End If
Next
bu satırları ekleyiniz. UserForm açıldığında diğer ComboBox'lardan seçim yapmadan Unvan listesi ComboBox3'de görünür.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
AhmetRasim
Site Dostu
 
Adı Soyadı:Ahmet Rasim
Kayıt: 20 Kas 2013 23:40
Konum: İstanbul
Meslek: Serbest
Yaş: 32
İleti: 1057
 
Cinsiyet: Bay

Cevap: Cevap: Combobox veri çekme

İleti#3)  rayses » 27 Eyl 2017 14:42

AhmetRasim yazdı:Merhabalar;
UserForm_Initialize kodlarında;
Next satırının altına
Kod: Tümünü seç
For y = 1 To Cells(65536, 3).End(xlUp).Row
If WorksheetFunction.CountIf(Range("C1:C" & y), Cells(y, 3)) = 1 Then
        UserForm1.ComboBox3.AddItem Cells(y, 3).Value
    End If
Next
bu satırları ekleyiniz. UserForm açıldığında diğer ComboBox'lardan seçim yapmadan Unvan listesi ComboBox3'de görünür.


Hocam yardımlarınız için teşekkür ederim.
Ancak aşağıdaki gibi bir hata alıyorum.

Kod: Tümünü seç
With Sayfa2
    .Activate
ss = .Range("B55500").End(3).Row + 2
    .Range("A" & ss).Value = Me.ComboBox1.Value
    .Range("B" & ss).Resize(sut, 1).Value = Me.ComboBox2.List
    .Range("C" & ss).Resize(sut, 1).Value = Me.ComboBox3.List
End With
    Unload Me


Seçtiğim unvanların hepsini dökmesini nasıl sağlarım ( İl ve İlçe Seçmeden )

Teşekkürler
Kullanıcı avatarı
rayses
 
Kayıt: 12 Eyl 2017 10:53
Meslek: tey
Yaş: 98
İleti: 6
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Gaziosmanpaşa


Forum ComboBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe