Makro ile başka sayfalardaki verileri temizleme

[vaskal]

Çalışmam açılırken veya kapanırken yada bir butonu tıklayınca bazı sayfalardaki bazı hücre verilerinin temizlenmesini istiyorum. Bu iş için aşağıdaki kodları kullanıyorum, fakat makoyu çalıştırdığımda her sayfayı hızlı bir şekilde açıp temizleyip kapatıyor. Ozamanda göze hiç hoş gelmeyen bir ekran hareketliliği oluyor. Sayfayı değştirmeden diğer sayfalardaki bazı hücreleri temizlemek mümkünmü?

Sub Seçileni_Temizle()
Sheets("PERSONEL BİLGİLERİ").Select
Range("L4:O16").Select
Selection.ClearContents
Sheets("SEVK").Select
Range("F12").Select
Selection.ClearContents
Sheets("DİŞ SEVKİ").Select
Range("AA12:AD12").Select
Selection.ClearContents
Sheets("ÜcretOnayı").Select
Range("A11:A23").Select
Selection.ClearContents
Sheets("TERFİ").Select
Range("A8:A16").Select
Selection.ClearContents
Sheets("Ek Ders").Select
Range("B7:B22").Select
Selection.ClearContents
Sheets("Liste").Select
Range("A9:A21").Select
Selection.ClearContents
End Sub

 

[Seyit Tiken]

Silme Örnekleri :

Sub Düğme1_Tıklat()
Sayfa2.[a1:a20] = ""
Sheets(3).[c1:c20] = ""
Sheets("Liste").[d1:d20] = ""
Sheets("Sevk").[e1:e20] = ""
[sayfa1!b1:b20] = ""
End Sub

 

[Levent Menteşoğlu]

Kodları select komutundan arındıracak şekilde aşağıdaki gibi düzenleyin.

Sub Seçileni_Temizle()
Sheets("PERSONEL BİLGİLERİ").Range("L4:O16").ClearContents
Sheets("SEVK").Range("F12").ClearContents
Sheets("DİŞ SEVKİ").Range("AA12:AD12").ClearContents
Sheets("ÜcretOnayı").Range("A11:A23").ClearContents
Sheets("TERFİ").Range("A8:A16").ClearContents
Sheets("Ek Ders").Range("B7:B22").ClearContents
Sheets("Liste").Range("A9:A21").ClearContents
End Sub

 

[Orion1]

Aşağıdaki kodlar tamda sizin aradığınız kodlar.
Kolay gelsin.

Sub Seçileni_Temizle2()
Application.ScreenUpdating = False
Sheets("PERSONEL BİLGİLERİ").Range("L4:O16").ClearContents
Sheets("SEVK").Range("F12").ClearContents
Sheets("DİŞ SEVKİ").Range("AA12:AD12").ClearContents
Sheets("ÜcretOnayı").Range("A11:A23").ClearContents
Sheets("TERFİ").Range("A8:A16").ClearContents
Sheets("Ek Ders").Range("B7:B22").ClearContents
Sheets("Liste").Range("A9:A21").ClearContents
Application.ScreenUpdating = True
MsgBox "TEMİZLEME TAMAMLANDI..!!"
End Sub

 

[Orion1]

Kodları select komutundan arındıracak şekilde aşağıdaki gibi düzenleyin.

Sayın Hocam Pardon ,cevabınızı görememişim.:hey:

 

[vaskal]

Arkadaşlar ilginize Çok teşekkür ettim....
Bu ve bunun gibi forum siteleri ssayasinde kendi işimizi kendimiz yapar hale geldik.

Sitede emeği geçenler ve ve soruları yanıtlayanlar gerçekten çok büyük bir hizmet veriyorlar.

 

[vaskal]

Şimdi kodları denedim mükemmel olmuş. Bu arada VBA kodlarını biraz daha kavramış oldum.