• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım otomatik sayfa çoğaltımı

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
234
En iyi yanıt
0
Puanları
18
Yaş
42
Konum
Ankara
Ad Soyad
Ufuk İNCE
Office Vers.
Office 2019 Professional
Arkadaşlar sayfaları "taşı veya kopyala"," kopya oluştur" ,"yeniden adlandır" sistemiyle kullandıkları dosyaları oluşturan arkadaşlarım vardır. Benim bunları şu şekilde macro ile yapabilmem mümkünmüdür? Mesela 03 sayfasını ay sonuna kadar çoğalt diye bir sistem olarak 30.06.2020 ye kadar otomatik olarak oluşturacak ve her sayfadaki F1 alanına sayfanın adı olan 03.06.2020 , 04.06.2020 otomatik olarak verecek. Buna nasıl bir sistem kurulabilir?

Teşekkürler..
 

Ekli dosyalar

  • ÇOĞALT.xlsm
    12.2 KB · Görüntüleme: 1

leguminosea

Yeni Üye
Katılım
26 Ocak 2020
Mesajlar
89
En iyi yanıt
5
Puanları
18
Konum
Tokat
Ad Soyad
Erhan ÖZER
Office Vers.
2019 Pro Plus 64 TR
Dosyanız ektedir.
 

Ekli dosyalar

  • ÇOĞALT.xlsm
    37.8 KB · Görüntüleme: 7

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
234
En iyi yanıt
0
Puanları
18
Yaş
42
Konum
Ankara
Ad Soyad
Ufuk İNCE
Office Vers.
Office 2019 Professional
Dosyanız ektedir.

1 nolu sayfaya ŞABLON ismini versek ondan çoğaltsak bunun için macro'da ne yapmamız gerekli hocam? ŞABLON'da butona tıklayacak hazırda 10 sayfa varsa 11 den 30 a kadar çoğaltacak mesela. Teşekkürler.
 

leguminosea

Yeni Üye
Katılım
26 Ocak 2020
Mesajlar
89
En iyi yanıt
5
Puanları
18
Konum
Tokat
Ad Soyad
Erhan ÖZER
Office Vers.
2019 Pro Plus 64 TR
Kodu alttaki gibi değiştirin.

Kod:
Sub Cogalt()
Dim gun As Integer, basla As Date
    basla = inputbox("Ayın ilk gününün tarihini girin.(01.aa.yyyy)")
    Sheets("Şablon").Range("F1").Value = basla
    son = WorksheetFunction.EoMonth(basla, 0)
    gun = son - basla - Worksheets.Count + 2
For i = 1 To gun
        sonsyf = Worksheets.Count
        Sheets("Şablon").Copy After:=Sheets(sonsyf)
        Sheets("Şablon" & " (2)").Name = sonsyf
    If sonsyf = 1 Then GoTo p
        Range("F1") = Worksheets(sonsyf).Range("F1") + 1
p:
        On Error Resume Next
        ActiveSheet.Shapes.Range(Array("Button 1")).Delete
Next i
    Sheets("Şablon").Range("F1").ClearContents
End Sub
 
Üst Alt