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

Hücre değerine göre tüm satırı 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şıma
Kutools for Excel ile hücre değerine göre tüm satırı başka bir sayfaya taşıma

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

Aşağıdaki ekran görüntüsünde gösterildiği gibi, belirli bir “Done” kelimesi C sütununda varsa, Sheet1'deki tüm satırı Sheet2'ye taşımak zorundasınız. Aşağıdaki VBA kodunu deneyebilirsiniz.

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

2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın. Ardından aşağıdaki VBA kodunu pencereye kopyalayıp yapıştırın.

VBA Kodu 1: Hücre değerine göre tüm satırı başka bir sayfaya taşıma

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, taşımak istediğiniz satırı içeren çalışma sayfasıdır. Ve Sheet2, satırı yerleştireceğiniz hedef çalışma sayfasıdır. “C:C” belirli değeri içeren sütundur ve “Done” kelimesi, satırı taşımak için belirli olan değerdir. Lütfen bunları ihtiyaçlarınıza göre değiştirin.

3. Kodu çalıştırmak için F5 tuşuna basın, ardından Sheet1'de kriterlere uyan satırlar hemen Sheet2'ye taşınacaktır.

Not: Yukarıdaki VBA kodu, satırları belirli bir çalışma sayfasına taşıdıktan sonra orijinal verilerden silecektir. Eğer satırları silmek yerine hücre değerine göre yalnızca kopyalamak istiyorsanız, lütfen aşağıdaki VBA Kodu 2'yi uygulayın.

VBA Kodu 2: Hücre değerine göre tüm satırı başka bir sayfaya kopyalama

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 hücre değerine göre tüm satırı başka bir sayfaya taşıma

Eğer VBA kodunda yeniyiseniz, burada Kutools for Excel'in Belirli Hücreleri Seç özelliği tanıtılacaktır. Bu özellik sayesinde, belirli bir hücre değerine veya bir çalışma sayfasındaki farklı hücre değerlere dayalı olarak tüm satırları kolayca seçebilir ve seçilen satırları ihtiyacınıza göre hedef çalışma sayfasına kopyalayabilirsiniz. Lütfen şu adımları izleyin.

1. Taşıma yapılacak hücre değerini içeren sütun listesini seçin, ardından Kutools > Seç > Belirli Hücreleri Seç'e tıklayın. Ekran görüntüsüne bakın:

2. Açılan Belirli Hücreleri Seç iletişim kutusunda, Seçim türü bölümünde Tüm Satır'ı seçin, Türü Belirtin açılır listesinden Eşittir'i seçin, hücre değerini metin kutusuna girin ve ardından Tamam düğmesine tıklayın.

Başka bir Belirli Hücreleri Seç iletişim kutusu açılır ve size seçili satır sayısını gösterir ve aynı zamanda, seçili sütunda belirtilen değeri içeren tüm satırlar seçilir. Ekran görüntüsüne bakın:

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

Not: Eğer iki farklı hücre değerine göre satırları başka bir çalışma sayfasına taşımak istiyorsanız. Örneğin, ya “Done” ya da “Processing” hücre değerlerine göre satırları taşımak isterseniz, aşağıdaki ekran görüntüsünde gösterildiği gibi Belirli Hücreleri Seç iletişim kutusunda Or koşulunu etkinleştirebilirsiniz:

İlgili makaleler:

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