• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

otomatik veri çekmek -VB

S

samuelsaw

Katılım
21 Ocak 2011
Mesajlar
60
Excel Vers. ve Dili
2010 ingilizce
gerekli açıklamalrı ekte yaptım yardımcı olana arjadaşlara teşekkür ederim...
 

Ekli dosyalar

Dosyanız ektedir..:cool:
Kod: 
Private Sub ComboBox1_Click()
Dim sut As Long
sut = ComboBox1.ListIndex + 1
sat = Cells(Rows.Count, sut).End(xlUp).Row
ComboBox2.RowSource = "Sayfa1!" & Sheets("Sayfa1").Range(Sheets("Sayfa1") _
.Cells(2, sut), Sheets("Sayfa1").Cells(sat, sut)).Address
If ComboBox1.ListCount > 0 Then ComboBox2.ListIndex = 0

End Sub
 

Ekli dosyalar

çok teşekkür ederim hocam yardımınız için...tam istediğim gibi olmuş...ii çalışmalar diliyorum...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst