Hücre aralıklarını temizleme makrosu

[otufan]

k (Tanımlanmış bir değer)

eğer k 1-20 arası ise D335 aralığını temizle
eğer k 21-40 arası ise D635 aralığını temizle
eğer k 41-60 arası ise D935 aralığını temizle
eğer k 61-80 arası ise D1235 aralığını temizle
eğer k 81-100 arası ise D1535 aralığını temizle
eğer k 100 den büyükse D350 aralığını temizle


makrosunu

 

[BG]

Sayın otufan

k (Tanımlanmış bir değer)

eğer k 1-20 arası ise D335 aralığını temizle
eğer k 21-40 arası ise D635 aralığını temizle
eğer k 41-60 arası ise D935 aralığını temizle
eğer k 61-80 arası ise D1235 aralığını temizle
eğer k 81-100 arası ise D1535 aralığını temizle
eğer k 100 den büyükse D350 aralığını temizle


makrosunu

"k" tanımlanmış bir değer ise kodlarınızın altına bu şekilde ekleme yapıp denermisiniz.

If k >= 1 And k <= 20 Then
            Range("D3:D35").ClearContents
        ElseIf k > 20 And k <= 40 Then
            Range("D6:D35").ClearContents
        ElseIf k > 40 And k <= 60 Then
            Range("D9:D35").ClearContents
        ElseIf k > 60 And k <= 80 Then
            Range("D12:D35").ClearContents
        ElseIf k > 80 And k <= 100 Then
            Range("D15:D35").ClearContents
        ElseIf k > 100 Then
            Range("D3:D50").ClearContents
        End If

 

[otufan]

Teşekkür ederim,deneyeceğim.