Girilen hücre sayısına göre Sayfa Oluşturma

[fiber_optic]

Merhaba,

Ekteki excel sayfasında yaptığım açıklama üzere Girilen sıra noları kadar sayfa2 den kopya oluşturup her bir açıklamayı bu oluşturulan sayfaların A9 hücrelerine yapıştırılacak


Konu hakkında bilgilerinizi ve yardımlarınız rica ederim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    SATIR = 2
    Set EK = ThisWorkbook
    Set YK = Workbooks.Add
    SAY = YK.Sheets.Count
    ADET = EK.Sheets("Sayfa1").[B65536].End(3).Row - 1
    If SAY < ADET Then
    Sheets.Add , After:=Worksheets(Sheets.Count)
    End If
    For X = 1 To Sheets.Count
    Sheets(X).Name = EK.Sheets("Sayfa1").Cells(SATIR, 2)
    EK.Sheets("Sayfa2").Cells.Copy Sheets(X).[A1]
    Sheets(X).[A9] = EK.Sheets("Sayfa1").Cells(SATIR, 3)
    SATIR = SATIR + 1
    Next
    Sheets(1).Select
    ActiveWorkbook.Save
    ActiveWorkbook.Close 0
    Set EK = Nothing
    Set YK = Nothing
    MsgBox "&#304;&#351;leminiz tamamlanm&#305;&#351;t&#305;r.", vbInformation
End Sub

 

[ersoyalan]

Hocam iyi geceler Ekli örnek benimde işime yarıyacak bir örnek fakat verdiğiniz kodları çalıştırdığım zaman işleminiz tamamlanmıştır mesajı veriyor fakat herhangi bir işlem olmuyor..

 

[Korhan Ayhan]

Selamlar,

İlk mesajdaki dosyayı indirin. Benim verdiğim kodu bu dosyada çalıştırın. Belgelerim klasörüne yeni dosya olarak kaydedecektir.

Örnek dosya ektedir. İncelermisiniz.

 

[ersoyalan]

Hocam deniyorum fakat olmuyor..

 

[Korhan Ayhan]

Selamlar,

Mesajımdaki koda küçük bir eklenti yaptım. Ayrıca örnek dosya ekledim. İncelermisiniz.

 

[ersoyalan]

Hocam sayfa yaratılıyor fakat aşağıdaki mesajı veriyor

ActiveWorkbook.Save

 

[Korhan Ayhan]

Selamlar,

Mesajınız üzerine dosyayı tekrar indirip denedim. Kodlar hiç hata vermeden gayet güzel çalıştı.

 

[ersoyalan]

hocam merhaba şimdi tamamdır..dün gece denediğimde hata veriyordu şimdi vermiyor..
demekkki uyku sersemiymişim.. )

 

[fiber_optic]

şöyle değiştirecek olsak acaba oluşturulan sayfaların önizlemesini gösterecek kapat dedigimizde kaydetmeden kapatacak

 

[fiber_optic]

Sayfa 1 de en son 103 var örneğin 103 ün altına 104 diye bir satır eklediğimde sonra Command butonunu tıkladığımda 104 diye sayfa oluşturmuyor bir bakar mısınız