Selam excel.web.tr ustaları
benim bir soruma iki cevap vermiş olacaksınız. Sorum şu Kapalı olan bir excel dosyasından nasıl sayfa sileriz ve nasıl sayfa ekleriz.
C sürücüsündeki Deneme klasöründeki kapalı deneme çalışma kitabının deneme1,deneme2,deneme3,deneme4 sayfalarını siler.
Sub SayfaSil()
Dim silinecek()
Application.ScreenUpdating = False
silinecek = Array("deneme1", "deneme2", "deneme3", "deneme4")
Set xlBook = Workbooks.Open("C:\deneme\deneme.xls")
For Each sira In silinecek
For Each sayfa In xlBook.Worksheets
If sira = sayfa.Name Then
Application.DisplayAlerts = False
sayfa.Delete
Application.DisplayAlerts = True
End If
Next
Next
xlBook.Save
xlBook.Close
Application.ScreenUpdating = True
Set xlBook = Nothing
Msgbox "Bitti"
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.