Sayfaların sırasını değiştirmek

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Makro ile sayfaların sırasını (konumunu) değiştirmek mümkün mü?
Saygılarımla

 

[muygun]

Merhaba;

Boş bir modüle;

Sub Makro1()
Sheets("Sayfa2").Select
Sheets("Sayfa2").Move Before:=Sheets(1)
Sheets("ana").Select
End Sub

yerleştirerek deneyin. (Yeni makro kaydet kodları ile oluşturuldu)
İyi çalışmalar.

 

[Tevfik_Kursun]

Teşekkür ederim Muygun Hocam,
Saygılarımla

 

[Tevfik_Kursun]

Merhaba Sayın Muygun Hocam,

            Sheets(SayfaAdi).Move before:=Sheets(SyfAd)
            Sheets(SyfAd).Range("A:IV").Copy Sheets(SayfaAdi).Range("A1")
            Sheets("Ogretmen").Activate

Burada birşeyler eksik sanırım. Kopyalama sonrası sayfa özelliklerinin çoğunu kaybediyor. Tekli kopyada hiç sorunsuz çalışıyor.
Sanırım aynı sorun başka arkadaşlarda da var.
Saygılarımla