Soru Birden Fazla Dosyanın Data Sayfasının İçeriğini Temizlemek

[bulentkars]

Arkadaşlar Merhaba,

C:\ŞAHİN\Database\ Klasörü içerisinde birden fazla uzantısı".xlsb" olan excel çalışma kitapları var,

Yapmak istediğim;
1- Makro çalıştığında Silmek istiyormusunuz uyarısını 2 kez verecek. Kabul ettiğimizde,
2 - C:\ŞAHİN\Database\ Klasörü içinde dosyaları tek tek açıp "Data" sayfalarının "A2:J" aralığını temizlemek istiyorum.
Yardımcı Olabilirseniz Çok Sevinirim.
Şİmdiden Teşekkürler

 

[bulentkars]

Arkadaşlar Merhaba,

C:\ŞAHİN\Database\ Klasörü içerisinde birden fazla uzantısı".xlsb" olan excel çalışma kitapları var,

Yapmak istediğim;
1- Makro çalıştığında Silmek istiyormusunuz uyarısını verecek. Kabul ettiğimizde,
2 - C:\ŞAHİN\Database\ Klasörü içinde bulunan tüm ".xlsb"dosyaların "Data" sayfalarının "A2:J" aralığını temizlemek istiyorum.
Şimdiden Teşekkürler

 

[Ömer]

Merhaba,

Deneyiniz.

Sub test()
    Dim yol As String, dosya As String, sor As String
    sor = MsgBox("Silmek istiyormusunuz", vbYesNo, "Aralık Silme")
    If sor = vbYes Then
        Application.ScreenUpdating = False
        yol = "C:\ŞAHİN\Database\"
        dosya = Dir(yol & "*.xlsb")
            Do While dosya <> ""
                Workbooks.Open yol & dosya
                Sheets("Data").Range("A2:J" & Rows.Count) = ""
                ActiveWorkbook.Save
                ActiveWorkbook.Close
                dosya = Dir()
            Loop
        Application.ScreenUpdating = False
    End If
End Sub

 

[bulentkars]

Ömer Bey,

Size çok çok teşekkür edeyorum, Elinize Emeğinize sağlık..