TOPLU YAZDIRMA

[cemo_ozan]

Benim bir Günlük Devam Çizelgesi adında excel dosyam var. Bu çizelge her ay başı çıktı alınıyor. Çıktı alma aşamasında tek tek isim seçip yazdırmak yerine makro ile toplu çıktı almanın bir yolu var mıdır?

İndir devam çizelgesi

Dosyayı indir devam çizelgesi

dosya.co

 

[muhasebeciyiz]

Sub CiktiAl_C6_Ile()
    Dim isimSayfasi As Worksheet
    Dim yazdirSayfasi As Worksheet
    Dim sonSatir As Long
    Dim i As Long
    Dim isim As String
   
    Set isimSayfasi = ThisWorkbook.Sheets("personel Listesi")
    Set yazdirSayfasi = ThisWorkbook.Sheets("Table 1")
   
    sonSatir = isimSayfasi.Cells(isimSayfasi.Rows.Count, "A").End(xlUp).Row
    Application.ScreenUpdating = False

    For i = 2 To sonSatir
        isim = isimSayfasi.Cells(i, 1).Value
        yazdirSayfasi.Range("C6").Value = isim
        yazdirSayfasi.PrintOut
    Next i

    Application.ScreenUpdating = True
    MsgBox "Tüm personel için çıktı alındı.", vbInformation
End Sub

Modül1 deki makroyu butona bağlayıp kullanınız

 

[cemo_ozan]

Hocam siz bu kadar şeyi nerden ve nasıl öğrendiniz hayret ediyorum. Çok teşekkür ederim