şablon sayfasını çoğaltma

[dayibasi]

değerli arkadaşlar ve üstadlar;

1. çalışma sayfasını "ana tablo" diye adlandırdım. burada satır ve sütunlarda bazı verilerimiz var.

2. sayfa ise " şablon " olarak adlandırıldı.

1. sayfadaki 4 adet değer ( örnek gereği 1, 3, 6, 9 seçilmiş olsun ) ile işlem yapmamız gerekiyor.

işlem ise şu;

1 değerine karşılık gelen a, b, c değerlerini şablondaki uygun yerlere ( başlık1, başlık2, başlık3 ) koymak. ( buradaki seçimimiz gereği ayrıca 3, 6, 9 için de)

tabi bunun için şablonu 4 defa çoğaltmamız gerektiğini de eklemeliyim.

işlemi 4 defa yapmak zorunda değiliz, bir dahaki sefer 30 kere de olabilir.

ana tablodaki satır ve sütun sayısı da artabilir, şablondaki yerleştirilen hücrelerde değişebilir.

anlatabildiğimi umarım

yardımlarınız için şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

İşlem Sonucu:

Sub Kod()
Application.ScreenUpdating = False
On Error Resume Next

Dim SA As Worksheet
Set SA = Sheets("ana tablo")

For i = 2 To SA.[F65536].End(3).Row


If SA.Cells(i, "F") <> "" Then

If SA.Cells(i, "G") <> "X" Then

syf = SA.Cells(i, "F")
Sheets("şablon").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = syf

ActiveSheet.Range("B3") = SA.Cells(syf + 1, "B")
ActiveSheet.Range("C8") = SA.Cells(syf + 1, "C")
ActiveSheet.Range("E6") = SA.Cells(syf + 1, "D")
SA.Cells(i, "G") = "X"
Else
End If

Else
End If

Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

Düzeltme: Son ilavelere göre dosya ve kodlar revize edildi.

. . .

 

[dayibasi]

merhaba

cevap verdiğiniz saate bakıyorum, elimden teşekkür etmekten başka bir şey gelmiyor.

aradığım tam olarak bu. ancak 2. kere çalıştırdığımda, ilk çalışmadan kalanların yanına sayfa açıyor. her çalıştırmada yeni sayfaları mevcut sayfaların üstüne ekliyor. her çalıştırmada sadece en son sayfaları gösterebilir miyiz?

teşekkürler

 

[Emir Hüseyin Çoban]

. . .

# 2 nolu mesajımdaki dosyayı ve kodları istediğinize göre revize ettim.
G sütununu kullanarak bir koşul daha eklendim. Kontrol sütununda X var ise o sayfayı yeniden açmaz. Olmayan sayfayı ekledikten sonra sütuna X yazar.

. . .

 

[dayibasi]

merhaba

ancak sekme adları hep şablon şeklinde görünüyor. sayfa daha önceden açılmışsa, 1 değil şablon (2 mesela ) diye görünüyor. bunu da hallerderseniz, büyük bir dertten kurtulurum.

selamlar

 

[Emir Hüseyin Çoban]

merhaba

ancak sekme adları hep şablon şeklinde görünüyor. sayfa daha önceden açılmışsa, 1 değil şablon (2 mesela ) diye görünüyor. bunu da hallerderseniz, büyük bir dertten kurtulurum.

selamlar

. . .

Tabloda olan sayfayı tekrar açmaya çalışırsanız bu şekilde yapması normal değil mi ?
Kodlamalar yazılanların dışında işlem yapmaz, kendisi mantık üretmez.

Örneğin 3 nolu satırın sayfası mevcut. Kodlar sayfanın zaten varolduğunu tespit edecektir.
Yinede açmak istiyorsanız, başka isimle açacaktır.
Tekrar açıp açmama istediğinide Kontrol sütunu ile kontrol altına aldık.

. . .

 

[dayibasi]

demek istediğim, çalıştır tuşuna her bastığımda döngüyü en baştan çalıştırması. ana tablo verilerinde değişiklik yapmışsam, çalıştır tuşuna bastığımda şablondan üretilen sayfalar en baştan üretilmeli.

bu hali de işimi görüyor, ancak olursa sevinirim.

teşekkürler

 

[Emir Hüseyin Çoban]

demek istediğim, çalıştır tuşuna her bastığımda döngüyü en baştan çalıştırması. ana tablo verilerinde değişiklik yapmışsam, çalıştır tuşuna bastığımda şablondan üretilen sayfalar en baştan üretilmeli.

bu hali de işimi görüyor, ancak olursa sevinirim.

teşekkürler

. . .

Dosyanız ektedir.
Çalışma adımlar;
F sütunundaki sayfa isimleri daha önceden var ise, önce o sayfaları siler.
Daha sonra F sütunundaki listeye göre tekrar sayfaları oluşturur.

. . .

 

[dayibasi]

evet, buydu.

teşekkürler