- Katılım
- 5 Ocak 2007
- Mesajlar
- 138
- Excel Vers. ve Dili
- 2007 English
Ekteki dosyada anlatmaya çalştım. Yardımcı olursanız çok sevinirim.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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