31 tane if makrosunu tek makroda yazmak

[santana555]

Sub Dağıt()
If [D6] = [AN8] Or [D6] = [AN11] Or [D6] = [AN14] Then
[D8:D32] = ""
Else
[D8:D32] = "//"
End If
If [E6] = [AN8] Or [E6] = [AN11] Or [E6] = [AN14] Then
[E8:E32] = ""
Else
[E8:E32] = "//"
End If
If [F6] = [AN8] Or [F6] = [AN11] Or [F6] = [AN14] Then
[F8:F32] = ""
Else
[F8:F32] = "//"
End If
.
.
.
.
.
.
If [AH6] = [AN8] Or [AH6] = [AN11] Or [AH6] = [AN14] Then
[AH8:AH32] = ""
Else
[AH8:AH32] = "//"
End If
End Sub

Yukarıdaki makroları tek tek yazmak yerine "D" sütunundan "AH" sütununa kadar nasıl yazabiliriz kısa bir şekilde.
"AN8" , "AN11" , "AN14" ler sabit olacak.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod'u dener misiniz?
.

[B]Sub DAGIT_BRN[/B]()
For brn = 4 To 34
    If Cells(6, brn) = [AN8] Or Cells(6, brn) = [AN11] Or Cells(6, brn) = [AN14] Then
        Range(Cells(8, brn), Cells(32, brn)) = ""
    Else
        Range(Cells(8, brn), Cells(32, brn)) = "//"
    End If
Next
[B]End Sub[/B]

 

[santana555]

Teşekkür ederim. Tam istediğim gibi olmuş.

 

[Ömer BARAN]

Teşekkür ederim. Tam istediğim gibi olmuş.

Kolay gelsin.
.