Skip to main content

Birden fazla çalışma sayfasından belirli kriterlere göre satırları yeni bir sayfaya nasıl kopyalayabilirsiniz?

Author: Xiaoyang Last Modified: 2025-06-10

Diyelim ki, aşağıdaki ekran görüntüsünde gösterildiği gibi aynı biçimlendirmeye sahip üç çalışma sayfası içeren bir çalışma kitabınız var. Şimdi, sütun C'de “Tamamlandı” metnini içeren bu çalışma sayfalarındaki tüm satırları yeni bir çalışma sayfasına kopyalamak istiyorsunuz. Bu sorunu, tek tek elle kopyalama ve yapıştırma yapmadan hızlı ve kolay bir şekilde nasıl çözebilirsiniz?

sample data 1 ample data 2 ample data 3

VBA kodu ile birden fazla çalışma sayfasından belirli kriterlere göre satırları yeni bir sayfaya kopyalayın

VBA kodu ile birden fazla çalışma sayfasından belirli kriterlere göre satırları yeni bir sayfaya kopyalayın

Aşağıdaki VBA kodu, belirli bir koşula göre çalışma kitabındaki tüm çalışma sayfalarından belirli satırları yeni bir çalışma sayfasına kopyalamanıza yardımcı olabilir. Lütfen şu adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

2. Ekle Insert > Module seçeneğine tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Birden fazla sayfadan belirli kriterlere göre satırları yeni bir sayfaya kopyalama

Public Sub CopyRows_ValuesAndNumberFormats()
Dim xWs As Worksheet
Dim xCWs As Worksheet
Dim xRg As Range
Dim xStrName As String
Dim xRStr As String
Dim xRRg As Range
Dim xC As Integer
On Error Resume Next
Application.DisplayAlerts = False
xStr = "Kutools for Excel"
xRStr = "Completed"
Set xCWs = ActiveWorkbook.Worksheets.Item(xStr)
If Not xCWs Is Nothing Then
    xCWs.Delete
End If
Set xCWs = ActiveWorkbook.Worksheets.Add
xCWs.Name = xStr
xC = 1
For Each xWs In ActiveWorkbook.Worksheets
    If xWs.Name <> xStr Then
        Set xRg = xWs.Range("C:C")
        Set xRg = Intersect(xRg, xWs.UsedRange)
        For Each xRRg In xRg
            If xRRg.Value = xRStr Then
               xRRg.EntireRow.Copy
               xCWs.Cells(xC, 1).PasteSpecial xlPasteValuesAndNumberFormats
               xC = xC + 1
            End If
        Next xRRg
    End If
Next xWs
Application.DisplayAlerts = True
End Sub

Not: Yukarıdaki kodda:

  • Bu xRStr = "Completed" betiğindeki “Tamamlandı” metni, satırları kopyalamak istediğiniz belirli koşulu ifade eder;
  • Bu Set xRg = xWs.Range("C:C") betiğindeki C:C, koşulun bulunduğu belirli sütunu ifade eder.

3. Ardından, bu kodu çalıştırmak için F5 tuşuna basın ve belirli koşula sahip tüm satırlar, geçerli çalışma kitabındaki Kutools for Excel adlı yeni bir çalışma sayfasına kopyalanıp yapıştırılacaktır. Ekran görüntüsüne bakın:

vba code to copy rows from multiple worksheets based on criteria

Daha fazla ilgili veri çekme veya kopyalama makalesi:

  • Excel'de Gelişmiş Filtre ile Verileri Başka Bir Çalışma Sayfasına Kopyalama
  • Normalde, aynı çalışma sayfasındaki ham verilerden veri çıkarmak için Gelişmiş Filtre özelliğini hızlıca uygulayabiliriz. Ancak, bazen filtrelenmiş sonucu başka bir çalışma sayfasına kopyalamaya çalıştığınızda aşağıdaki uyarı mesajını alırsınız. Bu durumda, bu görevi Excel'de nasıl halledebilirsiniz?
  • Excel'de Sütun Kriterlerine Göre Yeni Sayfaya Satır Kopyalama
  • Örneğin, bir meyve satın alma tablosu var ve şimdi belirli bir meyveye göre kayıtları yeni bir sayfaya kopyalamanız gerekiyor, bunu Excel'de kolayca nasıl yapabilirsiniz? Burada, Excel'de sütun kriterlerine göre satırları yeni bir sayfaya kopyalamak için birkaç yöntem tanıtacağım.
  • Excel'de Sütun Belirli Metin/Değer İçeriyorsa Satırları Kopyalama
  • Bir sütunda belirli bir metin veya değeri içeren hücreleri bulmak ve ardından bulunan hücrenin olduğu tüm satırı kopyalamak istediğinizi varsayalım, bununla nasıl başa çıkabilirsiniz? Burada, bir sütunun belirli bir metin veya değer içerip içermediğini bulmak ve ardından Excel'de tüm satırı kopyalamak için birkaç yöntem tanıtacağım.
  • Süper Formül Çubuğu (birden fazla satır metin ve formülü kolayca düzenleme); Okuma Düzeni (büyük miktarda hücreyi kolayca okuma ve düzenleme); Filtrelenmiş Alana Yapıştır...
  • Hücreleri/Satırları/Sütunları Birleştir ve Veriyi Koru; Hücre İçeriğini Böl; Yinelenen Satırları Birleştir ve Topla/Ortalama... Yinelenen Hücreleri Önle; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz Satırları Seç; Boş Satırları Seç (tüm hücreler boş); Çok sayıda Çalışma Kitabında Süper Bul ve Yaklaşık Bul; Rastgele Seçim...
  • Formül referansını değiştirmeden Birden Fazla Hücreyi Tam Kopyala; Çoklu Sayfalara Otomatik Referans Oluştur; Madde İşaretleri, Onay Kutuları Ekle ve daha fazlası...
  • Formülleri, Aralıkları, Grafikleri ve Resimleri Favorilere Ekle ve Hızlıca Ekle; Hücreleri şifreyle şifrele; Posta Listesi oluştur ve e-postalar gönder...
  • Metni Çıkart, Metin Ekle, Belirli bir konumda karakterleri kaldır, Boşlukları Kaldır; Veri Sayfası İstatistikleri oluştur ve yazdır; Hücre İçeriği ve Yorumlar arasında dönüştür...
  • Süper Filtre (filtre düzenlerini kaydet ve diğer sayfalara uygula); Ay/Hafta/Gün, sıklık ve daha fazlasına göre Gelişmiş Sıralama; Kalın, italik vb. özel filtreleme...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştir; Anahtar sütunlara dayalı Tabloları Birleştir; Veriyi Birden Çok Sayfaya Böl; xls, xlsx ve PDF'leri Toplu Dönüştür...
  • Hafta numarası, haftanın günü vb. göre PivotTable Gruplama... Kilitsiz, kilitli hücreleri farklı renklerle göster; Formül/İsim içeren hücreleri vurgula...
kte tab 201905
  • Word, Excel, PowerPoint'de sekmeli düzenleme ve okumayı etkinleştir.
  • Aynı pencerede yeni sekmelerde birden fazla belge açın ve oluşturun, yeni pencereler yerine.
  • Üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından sizi kurtarır!
officetab bottom