bir hücredeki değere gore diğer hucrede secim yapılabilmesi ile ilgili makro

[bmustano]

a1 hücresindeki değer 5 ile 10 arasında ise b1 hucresindeki 1-2-3-4-5 (doğrulama daki liste ozelliğini kullanarak oluşturduğum bir liste) değerlerinden 1 rakamının bulunmamasını nasıl sağlayabilirim???

yardımcı olursanız çok sevinirim...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    If [A1] >= 5 And [A1] <= 10 Then
    [B1] = ""
    With Range("B1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
         Operator:=xlBetween, Formula1:="2,3,4,5"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    Else
    With Range("B1").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
         Operator:=xlBetween, Formula1:="1,2,3,4,5"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    End If
End Sub

 

[bmustano]

kardeş çok çoookkk saolasın...

 

[bmustano]

sevgili cost control senin gonderdiğin kodda 1 2 3 4 5 rakamlarını değilde virgullü sayılar (1-1.5-2.5) kullandım ama bu rakamlar hücreye tarih olarak yansıdı. bide ben bu ondalık sayıları noktalı değilde virgüllü yazdırabilirmiyim hucreye??? cunku bircok formulde bu hucredeki değerleri virgüllü olarak değerlendirdim.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. ALAN-AD tanımlaması ile yapılmıştır. Sayfa2 deki listeleri dilediğiniz gibi değiştirip kontrol edermisiniz.