Çalışma kitabındaki sayfaların yarısını silme

[karakaçan]

iyi akşamlar dostlar.
Elimde bulunan excel doyasındaki sayfaların ilk yarısını kod ile silmek istiyorum(gereksiz olduğu için) Örneğin 60 sayfa varsa ilk 30 unu; 40 sayfa varsa ilk yirmisini. Kodu nasıl yazabilirim? Yardımcı olabilecek varsa şimdiden teşekkür ederim.

 

[Orion1]

25 sayfa varsa.

 

[ÖmerFaruk]

Ben de bir katkı vereyim.
Sayfalar 60 tane ve çift sayıda olsun hatta.
ilkten kastınız Excel penceresinden gördüğünüz ilk 30 sayfa mı yoksa VBA penceresinde sayfa numarasındaki ilk 30 sayfa mı?

 

[karakaçan]

Ben de bir katkı vereyim.
Sayfalar 60 tane ve çift sayıda olsun hatta.
ilkten kastınız Excel penceresinden gördüğünüz ilk 30 sayfa mı yoksa VBA penceresinde sayfa numarasındaki ilk 30 sayfa mı?

Ben de bir katkı vereyim.
Sayfalar 60 tane ve çift sayıda olsun hatta.
ilkten kastınız Excel penceresinden gördüğünüz ilk 30 sayfa mı yoksa VBA penceresinde sayfa numarasındaki ilk 30 sayfa mı?

Öncelikle ilginiz için teşekkür ederim.
Veri aldığım bir program var ve bu program verileri excele aktarıyor. Her seferinde çift sayıda sayfa oluşturuyor. Sayfa 1, Sayfa2, Sayfa 3,......... şeklinde sayfalar oluşturuyor. Örneğin 60 sayfa veri varsa excel penceresindeki sayfa1 den başlayarak Sayfa 30 a kadar olanları işime yaramadığı için silmek istiyorum. Aslında bunu manuel de yapabilirim fakat benim istediğim kod başka bir kodun parçası olacak o yüzden yardım talep ediyorum. Teşekkür ederim.

 

[ÖmerFaruk]

Dosyanızın yedeğini alın.
Aşağıdaki kodu bir modüle içinde çalıştırabilirsiniz.

Sub SayfaSil()
    Application.DisplayAlerts = False
    For i = 1 To Worksheets.Count / 2
        Worksheets(i).Delete
    Next i
    Application.DisplayAlerts = True
End Sub

 

[karakaçan]

Dosyanızın yedeğini alın.
Aşağıdaki kodu bir modüle içinde çalıştırabilirsiniz.

Sub SayfaSil()
    Application.DisplayAlerts = False
    For i = 1 To Worksheets.Count / 2
        Worksheets(i).Delete
    Next i
    Application.DisplayAlerts = True
End Sub

çok teşekkürler sağolun.

 

[karakaçan]

çok teşekkürler sağolun.

Hocam nedense kod sayfa 1 , sayfa 3 gibi tek numaralı sayfaları siliyor.

 

[halit3]

kodun bu kısmını

Worksheets(i).Delete

bununla değiştir.

Worksheets(1).Delete

 

[karakaçan]

kodun bu kısmını

Worksheets(i).Delete

bununla değiştir.

Worksheets(1).Delete

Eyvallah halit3 uzmanım teşekkürler