toplam sıfırsa satır gizle

[euphrates55]

N ve RE hücreleri arasında
N4:RE4 Hücrelerinin toplamı sıfırsa 4.satır
N5:RE5 Hücrelerinin toplamı sıfırsa 5.satır
.
.
.
.
13. satıra kadar olacak

aynı aralıkta bu sefer 19. satırdan başlayarak 28. satıra kadar olacak şekilde koda ihtiyacım var.
teşekkürler.

 

[Ömer]

Merhaba,

Deneyiniz.

Sub Gizle()
        
    Dim i As Byte, Wf As WorksheetFunction
    
    Set Wf = WorksheetFunction
    
    Application.ScreenUpdating = False
    
    Rows("4:13").EntireRow.Hidden = False
    Rows("19:28").EntireRow.Hidden = False
    
    For i = 4 To 13
        If Wf.Sum(Range("N" & i & ":RE" & i)) = 0 Then
            Rows(i).EntireRow.Hidden = True
        End If
    Next i
    
    For i = 19 To 28
        If Wf.Sum(Range("N" & i & ":RE" & i)) = 0 Then
            Rows(i).EntireRow.Hidden = True
        End If
    Next i

End Sub

 

[Muzaffer Ali]

Merhaba.
Alternatif olsun.
Eğer belirttiğiniz alanlar ikiden fazlaysa ve alanlar arası standart ise aşağıdaki kod daha verimli olabilir.

Sub Test()
    Dim Bak As Integer
    Dim Say As Integer
    For Bak = 4 To Cells(Rows.Count, "N").End(xlUp).Row
        Say = 1 + Say
        If WorksheetFunction.Sum(Range("N" & Bak & ":RE" & Bak)) = 0 Then
            Rows(Bak).EntireRow.Hidden = True
        End If
        If Say = 10 Then
            Bak = 5 + Bak
            Say = 0
        End If
    Next
End Sub

 

[euphrates55]

teşekkürler.
hazır birilerini bulmuşken

Aynı satırdaki iki sayının arasını başka satırda doldurma

Aynı satırdaki iki sayının ya da sayı olmayabilir yazı olabilir harf olabilir, arasını başka satırda araları dolacak şekilde formülize etmek istiyorum.

www.excel.web.tr

buraya da bakabilme şansınız var mı acaba?