[Yardım]  3 ComboBox Çok Sayıda Değişken Koşul

Açılır liste kutusu.

3 ComboBox Çok Sayıda Değişken Koşul

İleti#1)  hasancancanhasan » 29 Oca 2014 11:19

Merhabalar, Excel için VBA olan programlamasına yeni başladım ve yapmam gereken 3 adet combobox var ve bu comboboxlar birinine yapılan seçimlerle bağlaı olacak. Bu konuda bana yardımcı olabilir misiniz?

Örneğin:

1 nolu combobox daki değerler: "BALIKESİR", "BURSA"
2 nolu combobox daki değerler: "EDREMİT", "BANDIRMA", NİLÜFER" , "OSMANGAZİ"

3 nolu combobox daki değerler:

BALIKESİRDE EDREMİT ilçesinde çalışan: "AHMET" , "MEHMET" , "FATMA"
BALIKESİRDE BANDIRMA ilçesinde çalışan: "BURAK", "BARIŞ", "MUSTAFA"
BURSA NİLÜFER ilçesinde çalışan: "HASAN" , "SAMİ", "AYŞE"
BURSA OSMANGAZİ ilçesinde çalışan: "ÖZGÜR", "SİBEL"


2 nolu combobox daki değerler için 1 nolu combobox tan "BALIKESİR" seçilmesi durumunda "EDREMİT, BANDIRMA" gibi BALIKESİR' e ait ilçeler çıkacak.

3 nolu combobox daki değerler için 2 nolu combobox ta seçili olan "EDREMİT" için EDREMİT ilçesinde çalışanların listesi yani "AHMET", "MEHMET", "FATMA" listesi gelicek.

gibi devam edecek.

Bunları daha sonra kaydet gibi bir butonla satırlara kaydedeceğim. Çok karışık gibi sanki [uzgun]
Kullanıcı avatarı
hasancancanhasan
Yeni Başlamış
 
Adı Soyadı:HASAN CAN
Kayıt: 27 Oca 2014 17:03
Konum: İstanbul/Kadiköy
Meslek: Öğrenci
Yaş: 37
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Kadıköy

Cevap: 3 combobox çok sayıda değişken koşul

İleti#2)  hasancancanhasan » 29 Oca 2014 11:34

Mesajımı editleyemedim ayrı bir cevap olarak gönderdiğim mesajımda yapmak istediğim örnek vardır.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
hasancancanhasan
Yeni Başlamış
 
Adı Soyadı:HASAN CAN
Kayıt: 27 Oca 2014 17:03
Konum: İstanbul/Kadiköy
Meslek: Öğrenci
Yaş: 37
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Kadıköy

Cevap: 3 combobox çok sayıda değişken koşul

İleti#3)  Tarkan VURAL » 29 Oca 2014 11:57

Merhaba Hasan Bey, sitemize hoş geldiniz.

Öncelikle verilerinizi toparlamanız gerekiyor. Kimin nerede çalıştığını siz biliyorsunuz ama çalışmanıza bakıldığında kimse anlayamaz. Aşağıdaki gibi bir tablolama yapmanız gerekiyor:

yABC
1İLLERİLÇELERÇALIŞANLAR
2BALIKESİREDREMİTAHMET
3BALIKESİREDREMİTMEHMET
4BALIKESİREDREMİTFATMA
5BALIKESİRBANDIRMABURAK
6BALIKESİRBANDIRMABARIŞ
7BALIKESİRBANDIRMAMUSTAFA
8BURSANİLÜFERHASAN
9BURSANİLÜFERSAMİ
10BURSANİLÜFERAYŞE
11BURSAOSMANGAZİÖZGÜR
12BURSAOSMANGAZİSİBEL
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: 26840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: 3 combobox çok sayıda değişken koşul

İleti#4)  Tarkan VURAL » 29 Oca 2014 12:19

