Başa çıkma verileri Bir sayfadan diğerine ölçütlere dayalı olarak kopyalamak Excel'de sıkça yapılan görevlerden biridir. Çok sayıda satırınız varsa ve bunları bazı ölçütlere göre başka bir sayfaya kopyalamak istiyorsanız, bu oldukça yorucu ve zaman alıcı olabilir. Ancak Microsoft Visual Basic Uygulaması (VBA) farklı kriterlere göre verileri bir sayfadan diğerine kolayca kopyalayabileceğiniz Makrolar oluşturabilirsiniz. Bu makalede, size satırları nasıl kopyalayabilirsiniz Excel VBA kullanarak 2 farklı ölçüt türüne dayalı olarak başka bir çalışma sayfasına .

Diyelim ki, " adlı bir çalışma sayfasında aşağıdaki veri kümesine sahipsiniz Veri "Şimdi, başka bir sayfadaki bazı kriterlere dayalı olarak belirli satırları kopyalamak istiyorsunuz.

Alıştırma Çalışma Kitabını İndirin

Excel VBA ile Kriterlere Göre Satırları Başka Bir Çalışma Sayfasına Kopyalamanın 2 Yolu

1. Metin Ölçütlerine Göre Satırları Başka Bir Çalışma Sayfasına Kopyalama

Bu gösterimde, metin ölçütlerine dayalı olarak satırları bir çalışma sayfasından diğerine nasıl kopyalayacağınızı göstereceğim. Virginia adlı bir çalışma sayfasında Bölge Satışları Excel kullanarak VBA Bunu yapmak için, önce,

➤ Basın ALT+F11 açmak için VBA Pencere.

İçinde VBA Pencere,

üzerine tıklayın. Ekleme sekmesini seçin ve Modül .

Bu açacak Modül (Kod) Pencere. Şimdi,

➤ Aşağıdaki kodu Modül (Kod) Pencere,

 Sub Copy_Criteria_Text() Application.ScreenUpdating = False With ActiveSheet .AutoFilterMode = False With Range("C1", Range("C" & Rows.Count).End(xlUp)) .AutoFilter 1, "Virginia" On Error Resume Next .Offset(1).EntireRow.Copy Sheet3.Range("A" & Rows.Count).End(xlUp).Offset(1) End With .AutoFilterMode = False End With Application.ScreenUpdating = TrueSayfa3.Seç End Sub 

Kod, şu adda bir Makro oluşturacaktır Copy_Criteria_Text sütununda Virginia'yı arayacak C adlı çalışma sayfasındaki Virginia'yı içeren satırları döndürür. Bölge Satışları (Sayfa3).

Ondan sonra,

➤ Kapatın veya küçültün VBA Pencere.

➤ Basın ALT+F8

Bu açacak Makro Pencere.

➤ Seçiniz Copy_Criteria_Text içinde Makro adı kutusuna tıklayın ve Koşmak .

Sonuç olarak, Virginia'nın bulunduğu satırlar şu adlı çalışma sayfasına kopyalanacaktır Bölge Satışları

Daha Fazla Oku: Excel'de Satırlar Otomatik Olarak Başka Bir Sayfaya Nasıl Kopyalanır (4 Yöntem)

2. Sayı Kriterine Göre Satırları Başka Bir Çalışma Sayfasına Kopyalama

Şimdi, sayı ölçütlerine göre satırları bir çalışma sayfasından başka bir çalışma sayfasına nasıl kopyalayabileceğinizi göstereceğim. 100000$'dan büyük satış verilerini şu addaki bir çalışma sayfasına kopyalamak istediğinizi varsayalım En İyi Satışlar Bunu yapmak için, önce,

➤ Basın ALT+F11 açmak için VBA Pencere.

İçinde VBA Pencere,

üzerine tıklayın. Ekleme sekmesini seçin ve Modül .

Bu açacak Modül (Kod) Pencere. Şimdi,

➤ Aşağıdaki kodu Modül (Kod) Pencere,

 Sub Copy_Criteria_Number() Application.ScreenUpdating = False With ActiveSheet .AutoFilterMode = False With Range("D1", Range("D" & Rows.Count).End(xlUp)) .AutoFilter 1, ">100000" On Error Resume Next .Offset(1).EntireRow.Copy Sheet4.Range("A" & Rows.Count).End(xlUp).Offset(1) End With .AutoFilterMode = False End With Application.ScreenUpdating =True Sayfa4.Seç End Sub 

Kod, şu adda bir Makro oluşturacaktır Copy_Criteria_Number sütununda 100000'den büyük değerleri arayacak D adlı çalışma sayfasının Veri adlı çalışma sayfasında 100000$'dan fazla satış değeri içeren satırları döndürür. En İyi Satışlar (Sayfa4).

Ondan sonra,

➤ Kapatın veya küçültün VBA Pencere.

➤ Basın ALT+F8

Bu açacak Makro Pencere.

➤ Seçiniz Copy_Criteria_Number içinde Makro adı kutusuna tıklayın ve Koşmak .

Sonuç olarak, 100000 $'dan fazla satış değeri içeren satırlar En İyi Satışlar Çalışma sayfası.

Daha Fazla Oku: Makro Kullanarak Excel'de Birden Fazla Satır Kopyalama (4 Örnek)

Sonuç

Bu makaledeki iki yöntemle, Excel VBA kullanarak farklı ölçütlere göre satırları bir çalışma sayfasından başka bir çalışma sayfasına kopyalayabileceksiniz. Metin ölçütleri için ilk yöntemi, sayı ölçütleri için ikinci yöntemi kullanabilirsiniz. Yöntemlerden herhangi biri hakkında herhangi bir tür kafa karışıklığınız varsa, lütfen yorum bırakmaktan çekinmeyin.