Başka bir çalışma kitabındaki bir sayfada bulunan boş satırları silme

[hdm24]

Merhabalar,
Workbook1 ve workbook2 isimli iki ayrı çalışma kitabı var.

Workbook2 kitabında Sheet3 sayfasında [A3:H1000] aralığında satırlarda formül var. Formül sonucu boş olan satırları Workbook1'de Sheet1 sayfasında bir Command Button ile silecek macro yapamıyorum. Takıldım, kaldım.

Yardımcı olabilirseniz sevinirim.

NOT:
Aşağıdaki macro ile Workbook2 kitabında Sheet3 sayfasında A3'den itbaren A100'e kadar A sütünunu boş olan satırları sildirebiliyorum.

Private Sub CommandButton1_Click()
Dim ilksatir As Integer
Dim sonsatir As Integer
Dim say As Integer

ilksatir = 3
sonsatir = 1000
For say = sonsatir To ilksatir Step -1
If Cells(say, "A") = "" Then

Rows(say).Select
Selection.Delete shift:=xlUp
End If
Next say

    ActiveWorkbook.Save
End Sub

Aşağıdaki macro ile Workbook1 'de Sheet1 sayfasında bir Command Button ile Workbook2 kitabında Sheet3 sayfasında [A3:H1000] aralığını temizliyorum.

Private Sub CommandButton5_Click()
Dim wbk As Workbook
Dim strSablon As String

 
    strSablon = "C:\Woorkbook2.xlsm"
          
Set wbk = Workbooks.Open(strSablon)
With wbk.Sheets("Sheet3").Range("A3:H1000").ClearContents

End With
Application.DisplayAlerts = False
    wbk.SaveAs "C:\Woorkbook2.xlsm"
    wbk.Close
End Sub

 

[hdm24]

Aşağıdaki kod ile yaptım. İnsanın bazen basireti bağlanıyor!

Teşekkürler.

Private Sub CommandButton4_Click()
Dim sat As Integer
Dim wbk As Workbook
 Dim strSablon As String
 strSablon = "C:\Woorkbook2.xlsm"
          
Set wbk = Workbooks.Open(strSablon)

 
    For sat = 1000 To 3 Step -1
        If wbk.Sheets("Sheet3").Cells(sat, "a") = "" Then
            wbk.Sheets("Sheet3").Cells(sat, "a").EntireRow.Delete
        End If
    Next
    
    Application.DisplayAlerts = False
 wbk.SaveAs "C:\Woorkbook2.xlsm"
End Sub