Veri doğrulama sayfasını yazdırma

[ockucukay]

Herkese merhaba,

Uzun zamandır işlerim ve ailevi sebeplerden ötürü sizlerden uzak kaldım. Umarım sizlerde de bir yaramazlık yoktur.

Hal hatır sorduktan sonra konuya gelelim. Dosya boyutu büyük olduğundan aşağıdaki adrese yükledim.

Dosya

Sorun: Sınır kataloğu sayfasında veri doğrulama ile değişen numaralar sonucu ekrana gelen resimler var. Tamamını bir seferde yazdırmak istiyorum ama aşağıdaki satırda hata veriyor. Sorunu çözmek için yardımlarınızı bekliyorum.

Yazdırmak için kullanılan makro:

Option Explicit

Sub SEÇ_YAZDIR()
For Each Hücre In Sheets("Sayfa1").Range("Hata_no")
With Sheets("Sınır Katalogu")
.Range("I1").Value = Hücre.Value
.PrintOut
End With
Next

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Sınır Kataloğu sayfasının makrosu (resim değiştiren makro):

Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("b5")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic 'Hatayı bu satırda veriyor, döngüye girmiyor.
End With
End Sub

 

[ockucukay]

güncelleme...

 

[ockucukay]

yardımcı olabilecek kimse var mı?

 

[ockucukay]

güncelleme...

 

[Korhan Ayhan]

Merhaba,

Yazdırma makrosunu aşağıdaki gibi düzenleyin.

Sub SEÇ_YAZDIR()
    Dim Hücre As Range
    For Each Hücre In Sheets("Sayfa1").Range("Hata_no")
        With Sheets("Sınır Katalogu")
            .Range("I1").Value = Hücre.Value
            .PrintOut
        End With
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

"Hata_no" ad tanımlamasında numaraların bulunduğu sütun dışındaki alanları da tanımlamışsınız. Bunu da düzeltmenizde fayda var.

 

[ockucukay]

Merhaba Korhan Ayhan hocam,

Ellerinize sağlık, yardımlarınız için teşekkür ederim.