İmza Föy için minik bir makro lazım (Ustalar)

[morphey]

Merhaba konu daha önce açılmıştı ancak bir türlü bulamadım.

Burdaki hayır sevever arkadaşların yaptığı bir imza föyü var elimde yazdır butonuna basınca personel sayfasındaki isimleri ve sicilleri çekiyor çok güzel sadece yan tarafta unvan var onu çekmiyor onuda çekerse çok güzel olacak. Yalnız isim yazan yeri ben ikiye böldüm altına unvan düşmesi için isim hücresi bozuldumu bilmiyorum .

Yani yazdır diyince isim yazan yere isim, unvan yazan yere unvan, gelecek sicil zaten çalışıyor.

Yardımcı olacak arkadaşlara şimdiden çok teşekkürler. Örnek dosya aşağıda.

https://www106.zippyshare.com/v/3WbzMG0S/file.html

 

[Muzaffer Ali]

Module1 deki kodları silin aşağıdaki kodları kopyalayın.

Sub IMZA_YAZDIR()
    For sat = 2 To Sheets("personel").Cells(Rows.Count, "A").End(3).Row
        [J7] = Sheets("personel").Cells(sat, "A")
        [K6] = Sheets("personel").Cells(sat, "B")
        [K8] = Sheets("personel").Cells(sat, "C")
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Next
End Sub

 

[morphey]

Hemen deniyorum birazdan döneceğim buraya.

Bu arada sonuç ne olursa olsun ilginiz için teşekkürler.

 

[morphey]

Üstadım hatalı oldu şimdi hiç birisini yazmıyor.
Bir el atın lütfen önemli benim için.

 

[Muzaffer Ali]

Aslında siz de yapabilirsiniz.

[J7] = Sheets("personel").Cells(sat, "A") '(J7 hücresine personel sayfasının "A" kolonundaki veriyi yazıyor)
[K6] = Sheets("personel").Cells(sat, "B") '(K6 hücresine personel sayfasının "B" kolonundaki veriyi yazıyor)
[K8] = Sheets("personel").Cells(sat, "C") '(K8 hücresine personel sayfasının "C" kolonundaki veriyi yazıyor)

Siz hangi verinin nereye yazılmasını istiyorsanız kendiniz değiştirin.

Örneğin "Adı soyadı" verisi "personel" sayfasının "B" kolonunda olduğuna göre, eğer siz İmza sayfasının "A1" hücresine "Adı Soyadı" yazmasını isterseniz kodu şöyle değiştirin;
[A1] = Sheets("personel").Cells(sat, "B")

 

[morphey]

Üstadım orjinal kod şu şekilde

Sub IMZA_YAZDIR()
For sat = 2 To Sheets("personel").Cells(Rows.Count, "A").End(3).Row
[G7] = Sheets("personel").Cells(sat, "A")
[H6] = Sheets("personel").Cells(sat, "B")
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub

şimdi mesela sicilin hücresi j7 ancak yukarıda j7 diye bir şey yok bende başta sizin gibi düşünmüştüm. Yukarda sizin verdiğiniz örnekte hiç yazmadı boş çıkıyor isim alanı sicil ve unvan alanı.

Konu biraz daha karışık biraz daha iyi anlayan bir usta lazım sanırım bize. Yardımınız için gerkçekten çok teşekkürler, sorun çözülmese bile iyi niyetiniz her şeye değer.

Ustalar bir el atın lütfen hadi bekliyoruz.

Yukarda ki örneği yapacak bir uzman var mıdır ?

 

[canergkts]

Teşekkürler yorumlar için işime yaradı.

 

[Muzaffer Ali]

Ben istiyorum ki siz öğrenesiniz onun için dosya eklemedim.
Dosyanız ekte inceleyin.

https://www.dosyaupload.com/a0ao

 

[morphey]

dalgalıkur üstadım;

Sizin söylediğiniz gibiymiş öncelikle bunun için gerçekten özür dilerim.

Ben hücrelerin yerleriyle oynadığım için tabi ki ordaki alanların yerleri tutmayacaktı. Vallahi utandım sizden. Birazcık sizin anlamadığınızı düşündüm, oysa ki olay tamamen benim cahilliğimmiş. Yardımınız ve gerçekten iyi niyetiniz için çok teşekkür ediyor, saygılarımı sunuyorum.

Her şey gönlünüzce olsun...

 

[Muzaffer Ali]

Kolay gelsin iyi çalışmalar.