DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Öncelikle ilgi gösteren herkese çok teşekkür ederim.
Örnek dosya içerisinde sorumu elimden geldiğince açık anlattım.
Yardımcı olabilirseniz çok memnun olurum.
Herkese kolay gelsin...
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A5") = 5 Then
Columns("C:C").EntireColumn.Hidden = False
Range("C5").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="A,B,C,D"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
ElseIf Range("A5") = 6 Then
Columns("C:C").EntireColumn.Hidden = False
Range("C5").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Z,Y,V,U"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
ElseIf Range("A5") = 7 Then
Columns("C:C").EntireColumn.Hidden = True
End If
End Sub
İhsan bey ilginize teşekkür ederim.
Fakat ben excel kod konusunda oldukca yeniyim bu kodu nereye nasıl ekleyeceğimi belirtebilirseniz çok memnun olurum.
saygılarımla.
İhsan bey gerçekten cok yardımcı oldunuz, çok teşekkür ederim.
Yalnız 5 seçildiğinde C5 hücresinde A, B, C, D değerlerinden herhangi biri seçilebilir olmasını nasıl sağlayabilirim?
Suanda A5 6 iken C5 "A,B,C,D" değerini alıyor, herhangi biri seçilebilir değil.
Kolay gelsin.
Yardımlarınız için çok teşekkür ederim.
2003 olarak ekleyebilirmiyiz.
Teşekkürler.