boş satırları gizle

[met007]

arkadaşlar üstatların oluşturduğu makroları kullanarak aşağıdaki makroyu kendimce uyarladım. ancak çok uzun ve çok yavaş hazırlıyor. bu makroyu kısaltıp işlem süresini uzatmamız mümkün mü acaba?

Sub satirgizle()
Dim i As Integer
For i = 59 To 1062
If Sheets("YAKLAŞIK MALİYET").Cells(i, 1).Value <> "" Then
Rows(i).Hidden = False
Else
Sheets("YAKLAŞIK MALİYET").Rows(i).Hidden = True
End If
Next i
For i = 59 To 1062
If Sheets("TEKLİF").Cells(i, 1).Value <> "" Then
Rows(i).Hidden = False
Else
Sheets("TEKLİF").Rows(i).Hidden = True
End If
Next i
For i = 59 To 1062
If Sheets("TEKLİF (2)").Cells(i, 1).Value <> "" Then
Rows(i).Hidden = False
Else
Sheets("TEKLİF (2)").Rows(i).Hidden = True
End If
Next i
For i = 59 To 1062
If Sheets("TEKLİF (3)").Cells(i, 1).Value <> "" Then
Rows(i).Hidden = False
Else
Sheets("TEKLİF (3)").Rows(i).Hidden = True
End If
Next i
For i = 59 To 1062
If Sheets("YAKLAŞIK MALİYET (2)").Cells(i, 1).Value <> "" Then
Rows(i).Hidden = False
Else
Sheets("YAKLAŞIK MALİYET (2)").Rows(i).Hidden = True
End If
Next i
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sub bossatirgizle()
sayfa = Array("YAKLAŞIK MALİYET", "TEKLİF", "TEKLİF (2)", "TEKLİF (3)", "YAKLAŞIK MALİYET (2)")
For a = 0 To UBound(sayfa)
Set s1 = Sheets(sayfa(a))
s1.Range("A59:A1062").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
Next
End Sub