• DİKKAT

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

Userform'daki Combobox'tan Hücre Bulmak

  • Konbuyu başlatan Konbuyu başlatan quesh
  • Başlangıç tarihi Başlangıç tarihi
Q

quesh

Katılım
25 Mart 2010
Mesajlar
340
Excel Vers. ve Dili
2007,2010
Arkadaşlar merhabalar.

Ekteki Dosyada 3 farklı sayfa bulunmakta ve her sayfada 2 sütun ; Kod ve Adı Bulunmaktadır. UserFormdaki Kod seçilecek comboboxta 3 sayfanın Kodlarının (A sütunları) tamamının listesini aldırmak istiyorum ve , aynı zamanda , bunu B sütunlarındaki veriler için de 2.comboboxa uygulamak istiyorum. Ve comboboxlara birşeyler yazdıkça yazılan şeye ait hücreyi sayfalarda arayıp bulmasını ve uygun olana gitmesini istiyorum.
umarım anlatabilmişimdir.

Saygılar.
 

Ekli dosyalar

quesh' Alıntı:
Arkadaşlar merhabalar.

Ekteki Dosyada 3 farklı sayfa bulunmakta ve her sayfada 2 sütun ; Kod ve Adı Bulunmaktadır. UserFormdaki Kod seçilecek comboboxta 3 sayfanın Kodlarının (A sütunları) tamamının listesini aldırmak istiyorum ve , aynı zamanda , bunu B sütunlarındaki veriler için de 2.comboboxa uygulamak istiyorum. Ve comboboxlara birşeyler yazdıkça yazılan şeye ait hücreyi sayfalarda arayıp bulmasını ve uygun olana gitmesini istiyorum.
umarım anlatabilmişimdir.

Saygılar.
Genişletmek için tıkla ...



dosyanız ektedir, inceleyiniz.. saygılarımla..


Kod: 
Private Sub UserForm_Initialize()

Call liste
Call liste1
Call liste2
Call grup
Call grup1
Call grup2
End Sub


Sub liste()
Set s1 = Sheets("Sayfa1")
For y = 2 To s1.[A65536].End(3).Row
        alt = s1.Cells(y, "A")
        If alt <> ust Then
        If WorksheetFunction.CountIf(s1.Range("A2:a" & y), s1.Cells(y, "A")) = 1 Then 'kayıtlar karışık olursa da, tek listeler
         ComboBox1.AddItem s1.Cells(y, "A").Value
        End If
       Else
       End If
       ust = alt
    Next
    Set s1 = Nothing

End Sub
Sub liste1()
Set s1 = Sheets("Sayfa2")
For y = 2 To s1.[A65536].End(3).Row
        alt = s1.Cells(y, "A")
        If alt <> ust Then
        If WorksheetFunction.CountIf(s1.Range("A2:a" & y), s1.Cells(y, "A")) = 1 Then 'kayıtlar karışık olursa da, tek listeler
         ComboBox1.AddItem s1.Cells(y, "A").Value
        End If
       Else
       End If
       ust = alt
    Next
    Set s1 = Nothing

End Sub

Sub liste2()
Set s1 = Sheets("Sayfa3")
For y = 2 To s1.[A65536].End(3).Row
        alt = s1.Cells(y, "A")
        If alt <> ust Then
        If WorksheetFunction.CountIf(s1.Range("A2:a" & y), s1.Cells(y, "A")) = 1 Then 'kayıtlar karışık olursa da, tek listeler
         ComboBox1.AddItem s1.Cells(y, "A").Value
        End If
       Else
       End If
       ust = alt
    Next
    Set s1 = Nothing

End Sub

Sub grup()
Set s1 = Sheets("Sayfa1")
For y = 2 To s1.[B65536].End(3).Row
        alt = s1.Cells(y, "B")
        If alt <> ust Then
        If WorksheetFunction.CountIf(s1.Range("B2:b" & y), s1.Cells(y, "B")) = 1 Then 'kayıtlar karışık olursa da, tek listeler
         ComboBox2.AddItem s1.Cells(y, "B").Value
        End If
       Else
       End If
       ust = alt
    Next
    Set s1 = Nothing

End Sub

Sub grup1()
Set s1 = Sheets("Sayfa2")
For y = 2 To s1.[B65536].End(3).Row
        alt = s1.Cells(y, "B")
        If alt <> ust Then
        If WorksheetFunction.CountIf(s1.Range("B2:b" & y), s1.Cells(y, "B")) = 1 Then 'kayıtlar karışık olursa da, tek listeler
         ComboBox2.AddItem s1.Cells(y, "B").Value
        End If
       Else
       End If
       ust = alt
    Next
    Set s1 = Nothing

End Sub

Sub grup2()
Set s1 = Sheets("Sayfa3")
For y = 2 To s1.[B65536].End(3).Row
        alt = s1.Cells(y, "B")
        If alt <> ust Then
        If WorksheetFunction.CountIf(s1.Range("B2:b" & y), s1.Cells(y, "B")) = 1 Then 'kayıtlar karışık olursa da, tek listeler
         ComboBox2.AddItem s1.Cells(y, "B").Value
        End If
       Else
       End If
       ust = alt
    Next
    Set s1 = Nothing

