Döngü Hk.

[emre311]

Merhaba;
Aşağıdaki kodu alt alta 60 kere yazıp şarta uyan satırı gizliyorum. Döngü ile aşağıdaki kodu yazabilir miyim? 13-74 satırları arasında bu kodu kullanıyorum. Yardımlarınız için şimdiden teşekkürler.

If [C13] = 0 And [E13] = 0 Then Rows("13").EntireRow.Hidden = True End If If [C14] = 0 And [E14] = 0 Then Rows("14").EntireRow.Hidden = True End If

 

[EmrExcel16]

Deneyiniz..

Sub Test()   
    For i = 13 To 74
        If Cells(i, "C") = 0 And Cells(i, "E") = 0 Then Rows(i).EntireRow.Hidden = True                  
    Next
End Sub

 

[Haluk]

Alternatif:

Sub Test2()
    For i = 13 To 74
        Rows(i).EntireRow.Hidden = (Range("C" & i) = 0) * (Range("E" & i) = 0)
    Next
End Sub

.

 

[emre311]

Çok Teşekkür ederim.

Dim a As Long For a = 14 To 73 If Cells(a, "C") = 0 And Cells(a, "E") = 0 Then Rows(a).EntireRow.Hidden = True Next a a = Empty