sheet yoksa...

[ozkankac]

Sheets("A.001").Select
ActiveWindow.SmallScroll toRight:=-4
Range("C9:H50,c67:h107,c124:h164,c181:h221,c238:h278 ").Select
Selection.ClearContents '
ActiveWindow.SmallScroll toRight:=-4
Range("I52").Select

Sheets("A.002").Select
ActiveWindow.SmallScroll toRight:=-4
Range("C9:H50,c67:h107,c124:h164,c181:h221,c238:h278 ").Select
Selection.ClearContents '
ActiveWindow.SmallScroll toRight:=-4
Range("I52").Select


Sheets("A.003").Select
...............................
...............................
..............................

şeklinde devam ediyor


şeklinde devam eden formlari bir kerede sildirebiliyorum sorum
ardaşık olarak devam eden sheetlerde A.001 , A.002 , A.003 gibi bazen bu sheetler eksik olabiliyor o zaman da hata mesajı veriyor yani eğer A.001 sheet ' i varsa içindeki değeri silsin A.001 adında sheet yoksa pas geçsin A.002 ' ye baksın umarım anlatabilmisimdir..


Þimdiden tesekkur ederim.


Güç İnternette Artık..

 

[osmantelci]

Sub sİL()
For Each j In Sheets
j.Range("C9:H50,c67:h107,c124:h164,c181:h221,c238:h278 ").ClearContents
Next
End Sub

Tüm sayfalardaki berlirtilen alandaki Contents leri temizliyor, böyle bir şeymi? Yoksa A.001 ... A.999 arası olanlar mı?

 

[Levent Menteşoğlu]

Kodlarınızın en başına aşağıdaki satırı ilk satır olarak yazın.

on error resume next