Listenizi düzenledikten sonra kitabı xlsm (Makro İçerebilen Excel Çalışma Kitabı) olarak kaydedin.
Bir module ekleyin ve aşağıdaki kodları yazın:
Kod: Tümünü seç
Public con As Object
Sub baglan
()
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook
.FullName & ";extended properties=""excel 12.0;hdr=yes"""
End Sub


Thisworkbook(Buçalışmakitabı) kod sayfasına aşağıdaki kodları yazın:
Kod: Tümünü seç
Private Sub Workbook_Open()
Sayfa1.ComboBox1.Clear: Sayfa1.ComboBox2.Clear: Sayfa1.ComboBox3.Clear
Call baglan
Sayfa1
.ComboBox1.Column = con.Execute("select [İLLER] from [Sayfa3$] group by [İLLER]").getrows
Set con 
= Nothing
End Sub


Sayfa1 kod sayfasına aşağıdaki kodları yazın:
Kod: Tümünü seç
Private Sub ComboBox1_Change()
ComboBox3.Value = "": ComboBox2.Value = ""
If ComboBox1.Text <> "" Then
Call baglan
ComboBox2
.Column = con.Execute("select [İLÇELER] from [Sayfa3$] where [İLLER]='" & ComboBox1.Text & "' group by [İLÇELER]").getrows
Set con 
= Nothing
Else
ComboBox2.Clear: ComboBox3.Clear
End If
End Sub

Private Sub ComboBox2_Change
()
ComboBox3.Text = ""
If ComboBox2.Text <> "" Then
Call baglan
ComboBox3
.Column = con.Execute("select [ÇALIŞANLAR] from [Sayfa3$] where [İLLER]='" & ComboBox1.Text & "'" & _
" and [İLÇELER]='" & ComboBox2.Text & "'").getrows
Set con 
= Nothing
Else
ComboBox3.Clear
End If
End Sub


Projede Sayfa2 kısmına dokunmadım. Belirttiğim tabloyu Sayfa3 içerisiden oluşturarak kodları da buna göre düzenledim.

Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
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: 26840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

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

Cevap: 3 combobox çok sayıda değişken koşul

İleti#5)  hasancancanhasan » 29 Oca 2014 13:54

Yardımınız için çok teşekkür ederim. Sizin yaptığınız kodlar doğrultusunda verilemi listeleyebilyorum. [oley] Bir sorun daha olacak bunları kaydetme işlemini nasıl yapacağız?
Kullanıcı avatarı
hasancancanhasan
Yeni Başlamış
 
Adı Soyadı:HASAN CAN
Kayıt: 27 Oca 2014 17:03
Konum: İstanbul/Kadiköy
Meslek: Öğrenci
Yaş: 37
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Kadıköy

Cevap: 3 combobox çok sayıda değişken koşul

İleti#6)  Tarkan VURAL » 29 Oca 2014 14:01

Kaydetme düğmesine basarak yapabilirsiniz. :) Tabi nereye kaydedecekseniz kodları da buna göre yazmalısınız.
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: 26840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: 3 ComboBox Çok Sayıda Değişken Koşul

İleti#7)  hasancancanhasan » 29 Oca 2014 16:23

Kaydet seçeneği ile kayıt işlemini nasıl yapacağım anlamadım son halini dosya olarak ekledim. Satır kayıt işlemini bilmiyorum. Combobox dan seçilen datalar altındaki satırlara kayıt olucak. Konuile ilgili yardımcı olabilirseniz çok sevinicem [TESEKKÜR]
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
hasancancanhasan
Yeni Başlamış
 
Adı Soyadı:HASAN CAN
Kayıt: 27 Oca 2014 17:03
Konum: İstanbul/Kadiköy
Meslek: Öğrenci
Yaş: 37
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Kadıköy

Cevap: 3 ComboBox Çok Sayıda Değişken Koşul

İleti#8)  hasancancanhasan » 03 Şub 2014 11:27

