Soru 2 Vba Kodu birleştirme ve menüde sabit bir düğmeye atama hakkında

[mehmetd]

Sn. Arkadaşlar herkese günaydın hayırlı işler sağlıklı günler dilerim öncelikle
elimde 2 adet vba kod var bunları birleştirip menüde bir düğmeye atmak istiyorum yardımcı olabilir misiniz rica etsem.
Yardımlarınız için şimdiden teşekkür ederim

Sub TumSayfaFontDegistir()
' Aktif sayfadaki tüm hücreleri seç ve fontu değiştir
With ActiveSheet.Cells
.Font.Name = "Meiryo UI"
End With
MsgBox "Yazı tipi 'Meiryo UI' olarak değiştirildi!", vbInformation
End Sub
------------------------------------------------------------------------
Private Sub Worksheet_Activate()
ActiveWindow.DisplayZeros = False
End Sub

 

[muhasebeciyiz]

Sub TumSayfaFontVeSifirGizle()

With ActiveSheet.Cells
.Font.Name = "Meiryo UI"
End With

ActiveWindow.DisplayZeros = False

MsgBox "Yazı tipi 'Meiryo UI' olarak değiştirildi ve sıfırlar gizlendi!", vbInformation
End Sub

Yukarıdaki adımları takip ederek, sayfaya ekleyeceğiniz düğmeye tıkladığınızda hem yazı tipi değişecek hem de sıfırlar gizlenecektir. Böylece verdiğiniz iki kodu tek bir işlemde birleştirmiş olacaksınız.

 

[mehmetd]

Çok teşekkür ederim muhasebeciyiz.