Makroyu Modülden Çalıştırmak

[ormann]

İyi günler;
Aşağıdaki makroyu modülden nasıl çalıştırabiliriz ?.Yardımcı olur musunuz?

http://dosya.co/zrktw2kh8go8/örnek.xlsm.html



Private Sub CommandButton1_Click()
Beep
Dim sat As Long
Dim S1 As Worksheet, S2 As Worksheet
On Error Resume Next
Set S1 = Worksheets("anasayfa")
Set S2 = Worksheets("önizle")
S2.Range("c15") = Replace(Replace(Replace(TextBox1.Text, Chr(13), " "), Chr(32), " "), Chr(9), " ") 'İLAN
S2.Range("c14") = S1.Range("G8")
S2.PageSetup.PrintArea = "C14:L20"
S2.PageSetup.Zoom = 120
S2.PrintPreview

End Sub


 

[turist]

Modüle aşağıdaki gibi yazıp, bu makroyu herhangibir şekilde (butona bağlayarak , başka makro içinde çağırarak vb. ) kullanabilirsiniz.

Sub YAZDIR()
Beep
Dim sat As Long
Dim S1 As Worksheet, S2 As Worksheet
On Error Resume Next
Set S1 = Worksheets("anasayfa")
Set S2 = Worksheets("önizle")
S2.Range("c15") = Replace(Replace(Replace(TextBox1.Text, Chr(13), " "), Chr(32), " "), Chr(9), "         ") 'İLAN
S2.Range("c14") = S1.Range("G8")
S2.PageSetup.PrintArea = "C14:L20"
S2.PageSetup.Zoom = 120
S2.PrintPreview
End Sub

 

[ormann]

Çok teşekkür ederim.Sayın Turist

 

[turist]

Sağolun.