Excel'de hücre değerine göre etkin çalışma sayfasının altına tüm satırı nasıl taşırsınız?

Excel'de hücre değerine göre etkin çalışma sayfasının altına tüm satırı taşımak için lütfen bu makaledeki VBA kodunu deneyin.

VBA kodu ile hücre değerine göre etkin çalışma sayfasının altına tüm satırı taşıma

VBA kodu ile hücre değerine göre etkin çalışma sayfasının altına tüm satırı taşıma

Örneğin, aşağıdaki ekran görüntüsünde gösterildiği gibi, sütun C'deki bir hücre belirli bir “Bitti” değeri içeriyorsa, tüm satırı mevcut çalışma sayfasının altına taşıyın. Lütfen aşağıdaki adımları izleyin.

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: Hücre değerine göre tüm satırı etkin çalışma sayfasının altına taşıma

Sub MoveToEnd()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xEndRow As Long
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
lOne:
    Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
        MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lOne
    End If
    xEndRow = xRg.Rows.Count + xRg.Row
    Application.ScreenUpdating = False
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) = "Done" Then
           xRg.Cells(I).EntireRow.Cut
           Rows(xEndRow).Insert Shift:=xlDown
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Not: VBA kodunda “Bitti”, tüm satırı taşıma işlemini gerçekleştireceğiniz hücre değeridir. İhtiyaçlarınıza göre değiştirebilirsiniz.

3. Kodu çalıştırmak için F5 tuşuna basın, ardından açılan Kutools for Excel iletişim kutusunda belirli değerin bulunduğu sütun aralığını seçin ve Tamam düğmesine tıklayın.

Tamam düğmesine tıkladıktan sonra, belirtilen sütunda “Bitti” değerini içeren tüm satır, veri aralığının altına otomatik olarak taşınır.

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!

İlgili makaleler:

• Excel'de hücre değerine göre tüm satırı başka bir çalışma sayfasına nasıl taşırsınız?