Hazır şablona veri dağıtmak

[dayibasi]

merhaba

Ekteki excel dosyasını fikir vermesi açısından ekledim.

veri bankası sayfasında satır ve sütunlarda verilerimiz ve şablon sayfasında ise kullanmak istediğimiz şablonumuz var.

veri bankası sayfasında açtığımız oluştur sütununa ise veri bankasında bulunan ve işimize yarayacak maddelerin numaralarını yazıyoruz.

örnek verecek olursak, veri tabanında 11 tane madde olsun. yapacağımız işlem için 1 3 6 ve 9 numaradaki maddeler işimize yarayacak.

belirlediğimiz 4 adet maddeyi, şablondaki yerlerine dağıtıp madde sayısı kadar sayfa açmak istiyoruz.

yardımlarınız üstümüzdeki iş yükünü hafiflatecektir.

 

[Muhammet Okumuş]

Merhaba,

Sub Dağıt()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For sil = Sheets.Count To 3 Step -1
Sheets(sil).Delete
Next

Set v = Sheets("veri bankası")
son = Cells(Rows.Count, "F").End(3).Row
For i = 2 To son
Sheets("Şablon").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = v.Cells(i, 6)
kac = WorksheetFunction.Match(v.Cells(i, 6), v.Range("A1:A11"), 0)
Range("A1:F12").Replace "başlık 1", v.Cells(kac, "B")
Range("A1:F12").Replace "başlık 2", v.Cells(kac, "C")
Range("A1:F12").Replace "başlık 3", v.Cells(kac, "D")
Next
End Sub

Kodu deneyiniz.