Hücredeki değere göre yazıcıya göndermek

[vurkan]

Arkadaşlar merhaba; Bir dosyamda bulunan YAZICI isimli sayfada bir düğme yardımıyla çıktı alacağım. Yapmak istediğim şey YAZICI sayfasındaki L4 hücresinin içeriğini DİŞ sayfasındaki A1 hücresine yazdırıp yazıcıya göndermek. DİŞ sayfasındaki A1 içeriğini YAZICI sayfasındaki L4 e bağlayamadım. Bunun için aşağıdaki kodda ne yapmam lazım? Teşekkürler

Sub TEK_DİŞ()
Dim ws1 As Worksheet: Set ws1 = Sheets("YAZICI")
Dim ws2 As Worksheet: Set ws2 = Sheets("DİŞ")
ws2.[A1] = ws1.Cells("L4")
ws2.PrintOut
Application.Wait (Now + TimeValue("0:00:01"))
End Sub

 

[Muzaffer Ali]

Merhaba.
Aşağıdakilerden birini kullanın.

ws2.[A1] = ws1.[L4]
Yada
ws2.Range("A1") = ws1.Range("L4")
Yada
ws2.Cells(1, "A") = ws1.Cells(4, "L")
Yada
ws2.Cells(1, 1) = ws1.Cells(4, 12)

 

[vurkan]

Sayın dalgalikur Çok teşekkür ediyorum Sağolun