Merhabalar, yardımlarınızdan dolayı teşekkür ederim. Çalışmam son halini aldı fakat son yapmak istediğim bir işlem var ama bir türlü yapamıyorum.

Sorun şu şekilde;

Textbox ile filtrelemede sayı arayamıyorum, hücreyi metine çevirdiğimde de bulmuyor. Bulduktan sonra textbox ın bulduğu satıra kayıt yapması.

Çalışmanın örneğini ekliyorum. Yardımcı olabilirseniz sevinirim. Teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
hasancancanhasan
Yeni Başlamış
 
Adı Soyadı:HASAN CAN
Kayıt: 27 Oca 2014 17:03
Konum: İstanbul/Kadiköy
Meslek: Öğrenci
Yaş: 37
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Kadıköy

Cevap: 3 ComboBox Çok Sayıda Değişken Koşul

İleti#9)  hasancancanhasan » 03 Şub 2014 11:44

Filtreleme işlemi abone numarasına göre olacağını belirtmeyi unutmuşum. [yummy]
Kullanıcı avatarı
hasancancanhasan
Yeni Başlamış
 
Adı Soyadı:HASAN CAN
Kayıt: 27 Oca 2014 17:03
Konum: İstanbul/Kadiköy
Meslek: Öğrenci
Yaş: 37
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Kadıköy

Cevap: 3 ComboBox Çok Sayıda Değişken Koşul

İleti#10)  Tarkan VURAL » 03 Şub 2014 12:47

Eklediğiniz DTpicker nesnesi yüzünden dosyanız bende nesne hatası veriyor.
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: 26840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: 3 ComboBox Çok Sayıda Değişken Koşul

İleti#11)  hasancancanhasan » 03 Şub 2014 12:52

Tarkan VURAL yazdı:Eklediğiniz DTpicker nesnesi yüzünden dosyanız bende nesne hatası veriyor.



DT_picker çıkarıldı. Dosya ektedir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
hasancancanhasan
Yeni Başlamış
 
Adı Soyadı:HASAN CAN
Kayıt: 27 Oca 2014 17:03
Konum: İstanbul/Kadiköy
Meslek: Öğrenci
Yaş: 37
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Kadıköy

Cevap: 3 ComboBox Çok Sayıda Değişken Koşul

İleti#12)  hasancancanhasan » 03 Şub 2014 16:34

Yardım edebilir misiniz araştırmadığım sayfa kalmadı hiçbir yerde yok çalışmaya uygun kodlar.. [ilginc]
Kullanıcı avatarı
hasancancanhasan
Yeni Başlamış
 
Adı Soyadı:HASAN CAN
Kayıt: 27 Oca 2014 17:03
Konum: İstanbul/Kadiköy
Meslek: Öğrenci
Yaş: 37
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Kadıköy

Textbox ile filtreleme ve bulunan kayıt satırına kayıt yapma

İleti#13)  hasancancanhasan » 03 Şub 2014 16:51

Merhabalar, daha önce combobox kullanımı ile ilgili sorunum vardı ve forum sayesinde çözüldü. Şuan çalışmama son aşamasına geldi ve textbox ile ilgili bir problemden dolayı tamamlayamıyorum.

Sorunum şu şekilde:

Abone numarasına göre textbox filtreleme işlemi yapıyor. Bu işlemi abone numarası metin olduğu durumda sorunsuz fakat rakam olması durumunda textbox filtreleme yapmıyor. Bütün ihtimalleri denediğimi düşünüyorum;
METİN = Textbox1.value * 1
gibi kodlarıda denedim ama sayı filtreleme yapmıyor. Bunu metin olarak kabul ederim bir şekilde ama esas sorun şu;

KAYDET butonuna bastığımda ilk boş satıra gidip kayıt yapıyor benim istediğim ise textbox ın filtreleme sonucunda geldiği satıra kayıt yapması.
UserForm ve Diğer Nesneler>Textbox
UserForm ve Diğer Nesneler>CommandButton
ikilisinin çalışma kombinasyonlarında bir durum var formu aradım örnekleri inceledim ama çözemedim. Yardımcı olabilirseniz sevinirim. [TESEKKÜR]
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
hasancancanhasan
Yeni Başlamış
 
