For döngüsü içinde range aralığı

[kadir78]

İyi günler. Aşağıdaki for döngüsünde B5:G5 aralığını temizleme kodlarını yazamadım hata veriyor. Yardım edermisiniz.

dim syf as worksheet

for b = 5 to 40
if syf.range("C" & b).value = "" then
syf.range("B" & b : "G" & b).clearcontents
end if
next b

 

[Haluk]

    Dim syf As Worksheet
    
    Set syf = Sheets("Sheet1")
    
    For b = 5 To 40
        If syf.Range("C" & b).Value = "" Then
            syf.Range("B" & b & ":G" & b).ClearContents
        End If
    Next b

.

 

[kadir78]

Sağolun teşekkür ederim.

 

[kadir78]

    Dim syf As Worksheet
  
    Set syf = Sheets("Sheet1")
  
    For b = 5 To 40
        If syf.Range("C" & b).Value = "" Then
            syf.Range("B" & b & ":G" & b).ClearContents
        End If
    Next b

.

Öğrenmek için soruyorum. B5:G5 aralığına ek olarak N5:AC5 aralığıda nasıl eklenebilir. Teşekkürler.

 

[Haluk]

            syf.Range("B" & b & ":G" & b, "N" & b & ":AC" & b).ClearContents

.