Excel'deki hücre değerine göre tüm satırı başka bir sayfaya nasıl taşıyabilirim?

Hücre değerine göre satırın tamamını başka bir sayfaya taşımak için bu makale size yardımcı olacaktır.

VBA kodu ile hücre değerine göre tüm satırı başka bir sayfaya taşıyın
Kutools for Excel ile tüm satırı hücre değerine göre başka bir sayfaya taşıyın

VBA kodu ile hücre değerine göre tüm satırı başka bir sayfaya taşıyın

Aşağıda gösterilen ekran görüntüsü gibi, C sütununda belirli bir "Bitti" kelimesi varsa, tüm satırı Sayfa1'den Sayfa2'ye taşımanız gerekir. Aşağıdaki VBA kodunu deneyebilirsiniz.

1. Basın Ara Toplam+ F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. Uygulamalar için Microsoft Visual Basic penceresinde, Ekle > modül. Ardından aşağıdaki VBA kodunu kopyalayıp pencereye yapıştırın.

VBA code 1: Move entire row to another sheet based on cell value

Sub Cheezy()
'Updated by Kutools for Excel 2017/8/28
    Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim J As Long
    Dim K As Long
    I = Worksheets("Sheet1").UsedRange.Rows.Count
    J = Worksheets("Sheet2").UsedRange.Rows.Count
    If J = 1 Then
       If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
    End If
    Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
    On Error Resume Next
    Application.ScreenUpdating = False
    For K = 1 To xRg.Count
        If CStr(xRg(K).Value) = "Done" Then
            xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
            xRg(K).EntireRow.Delete
            If CStr(xRg(K).Value) = "Done" Then
                K = K - 1
            End If
            J = J + 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub

not: Kodda, Sheet1 çalışma sayfası taşımak istediğiniz satırı içerir. Ve Sheet2 satırı bulacağınız hedef çalışma sayfasıdır. "C: C"Sütun, belirli bir değeri içerir ve"tamam"Satırı temel alarak taşıyacağınız belirli değerdir. Lütfen ihtiyaçlarınıza göre değiştirin.

3. Tuşuna basın. F5 kodu çalıştırmak için tuşuna basın, ardından Sayfa1'deki kriterleri karşılayan satır hemen Sayfa2'ye taşınacaktır.

not: Yukarıdaki VBA kodu, belirli bir çalışma sayfasına geçtikten sonra orijinal verilerden satırları silecektir. Satırları silmek yerine yalnızca hücre değerine göre kopyalamak istiyorsanız. Lütfen aşağıdaki VBA kodunu uygulayın 2.

VBA code 2: Copy entire row to another sheet based on cell value

Sub MoveRowBasedOnCellValue()
'Updated by Extendoffice 2017/11/10
    Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim J As Long
    Dim K As Long
    I = Worksheets("Sheet1").UsedRange.Rows.Count
    J = Worksheets("Sheet2").UsedRange.Rows.Count
    If J = 1 Then
    If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
    End If
    Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
    On Error Resume Next
    Application.ScreenUpdating = False
    For K = 1 To xRg.Count
        If CStr(xRg(K).Value) = "Done" Then
            xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
            J = J + 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Kutools for Excel ile tüm satırı hücre değerine göre başka bir sayfaya taşıyın

VBA kodunda acemi iseniz. Burada tanıtıyorum Belirli Hücreleri Seçin yarar Kutools for Excel. Bu yardımcı program ile, bir çalışma sayfasındaki belirli bir hücre değerine veya farklı hücre değerlerine göre tüm satırları kolayca seçebilir ve seçilen satırları ihtiyaç duyduğunuz şekilde hedef çalışma sayfasına kopyalayabilirsiniz. Lütfen aşağıdaki işlemleri yapın.

1. Satırları temel alarak taşıyacağınız hücre değerini içeren sütun listesini seçin ve ardından Kutools > seçmek > Belirli Hücreleri Seçin. Ekran görüntüsüne bakın:

2. Açılışta Belirli Hücreleri Seçin diyalog kutusunu seçiniz Tüm satır içinde Seçim türü bölümünde, seçin eşittir içinde Belirli tür açılır listede hücre değerini metin kutusuna girin ve ardından OK düğmesine basın.

Başka Belirli Hücreleri Seçin size seçilen satırların sayısını göstermek için iletişim kutusu açılır ve bu arada, tüm satırlar seçilen sütunda belirtilen değeri içerir. Ekran görüntüsüne bakın:

3. Tuşuna basın. Ctrl + C Seçili satırları kopyalamak ve ardından bunları ihtiyacınız olan hedef çalışma sayfasına yapıştırmak için tuşlarına basın.

not: Satırları iki farklı hücre değerine göre başka bir çalışma sayfasına taşımak istiyorsanız. Örneğin, satırları "Bitti" veya "İşleniyor" değerlerine göre taşıyın Or durumdaki Belirli Hücreleri Seçin aşağıda gösterilen ekran görüntüsü gibi iletişim kutusu:

İlgili Makaleler:

• Excel'deki hücre değerine göre tüm satırı etkin sayfanın altına nasıl taşıyabilirim?

---

En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

• Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
• Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
• Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
• Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
• Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
• Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
• Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
• Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
• 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.

Devamı ... Ücretsiz indirin... Satın alma... 

---

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

• Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
• Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
• Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!

Devamı ... Ücretsiz indirin... Satın alma...