Makro ile çalışmasını sayfasının kopyasını alma

[vardar07]

Rica ederim. Kolay gelsin.

 

[Tevfik_Kursun]

Günaydın Sayın Vardar07,
Yazdığınız makroyu benim çalışmaya uyarlayamadım.

Sub SyfKopyala()
    Dim Sayfa As Worksheet
    Dim SayfaAdi As String
    Dim SyfAd As String
    
    SnfSys = 19
        For x = 1 To SnfSys
            Sheets("Ogretmen").Activate
            SyfAd = Range("A2").Text
            SayfaAdi = Cells(2 + x, 1).Text
            Sheets.Add.Name = SayfaAdi
            Sheets(SayfaAdi).Select
            Sheets(SayfaAdi).Move before:=Sheets(SyfAd)
            Sheets(SyfAd).Range("A:IV").Copy Sheets(SayfaAdi).Range("A1")
            Sheets("Ogretmen").Activate
        Next
     Sheets("Ogretmen").Activate
    Range("D2").Select
End Sub

Uygun olduğunuzda bakabilir misiniz?
Saygılarımla

 

[vardar07]

Günaydın Sayın Vardar07,
Yazdığınız makroyu benim çalışmaya uyarlayamadım.
Uygun olduğunuzda bakabilir misiniz?
Saygılarımla

Dosyanızı eklerseniz bir bakalım. Ne yapmak istediğinizide belirtirseniz iyi olur.

 

[Tevfik_Kursun]

Sayın Vardar07 Hocam,
İlginize teşekkür ederim, akşam üzeri örnek gönderebilirim.
Saygılarımla

 

[Tevfik_Kursun]

Merhaba Sayın Hocam,
Ekli dosyada 09A sayfasına 2, 09A_Og sayfasına 27 resim geliyor hiç sorun yok. Ancak 09A ve 09A_Og sayfaları, baskı alanı, yatay oluşu, kenar boşlukları gibi özellikleri ile çoğaltılmışsa düzgün şekilde her sayfa pdf oluyor. Yoksa her birine ayrı ayrı aynı özellikleri vermek gerekiyor.
Saygılarımla

 

[vardar07]

Sayın Tevfik_Kursun Dosyanızı inceledim Lakin bana göre çok karışık ayrıca arkadaşın konusu ile aynı değil. Siz kendi adınıza sorunla ilgili bir konu açın yardımcı olacak arkadaşlar çıkacaktır. Bu konuda yardımcı olamayacağım için üzgünüm. Kusura bakmayın.

 

[Tevfik_Kursun]

Rica ederim sayın Vardar07 Hocam,
İlginize teşekkür ederim.
Saygılarımla