macro ile yeni sayfa

[Bagcivan]

b2 sutunundaki adlarla yeni bir kitapta sayfalar oluşturmak istiyorum.

aramaya inanıp daha buna benzer açılmış konulardaki kodları kendime uyarlamaya çalıştım ama olmadı yapamadım.

ek'te biraz daha detaylı anlattım.

İyi günler.

 

[Mehmet Şahin]

Merhaba,
eki inceleyiniz. İyi çalışmalar.

 

[Bagcivan]

sayın dentex teşekkürler.

oluşturduğu sayfaların T1 Hücresine anasayfadaki tarihleri de yazdırabilirsek harika olacak.

örnek : 02.06 sayfasının T1 hücresinde 02.06.2011 gibi.

edit: sayfalar oluşturulmadan.

 

[Mehmet Şahin]

Merhaba,
ilgili prosedür kodunu aşağıdaki şekilde değiştiriniz. İyi çalışmalar.

Sub Düğme1_Tıklat()
Dim i As Integer
Dim sh As Worksheet
Dim sh_master As Worksheet
Dim sn As Long
Set sh = Sheets("anasayfa")
Set sh_master = Sheets("ornek")
sn = sh.Range("b65536").End(xlUp).Row
Application.ScreenUpdating = False
    For i = 2 To sn
        If Not sh_kontrol(Format(sh.Cells(i, "b"), "dd.mm")) Then
          sh_master.Copy after:=Sheets(Sheets.Count)
          Sheets(Sheets.Count).[t1] = Format(sh.Cells(i, "b"), "dd.mm.yyyy")
          Sheets(Sheets.Count).Name = CStr(Format(sh.Cells(i, "b"), "dd.mm"))
         End If
    Next i
Application.ScreenUpdating = True
Set sh = Nothing: Set sh_master = Nothing
End Sub

 

[Bagcivan]

sayın dentex

İlginize çok teşekkürler.

İyi Günler.

 

[Mehmet Şahin]

Rica ederim. İyi akşamlar.