Adı Soyadı:HASAN CAN
Kayıt: 27 Oca 2014 17:03
Konum: İstanbul/Kadiköy
Meslek: Öğrenci
Yaş: 37
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Kadıköy

Cevap: 3 ComboBox Çok Sayıda Değişken Koşul

İleti#14)  Tarkan VURAL » 03 Şub 2014 17:19

hasancancanhasan yazdı:Yardım edebilir misiniz araştırmadığım sayfa kalmadı hiçbir yerde yok çalışmaya uygun kodlar.. [ilginc]


Madem öğrencisiniz, eksik imla ve devrik cümleler yazmamaya çalışın.

hasancancanhasan yazdı:Araştırmadığım sayfa kalmadı. Hiçbir yerde çalışmaya uygun kodlar yok. [ilginc] Yardım edebilir misiniz ?


I sütununu seçip hücreleri biçimlendir kısmından türü metin seçin. Bir seferliğine mahsus, verilerin yazılı olduğu hücreleri seçin ve hücre içine girip enter tuşuna basın. Hepsini bitirdiyseniz yeniden filtre etmeyi deneyin.
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: 26840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Textbox ile filtreleme ve bulunan kayıt satırına kayı

İleti#15)  Tarkan VURAL » 03 Şub 2014 17:24

Sayı filtresinde içerir mantığı olmaz. Çünkü o bir sayı, metin değil. Sayının içinde "Şu var mı? Bu var mı ?" denmez. Sayılar filtre edilirken eşittir, eşit değildir, küçüktür, küçük eşittir, büyüktür, büyük eşittir, arasında gibi kriterlerle filtre edilir. Ya metin olarak kaydedip aratacaksınız, ya da eşittir mantığı ile sayının tamamını girmeyi deneyeceksiniz. En mantıklı çözüm bu olacaktır.

Ayrıca aynı konu için farklı başlığa gerek yok. Kendi konunuz altındaki problem devam ederken, takibini oradan yapınız. Konularınızı birleştirdim.
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: 26840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: 3 ComboBox Çok Sayıda Değişken Koşul

İleti#16)  hasancancanhasan » 03 Şub 2014 18:00

Kaydet butonu için bir çözümünüz var mı acaba?
Kullanıcı avatarı
hasancancanhasan
Yeni Başlamış
 
Adı Soyadı:HASAN CAN
Kayıt: 27 Oca 2014 17:03
Konum: İstanbul/Kadiköy
Meslek: Öğrenci
Yaş: 37
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Kadıköy

Cevap: 3 ComboBox Çok Sayıda Değişken Koşul

İleti#17)  Tarkan VURAL » 03 Şub 2014 18:07

Önceki yazdığınız sayı/metin ilişkisi ne oldu ? Çözdünüz mü, yoksa direkt kaydetme sorununa mı atladık ? Bir yorum var mı ?
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: 26840
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: 3 ComboBox Çok Sayıda Değişken Koşul

İleti#18)  hasancancanhasan » 03 Şub 2014 18:15

Tarkan VURAL yazdı:Önceki yazdığınız sayı/metin ilişkisi ne oldu ? Çözdünüz mü, yoksa direkt kaydetme sorununa mı atladık ? Bir yorum var mı ?



Metin / Sayı ilişkisini, metin olarak çözümleyeceğim sanırım. Kayıt işlemini gerçekleştirmem şuan daha önemli. Yardımlarınızı bekliyorum. [TESEKKÜR]
Kullanıcı avatarı
hasancancanhasan
Yeni Başlamış
 
Adı Soyadı:HASAN CAN
Kayıt: 27 Oca 2014 17:03
Konum: İstanbul/Kadiköy
Meslek: Öğrenci
Yaş: 37
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Kadıköy