End Sub
 

Ekli dosyalar

merhabalar. teşekkürler ilginiz için. Comboboxlarda değerler yüklü ancak tıkladığımda hiçbir tepki vermiyor. userformu kapatıp sizin ekledğiniz butona tıkladığımda (Düğme1) ise resimdeki uyarıyır alıyorum. kısacası bende çalışmadı. saygılar.

[a href=http://urlal.com/dqqf][/a]



[QUOTE="chngrcn, post: 514396"]dosyanız ektedir, inceleyiniz.. saygılarımla..


[CODE]Private Sub UserForm_Initialize()

Call liste
Call liste1
Call liste2
Call grup
Call grup1
Call grup2
End Sub


Sub liste()
Set s1 = Sheets("Sayfa1")
For y = 2 To s1.[A65536].End(3).Row
alt = s1.Cells(y, "A")
If alt <> ust Then
If WorksheetFunction.CountIf(s1.Range("A2:a" & y), s1.Cells(y, "A")) = 1 Then 'kayıtlar karışık olursa da, tek listeler
ComboBox1.AddItem s1.Cells(y, "A").Value
End If
Else
End If
ust = alt
Next
Set s1 = Nothing

End Sub
Sub liste1()
Set s1 = Sheets("Sayfa2")
For y = 2 To s1.[A65536].End(3).Row
alt = s1.Cells(y, "A")
If alt <> ust Then
If WorksheetFunction.CountIf(s1.Range("A2:a" & y), s1.Cells(y, "A")) = 1 Then 'kayıtlar karışık olursa da, tek listeler
ComboBox1.AddItem s1.Cells(y, "A").Value
End If
Else
End If
ust = alt
Next
Set s1 = Nothing

End Sub

Sub liste2()
Set s1 = Sheets("Sayfa3")
For y = 2 To s1.[A65536].End(3).Row
alt = s1.Cells(y, "A")
If alt <> ust Then
If WorksheetFunction.CountIf(s1.Range("A2:a" & y), s1.Cells(y, "A")) = 1 Then 'kayıtlar karışık olursa da, tek listeler
ComboBox1.AddItem s1.Cells(y, "A").Value
End If
Else
End If
ust = alt
Next
Set s1 = Nothing

End Sub

Sub grup()
Set s1 = Sheets("Sayfa1")
For y = 2 To s1.[B65536].End(3).Row
alt = s1.Cells(y, "B")
If alt <> ust Then
If WorksheetFunction.CountIf(s1.Range("B2:b" & y), s1.Cells(y, "B")) = 1 Then 'kayıtlar karışık olursa da, tek listeler
ComboBox2.AddItem s1.Cells(y, "B").Value
End If
Else
End If
ust = alt
Next
Set s1 = Nothing

End Sub

Sub grup1()
Set s1 = Sheets("Sayfa2")
For y = 2 To s1.[B65536].End(3).Row
alt = s1.Cells(y, "B")
If alt <> ust Then
If WorksheetFunction.CountIf(s1.Range("B2:b" & y), s1.Cells(y, "B")) = 1 Then 'kayıtlar karışık olursa da, tek listeler
ComboBox2.AddItem s1.Cells(y, "B").Value
End If
Else
End If
ust = alt
Next
Set s1 = Nothing

End Sub

Sub grup2()
Set s1 = Sheets("Sayfa3")
For y = 2 To s1.[B65536].End(3).Row
alt = s1.Cells(y, "B")
If alt <> ust Then
If WorksheetFunction.CountIf(s1.Range("B2:b" & y), s1.Cells(y, "B")) = 1 Then 'kayıtlar karışık olursa da, tek listeler
ComboBox2.AddItem s1.Cells(y, "B").Value
End If
Else
End If
ust = alt
Next
Set s1 = Nothing

End Sub[/CODE][/QUOTE]
 
merhabalar. teşekkürler ilginiz için. Comboboxlarda değerler yüklü ancak tıkladığımda hiçbir tepki vermiyor. userformu kapatıp sizin ekledğiniz butona tıkladığımda (Düğme1) ise resimdeki uyarıyır alıyorum. kısacası bende çalışmadı. saygılar.

2372.jpg
 
quesh' Alıntı:
merhabalar. teşekkürler ilginiz için. Comboboxlarda değerler yüklü ancak tıkladığımda hiçbir tepki vermiyor. userformu kapatıp sizin ekledğiniz butona tıkladığımda (Düğme1) ise resimdeki uyarıyır alıyorum. kısacası bende çalışmadı. saygılar.

2372.jpg
Genişletmek için tıkla ...


düğme üzerinde sağ tıklayıp, "makro ata" düğmesini klikleyin, form_ac makrosunu seçip tamam diyin, düğme çalışacaktır.. sıkıntı olursa bana tekrar dönün ben yapıp yollarım.. şimdi zamanım kısıtlı..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst