Toplu Yazdırma

[mcetinkaya65]

Cami çalışmamda liste sayfasındaki camilerin cami kodlarını taşınmaz no sunu form sayfasında yazdırmak istiyorum. Toplu yazdır (makrosunu) butonuna tıklayınca indisle gelen veriler #Değer! hatasına dönüyor.
Office 2021 e göre

 

[hasankardas]

Farklı bir modül içerisinde yazmanıza gerek yok aynı modül içerisine buna göre ekleyin diğer modülün içindeki kodu siliniz..

Sub kod_toplu_yazdir()
    Dim sonSatir As Long
    Dim i As Long
    Dim kodDegeri As Variant
    sonSatir = Sayfa1.Cells(Sayfa1.Rows.Count, 1).End(xlUp).Row
    For i = 2 To sonSatir
        kodDegeri = Sayfa1.Cells(i, 2).Value
        If IsNumeric(kodDegeri) Then
            If kodDegeri >= 1 And kodDegeri <= 206 Then
                Sheets("Form").Range("A1").Value = kodDegeri
                Call Yazdir
            End If
        End If
    Next i
    MsgBox "Yazdırma tamamlanmıştır." & vbLf & _
           "Mustafa ÇETİNKAYA", vbOKOnly + vbInformation, Application.UserName
End Sub

Sub Yazdir()
    Sheets("Form").Select
    ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
End Sub