ComboBox1 de il 2 ilçeleri cıkması

[maras321]

Sub maddelerrr_liste()
Dim i As Long, a As Long, deg As String
ReDim myarr(1 To 1, 1 To 1)
ComboBox13.Clear
For i = 2 To Cells(65536, "F").End(xlUp).Row
deg = Cells(i, "F").Value
If deg = ComboBox3.Value Then
a = a + 1
ReDim Preserve myarr(1 To 1, 1 To a)
myarr(1, a) = Cells(i, "G").Value
End If
Next i
If a > 0 Then
ComboBox13.Column = myarr
ComboBox13.ListIndex = 0
End If
End Sub

hocam son bir isteğim daha bunuda ona göre uydurabilirmisiniz...

 

[Orion1]

Sub maddelerrr_liste()
Dim i As Long, a As Long, deg As String
ReDim myarr(1 To 1, 1 To 1)
ComboBox13.Clear
Set sv = Sheets("veriler")
For i = 2 To sv.Cells(65536, "F").End(xlUp).Row
    deg = sv.Cells(i, "F").Value
   If deg = ComboBox3.Value Then
        a = a + 1
        ReDim Preserve myarr(1 To 1, 1 To a)
        myarr(1, a) = sv.Cells(i, "G").Value
    End If
Next i
If a > 0 Then
    ComboBox13.Column = myarr
    ComboBox13.ListIndex = 0
    Erase myarr
End If
Set sv = Nothing
End Sub

 

[maras321]

hocam siz bir dahisiniz program bitmek üzere meslaktaşlarıma yardımcı olacagına inanıyorum siteye ekleyecegim siz olmasaydınız bu günlere gelemezdim saygılar....

 

[Orion1]

hocam siz bir dahisiniz program bitmek üzere meslaktaşlarıma yardımcı olacagına inanıyorum siteye ekleyecegim siz olmasaydınız bu günlere gelemezdim saygılar....

Bir nebze faydamız olduysa ne mutlu.
İyi çalışmalar.Kolay gelsin.
Sorması ayıp değilse mesleğiniz nedir?

 

[maras321]

hocam trafik polisiyim içeride çalışıyorum.Ekiplerin yazmış oldugu cezaların infazını yapıyorum.sizin ve sayın seyit TİKEN kardeşimizin yardımını çok gördüm.tekrar teşekkürler...

 

[NBATMAN]

EVREN BEY, bir sorum olucak size;
userformda kullanılan combobox ın değerini excel sayfasında herhangi bir hücreye nasıl bağlaya bilirim?
şöyle ola bilirmi?

Private Sub Combobox1_Change()
Range("A6").value=combobox1.text
End sub

Şimdiden teşekkürler....

 

[jimpestu]

Hocam Selam Bende Çok Basit Bİr Soru Sormak İstiyorum

Private Sub UserForm_Initialize()
Sheets("Sayfa1").Select
UserForm1.ComboBox1.RowSource = "A2:A" & Cells(65536, "A").End(xlUp).Row
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub

Kodunda ben il ve ilçe tablolarını sayfa2 ye attım bunu sayfa2 yi seçtirmeden Sayfa1 Görünürken Form1 üzerindeki combobox'a nasıl atabilirim acaba
Çok Teşekkürler...

 

[jimpestu]

Cevap yokmuuuuuu arkadaşlar

 

[jimpestu]

Forum Üyesi Arkadaşlar Neredesiniz ???

 

[meslan]

UserForm1.ComboBox1.RowSource = "sayfa2!A2:A" & Sheets("sayfa2").Cells(65536, "A").End(xlUp).Row

 

[jimpestu]

Sevgili meslan bu işte çok yeni olduğum için böyle basit sorular soruyorum kusura bakmayın.Çalışma kitabının 2nci sayfasından ben sayfayı seçtirmeden veri çekmek ve comboboxlara sayfa1'de iken aktarmak istioyorum sizin yolladığınız kodlarla yine sayfa seçiliyor.Bu konuda ne yapabilirim acaba.?


UserForm1.ComboBox2.RowSource = "sayfa2!A2:A" & Sheets("sayfa2").Cells(65536, "A").End(xlUp).Row

UserForm1.ComboBox1.RowSource = "sayfa2!D2" & Sheets("sayfa2").Cells(65536, "D").End(xlUp).Row

 

[meslan]

Sevgili meslan bu işte çok yeni olduğum için böyle basit sorular soruyorum kusura bakmayın.Çalışma kitabının 2nci sayfasından ben sayfayı seçtirmeden veri çekmek ve comboboxlara sayfa1'de iken aktarmak istioyorum sizin yolladığınız kodlarla yine sayfa seçiliyor.Bu konuda ne yapabilirim acaba.?


UserForm1.ComboBox2.RowSource = "sayfa2!A2:A" & Sheets("sayfa2").Cells(65536, "A").End(xlUp).Row

UserForm1.ComboBox1.RowSource = "sayfa2!D2" & Sheets("sayfa2").Cells(65536, "D").End(xlUp).Row

Ekteki dosyayı inceleyiniz.

 

[ojibu]

Formda aradım fakat bulamadım. ekteki örnekte Combobox1 de ili seçince otomatik Olarak Combobox2 de ilçelerin gelmesi. bunu nasıl yapabiliriz. teşekkürler

 

[ojibu]

tablo düzenlendil

 

[fedeal]

isteginiz bumu
bu konuyla ilgili
http://www.excel.web.tr/f48/birbirine-bagl-comboboxa-benzersiz-veri-almak-t62896.html

 

[ojibu]

teşekkür ederim.

 

[fedeal]

Ricaederim iyi calışmalar