Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("A3") = "TMSG" Then
Worksheets("Sayfa2").PrintOut
Worksheets("Sayfa3").PrintOut
Else: Worksheets("Sayfa2").PrintOut
End If
End Sub
Private Sub Yazdir_Click()
If Range("a3") ="TMGS" Then
Sheets("Sayfa1").PrintOut
Sheets("Sayfa2").PrintOut
Else
Sheets("Sayfa2").PrintOut
End If
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.