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..
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..