DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub kod()
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
B_sut = [B65536].End(3).Row
C_sut = [C65536].End(3).Row
If B_sut = C_sut Then
For i = 2 To B_sut
If Cells(i, "c") - Cells(i, "b") < 3 Then
Rows(i).EntireRow.Hidden = True
Else: End If
Next i
Else: End If
Application.ScreenUpdating = True
MsgBox ""
End Sub
=(C2-B2)-AŞAĞIYUVARLA((C2-B2+HAFTANINGÜNÜ(B2;1)-1)/7;0)+EĞER(HAFTANINGÜNÜ(B2;1)=1;1;0)