Listbox içinde değişken veriler

[bunyaming]

Merhaba Arkadaşlar,

eklediğim dosya da iki tane seçeneğe göre listbox içinde ki verilerin dinamik olarak değişmesini istiyorum.
Kaydır fonksiyonu ile yapmaya çalıştım fakat yapamadım.
Araç seçili olduğun da listbox içinde araç türleri görünecek, sefer seçili olduğunda listbox içinde sefer tipleri görünecek

yardımcı olursanız sevinirim

teşekkürler

 

[Ömer BARAN]

Merhaba.

-- ALT+F11 tuşlarına basarak VBA ekranını görüntüleyin,
-- Açılan VBA ekranında sol taraftan Sayfa1'in adına fareyle çift tıklayın,
-- Sağdaki boş alana aşağıdaki kod blokunu yapıştırın,
-- Sayfadaki her iki seçenek düğmesine birer kez fareyle sağ tıklayıp MAKRO ATA'yı seçin,
-- Açılan küçük ekranda LISTBOX_KAYNAK adını seçerek işlemi onaylayın.
.

[B][COLOR="Blue"]Sub LISTBOX_KAYNAK()[/COLOR][/B]
    sonsat = Cells(Rows.Count, [Q1]).End(3).Row
    ActiveSheet.ListBox1.ListFillRange = Range(Cells(2, [Q1]), Cells(sonsat, [Q1])).Address
[B][COLOR="blue"]End Sub[/COLOR][/B]

 

[bunyaming]

Ömer Bey

teşekkür ederim sorunsuz çalışıyor.

iyi geceler

 

[Ömer BARAN]

Kolay gelsin.