İleri Excel » Makrolar

 

VBA Koduna Kısayol Tuş Kombinasyonu Atama

Excel'de makro kaydederken CTRL birleşimli bir kısayol tuşu atayabilirsiniz. Makro Kaydetme

Bu makalenin amacı VBA editörü kullanarak oluşturduğunuz bir makroya nasıl kısayol tuş kombinasyonu oluşturabileceğiniz konusunda bilgi vermektir.

Aşağıdaki örnek VBA kod bloğu ; aktif olan excel çalışma kitabındaki Sheet isimlerini "B1" hücresindeki değer ile değiştirir. Bu makroyu çalıştırmak için bildiğiniz gibi bir çok seçenek mevcut. Ancak bizim amacımız ilgili makro için bir kısayol tuş kombinasyonu tanımlamak.

 

Sub RenameWorksheets()
Dim myWorksheet As Worksheet
For Each myWorksheet In Worksheets
 
    If myWorksheet.Range("B1").Value <> "" Then
 
        myWorksheet.Name = myWorksheet.Range("B1").Value
    End If
Next
End Sub

 

Bunun için gerekli olan VBA kodlarımız aşağıdadır. Örneğimizin düzgün çalışması için ilgili kodun Workbook_Open event yordamı içerinde yazılması gerekmektedir. Böylelikle OnKey metodu ile taımladığımız kısayol kombinasyonumuz çalışma kitabı açıldığıda aktif olacaktır.

 

Private Sub Workbook_Open()
	With Application
	.OnKey Key:="^+K", Procedure:="RenameWorksheets"
	End With
End Sub

 

Yukarıdaki VBA kdunda kullanılan ^+K tanımlamasının anlamı Ctrl+Shift+K kısayol tuş kombinasyonun kullanılmasını sağlamaktadır.

Procedure:="RenameWorksheets" ifadesi ise tanımlanan bu kısa yol tuş kombinasyonuna basılması durumunda tetiklenecek makronun belirlenmesini sağlar. Bizim örneğimizde bu makro RenameWorksheets isimli makrodur.

Aşağıda diğer kısayol tuş kombinasyonları için kullanabileceğiniz seçenekler mevcuttur.

 

 


  • Lookup Formülleri

    Excel'de sıklıkla kullanılan Lookup formülleri ile ilgili örnekli anlatımlara ulaşmak için tıklayınız.

    Devamı »

  • Excel İpuçları

    Zaman kazandıracak faydalı ipuçları ve daha fazlası için mutlaka göz atın.              

    Devamı »

  • VBA Programlama

    VBA makroları oluşturarak Excel'in sınırlarını zorlayın. Örnek kodları inceleyin veya kendi makronuzu kaydedin.

    Devamı »