Elimde oldukça fazla sayıda sayfası olan bir excel var ve her sayfa için aşağıdaki kodu yazmak zorunda kalıyorum. Sayfa2.Range("a3:av1000").Sort key1:=Sayfa2.Range("a3"), order1:=xlAscending Sayfa3.Range("a3:av1000").Sort key1:=Sayfa3.Range("a3"), order1:=xlAscending Sayfa4.Range("a3:av1000").Sort key1:=Sayfa4.Range("a3"), order1:=xlAscending . .
Bir kaç yere bakmama rağmen maalesef çalıştırabildiğim bir kod bulamadım. Denediğim kodlar ise kısaca;
x= "sayfa"&p p = 3 to 36 sheets("x").range(........
aldığım hata : subscript out of range _____________________________
dim x(3 to 36) as string
sayfa.........
aldığım hata : constant expression required
yardımcı olabilirseniz sevinirim. İyi günler
Dim sayfa As Worksheet For Each sayfa In ThisWorkbook.Sheets sayfa.Range("a3:av1000").Sort key1:=sayfa.Range("A3"), order1:=xlAscending Next
bi bakın
Çok teşekkürler yardımcı olduğunuz için. İyi günler dilerim.