Soru hücre değerine göre hücre kilitleme

[mehmet8x]

Merhaba,
Hücre değerine göre sadece önündeki hücreyi kilitleyebilmek ve bunu A:A , C:C, E:E sütün hücrelerini de kapsayacak şekilde yapmak mümkün müdür?
Örn: B2 =X ise A2 hücresini, B8 =X ise A8 hücresini kilitleyip renklendirmek.

Saygılarımla

 

[Korhan Ayhan]

Sayfanızın kod bölümüne uygulayınız.

Ben A-B sütunlarına göre kurguladım. Siz kendinize göre revize edebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
    ActiveSheet.Unprotect "+++"
    Cells.Locked = False
    For Each Veri In Target.Cells
        If Veri.Column = 2 Then
            Select Case UCase(Veri.Value)
                Case "X"
                    Veri.Previous.Locked = True
                    Veri.Previous.Interior.ColorIndex = 3
                Case Else
                    Veri.Previous.Locked = False
                    Veri.Previous.Interior.ColorIndex = False
            End Select
        End If
    Next
    ActiveSheet.Protect "+++"
End Sub

 

[mehmet8x]

Korhan Bey,

Çok teşekkür ederim tam istediğim gibi olmuş ellerinize sağlık.
Korhan Bey; Bu formülü D ve K:K sütunları içinde revize etmeye çalıştım fakat başarılı olamadım tekrar yardımcı olabilir misiniz?

Saygılarımla

 

[Korhan Ayhan]

Hangi sütunlara göre nereler kilitlenecek?

 

[mehmet8x]

Korhan Bey,

D sütunundaki veriye ( X ) göre önündeki hücre ve K sütunundaki veriye ( X ) göre önündeki hücre kilitlenerek renklendirilecek .

Örn: D2 =X ise C2 hücresini, K8 =X ise J8 hücresini kilitleyip renklendirmek.


ilginize çok teşekkür ederim.

 

[mehmet8x]

Korhan Bey Merhaba ,
Yardımcı olabilir misiniz?

D sütunundaki veriye ( X ) göre önündeki hücreyi ve K sütunundaki veriye ( X ) göre önündeki hücre kilitlenerek renklendirilecek .

Örn: D2 =X ise C2 hücresini, K8 =X ise J8 hücresini kilitleyip renklendirmek.


ilginize çok teşekkür ederim

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B:B,D:D,K:K")) Is Nothing Then Exit Sub
    ActiveSheet.Unprotect "+++"
    Cells.Locked = False
    For Each Veri In Target.Cells
        Select Case Veri.Column
            Case 2, 4, 11
            Select Case UCase(Veri.Value)
                Case "X"
                    Veri.Previous.Locked = True
                    Veri.Previous.Interior.ColorIndex = 3
                Case Else
                    Veri.Previous.Locked = False
                    Veri.Previous.Interior.ColorIndex = False
            End Select
        End Select
    Next
    ActiveSheet.Protect "+++"
End Sub

 

[mehmet8x]

Korhan Bey,

Teşekkür ederim tam istediğim gibi olmuş emeğinize ve ellerinize sağlık.

Ek olarak

Sipariş sayfasında "X" gördüğü hücrelerde sadece F2 ENTER yaptırabilirmiyiz
Saygılarımla

 

[Korhan Ayhan]

Mesajınızdan anladığım kadarıyla X değerleri formül sonucu oluşuyor. Tabi siz bunu en başta belirtmediğiniz için boşa kürek çekmiş olduk.

Verdiğim kodu sayfanın aktif olma olayına yazarsanız F2+ENTER yapmaktan kurtulursunuz.