Excel'de birden fazla çalışma sayfasındaki Açılır Listeler nasıl senkronize edilir?
Bir çalışma kitabındaki birkaç çalışma sayfasında tam olarak aynı açılır liste öğelerini içeren Açılır Liste olduğunu varsayalım. Artık bu Açılır Liste'leri çalışma sayfaları arasında senkronize etmek istiyorsunuz; böylece bir çalışma sayfasındaki Açılır Liste'den bir öğe seçtiğinizde, diğer çalışma sayfalarındaki Açılır Liste otomatik olarak aynı seçimi yapacaktır. Bu makale, bu sorunu çözmenize yardımcı olacak bir VBA kodu sunar.
VBA kodu ile birden fazla çalışma sayfasında Açılır Liste senkronizasyonu
VBA kodu ile birden fazla çalışma sayfasında Açılır Liste senkronizasyonu
Örneğin, Açılır Liste; Sheet1, Sheet2,…,Sheet5 isimli beş çalışma sayfasındadır ve Sheet1’deki açılır liste seçimine göre diğer çalışma sayfalarındaki açılır listelerin senkronize edilmesi istenmektedir. Bunu gerçekleştirmek için aşağıdaki VBA kodunu uygulayın.
1. Sheet1'i açın, sayfa sekmesine sağ tıklayın ve açılan menüden Kodu Görüntüle seçeneğini belirleyin.
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 Liste senkronizasyonu
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 SubNotlar:
3. Alt+Q tuşlarına basarak Microsoft Visual Basic for Applications penceresini kapatın.
Artık Sheet1'deki Açılır Liste'den bir öğe seçtiğinizde, belirtilen çalışma sayfalarındaki açılır listeler otomatik olarak aynı seçime senkronize olacak! Aşağıdaki demoyu inceleyin.Sheet1'de,
Demo: Excel'de Birden Fazla Çalışma Sayfasında Açılır Liste Senkronizasyonu
En İyi Office Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi üst düzeye taşıyın ve hiç yaşanmamış bir verimlilik deneyimi yaşayın.Kutools for Excel, verimliliği artırmak ve Zamanı Kaydet için 300'den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen alınmak için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel ve PowerPoint içinde sekmeli düzenleme ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri, tek bir yükleyiciyle!
Kutools for Office paketi; Excel, Word, Outlook ve PowerPoint için eklentileriyle birlikte Office Tab Pro’yu da içerir ve Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamaları arasında akıcı verimlilik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— tek tek eklenti satın alımına göre tasarruf edin