değerli arkadaşlar hepinize merhaba,
her ay düzenli olarak yaptığım bir işi makro yolu ile kolaylaştırabilirmiyim diye düşünüyorum, yardımınızı bekliyorum. Konu şudur:
400 kişilik bir isim listesi var. Bu isimlerin karşısında ocak , şubat, mart gibi 12 ayı içeren 12 sütün var.
başka bir sayfada özel bir tablo var. Bu tabloda sözkonusu 400 kişinin içinden bir ismi tablonun başındaki sütüna yazıldığı zaman, kişinin 12 aya ait verileri tek bir geliyor. Adeta karne gibi tek bir kişinin verilerini gösteriyor. Bu sayfada düşeyara formülünü kıllandım. bunda sorun yok.
her ay bu verileri döküp pdf e çevirip şahıslara mail atıyorum. sırasıyla listeyi kopyala yapıştır yaparak özel tatablonun verilerinin gelmesini sağlıyorum. daha sonra pdf e çevirip kaydediyorum. ve en sonunda mail atıyorum. tam bir gün gidiyor.
böyle bir durumda bir makro yazarak listeden sırasıyla kopyalayıp tablo sayfasını oluşturarak pdf e çevirmesi mümkünmüdür? ve hatta mail atması mümkünmüdür?
ilginiz için şimdiden teşekkür ederim.
kendi denediğim makronun içeriğinin:
Sub Makro6()
'
' Makro6 Makro
' Makro meksi tarafından 03.11.2010 tarihinde kaydedildi.
'
'
Range("B7").Select
ActiveCell.FormulaR1C1 = "Veli TOPAL"
Sheets("Veli TOPAL").Select
Range("C5
5").Select
ActiveCell.FormulaR1C1 = "Veli TOPAL"
Range("K6").Select
End Sub
bu makro kopyalama işini yapıyor. ancak listedeki her veri için böyle bir makro yapmak zorundayım. oysa benim istediğim 1 tek makro ile listedeki 400 ismi tek tek kopyalasın diğer sayfadaki hücreye yapıştırsın. ve pdfe çevirisin. sonra sıradaki ismi kopyalayıp yapıştırsın.. böylece listeyi tamamlasın..
tekrar teşekkür ederim..
her ay düzenli olarak yaptığım bir işi makro yolu ile kolaylaştırabilirmiyim diye düşünüyorum, yardımınızı bekliyorum. Konu şudur:
400 kişilik bir isim listesi var. Bu isimlerin karşısında ocak , şubat, mart gibi 12 ayı içeren 12 sütün var.
başka bir sayfada özel bir tablo var. Bu tabloda sözkonusu 400 kişinin içinden bir ismi tablonun başındaki sütüna yazıldığı zaman, kişinin 12 aya ait verileri tek bir geliyor. Adeta karne gibi tek bir kişinin verilerini gösteriyor. Bu sayfada düşeyara formülünü kıllandım. bunda sorun yok.
her ay bu verileri döküp pdf e çevirip şahıslara mail atıyorum. sırasıyla listeyi kopyala yapıştır yaparak özel tatablonun verilerinin gelmesini sağlıyorum. daha sonra pdf e çevirip kaydediyorum. ve en sonunda mail atıyorum. tam bir gün gidiyor.
böyle bir durumda bir makro yazarak listeden sırasıyla kopyalayıp tablo sayfasını oluşturarak pdf e çevirmesi mümkünmüdür? ve hatta mail atması mümkünmüdür?
ilginiz için şimdiden teşekkür ederim.
kendi denediğim makronun içeriğinin:
Sub Makro6()
'
' Makro6 Makro
' Makro meksi tarafından 03.11.2010 tarihinde kaydedildi.
'
'
Range("B7").Select
ActiveCell.FormulaR1C1 = "Veli TOPAL"
Sheets("Veli TOPAL").Select
Range("C5
5").SelectActiveCell.FormulaR1C1 = "Veli TOPAL"
Range("K6").Select
End Sub
bu makro kopyalama işini yapıyor. ancak listedeki her veri için böyle bir makro yapmak zorundayım. oysa benim istediğim 1 tek makro ile listedeki 400 ismi tek tek kopyalasın diğer sayfadaki hücreye yapıştırsın. ve pdfe çevirisin. sonra sıradaki ismi kopyalayıp yapıştırsın.. böylece listeyi tamamlasın..
tekrar teşekkür ederim..
