Excel'de birden fazla çalışma sayfasındaki açılır listeleri nasıl senkronize edersiniz?

Diyelim ki bir çalışma kitabındaki birkaç çalışma sayfasında tamamen aynı açılır öğelere sahip açılır listeleriniz var. Şimdi, bir çalışma sayfasındaki açılır listeden bir öğe seçtiğinizde, diğer çalışma sayfalarındaki açılır listelerin otomatik olarak aynı seçimi yapmasını istiyorsunuz. Bu makale, bu sorunu çözmek için size yardımcı olacak bir VBA kodu sunmaktadır.

VBA kodu ile birden fazla çalışma sayfasındaki açılır listeleri senkronize etme

VBA kodu ile birden fazla çalışma sayfasındaki açılır listeleri senkronize etme

Örneğin, açılır listeler Sheet1, Sheet2, ..., Sheet5 adlı beş çalışma sayfasında bulunmaktadır. Sheet1'deki açılır seçimine göre diğer çalışma sayfalarındaki açılır listeleri senkronize etmek için lütfen aşağıdaki VBA kodunu uygulayın.

1. Sheet1'i açın, sayfa sekmesine sağ tıklayın ve açılır menüden Kodu Görüntüle'yi seçin.

2. Microsoft Visual Basic for Applications penceresinde, aşağıdaki VBA kodunu Sheet1 (Kod) penceresine yapıştırın.

VBA kodu: Birden fazla çalışma sayfasında açılır listeyi senkronize etme

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220815
    Dim tSheet1 As Worksheet
    Dim tRange As Range
    Dim xRangeStr As String
    On Error Resume Next
    If Target.Count > 1 Then Exit Sub
    
    xRangeStr = "A2:A11"

    Set tRange = Intersect(Target, Range(xRangeStr))
    If Not tRange Is Nothing Then
        xRangeStr = tRange.Address
        Application.EnableEvents = False
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet2")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet3")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet4")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet5")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Application.EnableEvents = True
    End If
    
End Sub

Notlar:

3. Microsoft Visual Basic for Applications penceresini kapatmak için Alt + Q tuşlarına basın.

Artık, Sheet1'deki açılır listeden bir öğe seçtiğinizde, belirtilen çalışma sayfalarındaki açılır listeler otomatik olarak aynı seçime sahip olacaktır. Aşağıdaki demoyu inceleyin.

Demo: Excel'de Birden Fazla Çalışma Sayfasındaki Açılır Listeleri Senkronize Etme