Liste

[mertdalagan]

Ekteki dosyada anlatmaya çalştım. Yardımcı olursanız çok sevinirim.

 

[conari]

Örnek teki verileri bu şekilde yapmak çok zor .

Tüm verileri sütun sütun yazarsanız o zaman daha basit çözümler üretilebilir.

 

[hamitcan]

Verdiğiniz bilgilere göre bir dosya hazırladım. Herhalde veriler daha geniş olmalı.
Örneğe bakarak dosyanıza uyarlamaya çalışın.

 

[mertdalagan]

ilgilendiğiniz için çok teşekkür ederim dosyanın içine detaylı olarak bilgileri yazmamamın nedeni sizin vakitten kazanmanızı sağlamak için. Aslında bana nasıl yapıldığını biraz anlatırsanız bende belki kendi kendime başarabilirim mesela dün ilk kez visual basic de makro yarattım. inşallah yakın zamanda bende buradaki arkadaşlara yardım edebilecek bilgiye sahip olurum. teşekkürler.

 

[hamitcan]

1- Öncelikle, açılır kutu değerlerini bir hücreye bağladım
2- Sonra, makroları yarattım. Bu makroları bu kutulara bağladım.

Sub Açılan1_Değiştir()
If [a3] = 1 Then
deg = "$M$3:$M$6"  'Bağladığım hücre burada "a3" hücresi.Koşul sağlanıyorsa ilgili alanı (deg)'e ata
ElseIf [a3] = 2 Then
deg = "$Q$3:$Q$6"
ElseIf [a3] = 3 Then
deg = "$R$3:$R$6"
End If
    ActiveSheet.Shapes("Drop Down 4").Select
        With Selection
        .ListFillRange = deg 'Açılır kutunun bağlı olduğu aralık
    End With
[h11].Select
End Sub

 

[mertdalagan]

teşekkürler

artık makroları kopyala yapıştır yapa yapa öğrenicem birşeyler. çok sağ olun.