Combobox içeriğini sayfaya yazdırma

[s.savas]

Merhaba arkadaşlar.
Sayfada birbiri ile ilişkili bir şekilde 3 adet combobox var.
İller, ilçeler ve mahalleler şeklinde.
3. Comboboxta filtrelen verileri ayrı bir sayfaya yazdırmak istiyorum.
Gerekli kodu rica ediyorum.

 

[antonio]

Merhaba,
Aşağıdaki linki inceleyiniz.
http://www.excel.web.tr/f14/combobox-userform-problem-t166905/sayfa3.html

 

[s.savas]

Merhaba,
Aşağıdaki linki inceleyiniz.
http://www.excel.web.tr/f14/combobox-userform-problem-t166905/sayfa3.html

Cevap için teşekkürler. Konuyu inceledim ancak malumunuz üzere yetki kısıtlılığı nedeniyle ekli dosyaları inceleme fırsatım olmuyor.
Birbiri ile ilişkili comboboxlar'a şu kod ile veri alıp filtreleme yapıyorum.

Private Sub Worksheet_Activate()
ComboBox1.Clear
ComboBox2.Clear
ComboBox3.Clear
Set k = Sheets("ASM LİSTESİ")
For i = 3 To k.Cells(65536, "b").End(3).Row
If WorksheetFunction.CountIf(k.Range("b2:b" & i), k.Range("b" & i)) = 1 Then
ComboBox1.AddItem k.Cells(i, "b").Value
End If
Next

End Sub

Private Sub ComboBox1_Change()
Dim STR As Long, SYF As Worksheet, LST As New Collection, HCR As Range
Set SYF = Sheets("ASM LİSTESİ")
If ComboBox1.ListIndex < 0 Then Exit Sub
On Error Resume Next
For STR = 2 To SYF.Range("b" & Rows.Count).End(xlUp).Row
If SYF.Cells(STR, "b") = ComboBox1.Value Then
LST.Add SYF.Cells(STR, "c"), CStr(SYF.Cells(STR, "c"))
End If
Next
ComboBox2.Clear
ComboBox3.Clear
For Each HCR In LST
ComboBox2.AddItem HCR
Next
End Sub

Private Sub ComboBox2_Change()
Dim STR As Long, SYF As Worksheet, LST As New Collection, HCR As Range
Set SYF = Sheets("ASM LİSTESİ")
If ComboBox1.ListIndex < 0 Then Exit Sub
On Error Resume Next
For STR = 2 To SYF.Range("b" & Rows.Count).End(xlUp).Row
If SYF.Cells(STR, "b") = ComboBox1.Value And SYF.Cells(STR, "c") = ComboBox2.Value Then
LST.Add SYF.Cells(STR, "e"), CStr(SYF.Cells(STR, "e"))
End If
Next
ComboBox3.Clear
For Each HCR In LST
ComboBox3.AddItem HCR
Next
End Sub

Örneğim de burada. http://dosya.co/b5nvqgjbff94/İZLEME_DEĞERLENDİRME_TAKİP_DOSYASI.xls.html
Ricam zamanınız müsaitse benim örnek üzerinden bir düzenleme veya incelenmesini tavsiye ettiğiniz konudaki örneklerden bir dosyayı harici link olarak sunmanızdır.

 

[antonio]

Belirttiğim çalışmayı harici dosya yükleme sitesine yükledim, aşağıdaki linkten indirebilirsiniz.
http://www.dosya.tc/server10/f20qwm/il-ilce-semt-mahalle-sokak-adres-antonio.rar.html
NOT: dosya yüklemek için dosya.tc sitesini tercih ediniz. Fazla dikkat edilmemekle birlikte çok kez .co uzantısı ile biten siteye yapılan yüklemeleri açmıyorum çünkü antivirüsüm bu sayfanın güvenli ve güvenilir olmadığını belirtiyor.

 

[s.savas]

Belirttiğim çalışmayı harici dosya yükleme sitesine yükledim, aşağıdaki linkten indirebilirsiniz.
http://www.dosya.tc/server10/f20qwm/il-ilce-semt-mahalle-sokak-adres-antonio.rar.html
NOT: dosya yüklemek için dosya.tc sitesini tercih ediniz. Fazla dikkat edilmemekle birlikte çok kez .co uzantısı ile biten siteye yapılan yüklemeleri açmıyorum çünkü antivirüsüm bu sayfanın güvenli ve güvenilir olmadığını belirtiyor.

Tekrar teşekkür ediyorum.
Talebimi sanırım tam izah edemedim sanırım.
Sizin örneğinizden yürürsek;
ComboBox1 den Adanayı seçiyoruz. ComboBox2 de Adananın ilçeleri listeleniyor.
ComboBox1'in change yordamı ile ComboBox2 de listelenen verileri Sayfa2 B5 hücresinden itibaren alt alta yazılmasını, diğer bir ifadeyle; Sayfa2 de B5 hücresinden başlayarak Adananın veya seçilen ile ait ilçelerin alt alta yazsın istiyorum.

 

[s.savas]

Konu günceldir arkadaşlar.

 

[costtex]

Merhabalar.
ayları seçmek istiyorum. bu sayfada ve ayrı sayfada göster seçeneği ile yardım istiyorum.

belığı tutmayıda öğretirseniz çok sevinirim
https://www.dosyaupload.com/dx2q