yazıcı için macro

[irfem4]

kolay gelsin. ekteki dosyadaki personel sayfasındaki personel sayısı kadar çizelge sayfası yazdırmak istiyorum çizelge sayfasındaki kırmızı yazılı yerler otomatik doldurulmuş olacak. mümkün müdür acaba

 

[AdemCan]

Merhaba, paylaştığım kodları Modül ya da Personel isimli sayfanın kod sayfasına ekleyip istediğiniz işlemi yapabilirsiniz.

Sub cizelge()
Dim s1 As Worksheet, s2 As Worksheet
Dim s1son As Long,  i As Long

Set s1 = Sheets("PERSONEL"): Set s2 = Sheets("çizelge")
s1son = s1.Range("B" & Rows.Count).End(3).Row

For i = 3 To s1son
    If s1.Cells(i, 2).Value <> "" Then
        s2.Range("C4").Value = s1.Cells(i, 6).Value
        s2.Range("G5").Value = s1.Cells(i, 4).Value
        s2.Range("H5").Value = s1.Cells(i, 2).Value
        s2.Range("J5").Value = s1.Cells(i, 5).Value
        s2.PrintOut
    End If
Next i

Set s1 = Nothing: Set s2 = Nothing
s1son = 0:  i = 0
End Sub

 

[Seyit Tiken]

İstediğiniz böyle bir şey mi?

 

[irfem4]

yazıdırmak için "CTRL+P" mı yapacağım yoksa ma

İstediğiniz böyle bir şey mi?

aynı kişi için çıktı veriyor

 

[irfem4]

Merhaba, paylaştığım kodları Modül ya da Personel isimli sayfanın kod sayfasına ekleyip istediğiniz işlemi yapabilirsiniz.

Sub cizelge()
Dim s1 As Worksheet, s2 As Worksheet
Dim s1son As Long,  i As Long

Set s1 = Sheets("PERSONEL"): Set s2 = Sheets("çizelge")
s1son = s1.Range("B" & Rows.Count).End(3).Row

For i = 3 To s1son
    If s1.Cells(i, 2).Value <> "" Then
        s2.Range("C4").Value = s1.Cells(i, 6).Value
        s2.Range("G5").Value = s1.Cells(i, 4).Value
        s2.Range("H5").Value = s1.Cells(i, 2).Value
        s2.Range("J5").Value = s1.Cells(i, 5).Value
        s2.PrintOut
    End If
Next i

Set s1 = Nothing: Set s2 = Nothing
s1son = 0:  i = 0
End Sub

çizelge sayfasına yazdır tuşu eklenebilirmi

 

[Korhan Ayhan]

Linkleri inceleyiniz.

https://www.excel.web.tr/threads/sayfada-buton-duegme-olusturmak-ve-makro-atamak-1-resimli-anlatim.59436/

https://www.excel.web.tr/threads/sayfada-buton-duegme-olusturmak-ve-makro-atamak-2-resimli-anlatim.136979/

 

[irfem4]

ilginiz ve emeğiniz için teşekkur ederim.