Belirtilen şartlardaki bölümün makrodan etkilenmemesi

[leumruk]

Selamlar...
Belli bir sütunda veya sütunlarda makro ile işlem yapmak istiyorum. Ama bazı hücrelerin makronun gerçekleştirdiği işlemden etkilenmemesini istiyorum. Bunu sağlamamız mümkün mü?
Örneğin: A, B, C, D sütunlarında 20 ve 40 olan hücreler sabit kalsın diğerlerine 25 yazılsın.
Saygılar...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Alan seçip kodu çalıştırın.

Option Explicit
 
Sub DEĞER_DEĞİŞTİR()
    Dim ALAN As Range
    For Each ALAN In Selection
    If ALAN.Value = 20 Or ALAN.Value = 40 Then
    Else
    ALAN.Value = 25
    End If
    Next
End Sub

 

[leumruk]

Syn. Hocam,
Teşekkür ederim. Güzel bir çözüm olmuş.
Saygılar...