Cevap: Cevap: Cevap: 3 ComboBox Çok Sayıda Değişken Koşul

İleti#19)  hasancancanhasan » 04 Şub 2014 10:31

hasancancanhasan yazdı:
Tarkan VURAL yazdı:Önceki yazdığınız sayı/metin ilişkisi ne oldu ? Çözdünüz mü, yoksa direkt kaydetme sorununa mı atladık ? Bir yorum var mı ?



Metin / Sayı ilişkisini, metin olarak çözümleyeceğim sanırım. Kayıt işlemini gerçekleştirmem şuan daha önemli. Yardımlarınızı bekliyorum. [TESEKKÜR]


Kimse cevap yazmamış. Çözülmeyecek bir kod mu yazmaya çalışıyorum acaba?
Kullanıcı avatarı
hasancancanhasan
Yeni Başlamış
 
Adı Soyadı:HASAN CAN
Kayıt: 27 Oca 2014 17:03
Konum: İstanbul/Kadiköy
Meslek: Öğrenci
Yaş: 37
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Kadıköy

Cevap: Cevap: 3 combobox çok sayıda değişken koşul

İleti#20)  seydauzun » 19 Mar 2018 18:06

Tarkan VURAL yazdı:Listenizi düzenledikten sonra kitabı xlsm (Makro İçerebilen Excel Çalışma Kitabı) olarak kaydedin.
Bir module ekleyin ve aşağıdaki kodları yazın:
Kod: Tümünü seç
Public con As Object
Sub baglan
()
Set con = CreateObject("adodb.connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook
.FullName & ";extended properties=""excel 12.0;hdr=yes"""
End Sub


Thisworkbook(Buçalışmakitabı) kod sayfasına aşağıdaki kodları yazın:
Kod: Tümünü seç
Private Sub Workbook_Open()
Sayfa1.ComboBox1.Clear: Sayfa1.ComboBox2.Clear: Sayfa1.ComboBox3.Clear
Call baglan
Sayfa1
.ComboBox1.Column = con.Execute("select [İLLER] from [Sayfa3$] group by [İLLER]").getrows
Set con 
= Nothing
End Sub


Sayfa1 kod sayfasına aşağıdaki kodları yazın:
Kod: Tümünü seç
Private Sub ComboBox1_Change()
ComboBox3.Value = "": ComboBox2.Value = ""
If ComboBox1.Text <> "" Then
Call baglan
ComboBox2
.Column = con.Execute("select [İLÇELER] from [Sayfa3$] where [İLLER]='" & ComboBox1.Text & "' group by [İLÇELER]").getrows
Set con 
= Nothing
Else
ComboBox2.Clear: ComboBox3.Clear
End If
End Sub

Private Sub ComboBox2_Change
()
ComboBox3.Text = ""
If ComboBox2.Text <> "" Then
Call baglan
ComboBox3
.Column = con.Execute("select [ÇALIŞANLAR] from [Sayfa3$] where [İLLER]='" & ComboBox1.Text & "'" & _
" and [İLÇELER]='" & ComboBox2.Text & "'").getrows
Set con 
= Nothing
Else
ComboBox3.Clear
End If
End Sub


Projede Sayfa2 kısmına dokunmadım. Belirttiğim tabloyu Sayfa3 içerisiden oluşturarak kodları da buna göre düzenledim.



Merhaba Tarkan Bey,

Bu anlattığınız mantığu userform içinde denedim ama olmadı :(
İL ve İlçeler olacak şekilde userform da çalışacak combobox lara ihtiyacım var.
Yardımlarınızı rica ederim.
Kullanıcı avatarı
seydauzun
Yeni Başlamış
 
Kayıt: 02 Şub 2018 14:28
Meslek: Satış Operasyon
Yaş: 37
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Çekmeköy


Forum ComboBox

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe