Çözüldü Gizli Sekmeden Belirli Hücreleri Yazdırma Butonu

[ekremmk]

Herkese iyi akşamlar. Örneğin ANASAYFA sekmesinden A1 ile K22 yi yazdırmak istiyorum. Nasıl yapabilirim aceba.

 

[Orion1]

Buyurun.

MsgBox Sheets("ANASAYFA").Range("A1").Value
MsgBox Sheets("ANASAYFA").Range("K22").Value

 

[ekremmk]

Buyurun.

MsgBox Sheets("ANASAYFA").Range("A1").Value
MsgBox Sheets("ANASAYFA").Range("K22").Value

Sayın Orion hocam dönüşün için teşekkür ederim.
Hücreleri yazdırmak için .printout tarzı bir kod olması gerekmez mi anlatamadım sanırım problemimi

 

[Orion1]

Buyurun.

Sub m()
Sheets("ANASAYFA").Visible = True
With Sheets("ANASAYFA").PageSetup
    .PrintArea = "ANASAYFA!A1:K22"
End With
Sheets("ANASAYFA").PrintOut
Sheets("ANASAYFA").Visible = False
End Sub

 

[Orion1]

#4 nolu mesajı tekrar düzenledim.Onu çalıştırınız.

 

[ekremmk]

Teşekkür ederim hocam. Sadece bu konu için değil bir çok problemimi çözdünüz bu zamana kadar bilginize sağlık ????

 

[Orion1]

Teşekkür ederim hocam. Sadece bu konu için değil bir çok problemimi çözdünüz bu zamana kadar bilginize sağlık ????

Rica ederim.
İyi çalışmalar.