Komutlarla Comboboxlarda Kritere Göre Sıralama Yapma

[Sa.NaL]

Merhabalar benim excel uzmanı arkadaşlardan ricam ekte bulunmaktadır.Comboboxlarla ilgili isteğim seçeneklere göre ad tanımlayı kullanmadan komutlarla comboboxların içini belirlemek yardımcı olursanız sevinirim.İyi çalışmalar.Şimdiden Tşkler

 

[Orion1]

Konu tam açık değil.
X seçersem niye 3ten 6ya kadar sıralanacakta 1den 4e kadar sıralanmayacak?Y seçersem nasıl sıralanacak,Z seçersem nasıl sıralanacak? vs,vs,vs

 

[Sa.NaL]

Teşekkür ederim üstat ilgilendiğin için ama benim gerçek örneğim bu değil zaten daha çok kriteri barındıran bir örnek için sadece bu dediğim kodu yazabilirseniz ben çoğaltmaya çalışacağım farketmez Y seçince 1 den 3 kadar sıralansın ve C den E ye kadar sıralansın vs bana sadece bu tarz kod nasıl yazılabilir bir ipucu lazım üstat şimdiden saol

 

[Sa.NaL]

Daha önce belirtmiştim ad tanımlayarak yaptırdılar öyle istemedim bir de biri daha yardım etti oda kodlaydı ama Çıkan ların yeri boş kalıyordu ben boşlukta kalsın istememiştim mesela X seçince 3-6 ya kadar sıralanınca 1 ve 2 nin olduğu yerde satır boşluğu kalıyordu öyle olmasınıda istemediğimden bu yardımı almaya başvurdum

 

[Orion1]

Konuyu maalesef yine anlamadım.Başka bir arkadaş ilgilenecektir sanırım.
Kolay gelsin.

 

[Sa.NaL]

Güzel Abicim Mesela Açılan 4 combobox kutusuna sağ tıklayıp makro ata diyorum ya oraya if sheets(1).range("f13").value=1 then diyorum buradan sonrasına nasıl bir kod yazmam gerekirki açılan 2 combobox kutusu içinde sıralanan 1 den 6 kadar olan sayılar 3 den 6 ya kadar sıralansın sonrada end if

 

[Korhan Ayhan]

Selamlar,

Açılan 4 objesi için aşağıdaki kod yapısını kullanabilirsiniz.

Option Explicit
 
Sub Açılan4_Değiştir()
    If [F13] = 1 Then
    ActiveSheet.Shapes("Drop Down 2").Select
    With Selection
        .ListFillRange = "$C$12:$C$15"
        .LinkedCell = "$C$16"
        .DropDownLines = 8
        .Display3DShading = False
    End With
 
    Else
 
    ActiveSheet.Shapes("Drop Down 2").Select
    With Selection
        .ListFillRange = "$C$10:$C$15"
        .LinkedCell = "$C$16"
        .DropDownLines = 8
        .Display3DShading = False
    End With
    End If
    [A1].Select
End Sub

 

[Sa.NaL]

Teşekkür ederim Hocam İstediğim Tam Olarak Buydu.Bu şekilde Yapınca ad yöneticiyle yapmaya gerek kalmıyor orada kriter sayısı artınca sorun çıkıyor yetmemeye başlıyor.Çok saolun elinize emeğinize sağlık.iyi paylaşımlar üstat.