Vba kullanarak bir sayfa nasıl etkinleştirilir?

Diyelim ki birden fazla çalışma sayfasıyla çalışıyorsunuz ve sekmeyi kullanarak bir sayfaya gitmeniz zor. Bu durumda herhangi bir çalışma sayfasını etkinleştirmek için VBA kodunu kullanabilirsiniz.

Ve bunun için VBA kodu yazmak için Worksheet.Activate yöntemini kullanmanız gerekir. Bu yazıda, bir çalışma sayfasını etkinleştirmek veya seçmek için bu kodu yazmanın kolay bir yolunu sizinle paylaşmak istiyorum. Bu kodu yazmadan önce bu yöntemi anlamalısınız.

Worksheet.Activate yöntemi

Bu yöntemde etkinleştirmek istediğiniz çalışma sayfasının adını veya numarasını belirtebilirsiniz. Diyelim ki 1. sayfayı etkinleştirmeniz gerekiyor, o zaman kod şöyle olacaktır:

 Worksheets("Sheet1").Activate

Veya sayfa numaralarını da kullanabilirsiniz.

 Worksheets("1").Activate

Yani son kod şöyle olacaktır:

 Sub ActivateSheet1() Worksheets("Sheet1").Activate End Sub

Örnekler: VBA ile Elektronik Tabloyu Etkinleştirme

Gerçek hayatta bu yöntemi farklı şekillerde kullanabilirsiniz. Burda biraz var.

1. Açıldığında bir e-tabloyu etkinleştirin

Çalışma kitabını her açtığınızda belirli bir çalışma sayfasını etkinleştirmek istiyorsanız bu VBA kodunu auto_open olarak adlandırın.

 Sub auto_open() Worksheets("Sheet1").Activate End Su

2. Bir çalışma sayfasını etkinleştirin ve diğerlerini gizleyin

Belki bir çalışma sayfasına gidip çalışma kitabındaki diğer tüm çalışma sayfalarını gizlemek isteyebilirsiniz. Aşağıdaki kodu kullanarak bunu yapabilirsiniz.

 Sub HideWorksheet() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Sheet1" Then ws.Visible = xlSheetHidden End If Next ws End Sub

Daha kullanışlı hale getirmek için sayfa adını yukarıdaki koddan değiştirin.