combobox1 re göre combobox2 nin verileri değişsin

[86126]

arkadaşlar elimde userformum var. combobox1 in verisine göre combobox2 nin verileri değişsin. örnek ekte.

 

[Levent Menteşoğlu]

Combobox1e aşağıdaki kodu yazın.

Private Sub ComboBox1_Change()
sut = ComboBox1.ListIndex + 3
sat = Cells(65536, sut).End(3).Row
adr = Range(Cells(2, sut), Cells(sat, sut)).Address
ComboBox2.RowSource = adr
End Sub

 

[86126]

ARKADAŞIM LEVENT ben bu işi beceremedim dosyada gösterebilirmisin. örnek dosya ekte

 

[Levent Menteşoğlu]

Dosyanızdaki tüm kodları silin yerine aşağıdakileri kopyalayın.

Private Sub ComboBox1_Change()
sut = ComboBox1.ListIndex + 3
sat = Cells(65536, sut).End(3).Row
adr = Range(Cells(2, sut), Cells(sat, sut)).Address
ComboBox2.RowSource = adr
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "A1:A" & WorksheetFunction.CountA([A1:A1000])
End Sub

 

[86126]

çok teşekkür ederim. Levent kardeş eline ve beynine sağlık

 

[86126]

seçenekleri çoğaltığımızda formülde hangi kısmı düzeltmemiz gerekecek. ve başka sayfadan verileri aldığımızda neresi düzelecek.teşekkürler

 

[86126]

combobox1 e sayfa2 den verileri aldım ancak combobox2 verileri sayfa1 den alıyor. yukarıda görderdiğim dosyadaki verilerin sayfa2 de olmasını istiyorum.Aşağıda görüldüğü gibi Combobox1 i sayfa ikiye bağladım. combobox2 yi nasıl sayfa2 ye bağlayacağım.
Private Sub ComboBox1_Change()
sut = ComboBox1.ListIndex + 3
sat = Cells(65536, sut).End(3).Row
adr = Range(Cells(2, sut), Cells(sat, sut)).Address
ComboBox2.RowSource = adr
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa2!A1:A" & WorksheetFunction.CountA([A1:A1000])
End Sub

 

[Levent Menteşoğlu]

Bütün hücre tanımlamalatının önüne sheets("sayfa2"). tanımlamasını ekleyin.

 

[86126]

kardeş kusura bakma, ben bu makrodan anlamıyorum. nereler hücre tanımlaması bilmiyorum. sen onuda gösterebilirmisin

 

[Levent Menteşoğlu]

Kodu aşağıdaki gibi değiştirin.

Private Sub ComboBox1_Change()
sut = ComboBox1.ListIndex + 3
sat = sheets("sayfa2").Cells(65536, sut).End(3).Row
adr = Range(Cells(2, sut), Cells(sat, sut)).Address
ComboBox2.RowSource = "sayfa2!" & adr
End Sub

 

[86126]

kardeş çok teşekkür ederim.