Excel’de birden fazla sayfadaki aynı hücrelerden nasıl liste oluşturabilirim?

Aşağıdaki VBA koduyla, birden fazla çalışma sayfasındaki belirtilen hücrelerden kolayca bir liste oluşturabilirsiniz. Bunun için aşağıdaki adımları izleyin:

Adım 1: Listeyi oluşturmak istediğiniz hücreyi seçin. Örneğimizde E6 hücresini seçiyoruz.

Adım 2: Microsoft Visual Basic for Applications penceresini açmak için aynı anda Alt + F11 tuşlarına basın, ardından Ekle > Modül seçeneğine tıklayıp aşağıdaki kodu modül penceresine yapıştırın.

VBA: Birden fazla sayfadaki aynı hücrelerden liste oluşturun

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

Adım 3: Bu VBA kodunu çalıştırmak için F5 tuşuna basın veya Çalıştır düğmesine tıklayın.

Daha sonra tüm çalışma sayfalarındaki belirtilen hücrelerden alınan değerler, "KutoolsforExcel" adlı yeni bir çalışma sayfasına kopyalanır. Ekran görüntüsüne bakın:

Bu VBA kodu, listeyi yeni bir çalışma sayfasına doldurur ve listedeki değerler statiktir; yani orijinal değerler değişse bile bunlar değişmez.

Ancak bazen listeyi belirli bir aralığa doldurmak ve listedeki değerlerin her zaman ilgili hücrelerdeki orijinal değerlerle eşleşmesini isteyebilirsiniz. Bu gereksinimleri karşılamak için aşağıdaki yöntemi deneyin.

Bu yöntem, birden fazla çalışma sayfasındaki aynı hücrelerden dinamik bir liste oluşturmak için Kutools for Excel’in Çalışma sayfası referanslarını otomatik olarak artır özelliğini kullanır.

Adım 1: Dinamik listenin doldurulacağı aralığı seçin ve Kutools > Diğer > Çalışma sayfası referanslarını otomatik olarak artır seçeneğine tıklayın.

Adım 2: Açılan Çalışma sayfası referanslarını doldur iletişim kutusunda:

(1)Doldurma Sırası kutusuna tıklayın ve açılır listeden bir doldurma türü seçin. Bizim örneğimizde Sütun bazlı, ardından satır bazlı doldur seçeneğini seçiyoruz;

(2)Doldurma Formülü kutusuna, dinamik listeyi oluşturmak istediğiniz hücre adresini girin ve ardından formülü kilitlemek için Kilitle düğmesine tıklayın.

(3)Aralığı Doldur düğmesine tıklayın.

Artık tüm çalışma sayfalarındaki belirtilen hücrelerdeki değerlerin, aşağıdaki ekran görüntüsünde gösterildiği gibi Sınırlı aralık içine doldurulduğunu göreceksiniz:

Orijinal değerler değiştiğinde, belirtilen listedeki ilgili değerler otomatik olarak güncellenir.

Excel’de farklı sayfalardaki aynı hücreyi bir sayfaya otomatik olarak nasıl doldurabilirim?