Excel'de bir onay kutusu işaretlendiğinde belirli bir satırı yeni bir sayfaya nasıl taşırsınız?

Bu makale, Excel'de bir onay kutusu işaretlendiğinde belirli bir satırı yeni bir sayfaya nasıl taşıyacağınızı açıklar.

VBA kodu ile onay kutusu işaretlendiğinde satırı taşıma

VBA kodu ile onay kutusu işaretlendiğinde satırı taşıma

Lütfen Excel'de bir onay kutusunu işaretlediğinizde belirli bir satırı belirtilen çalışma sayfasına taşımak için aşağıdaki adımları izleyin.

1. Bir onay kutusuna dayalı olarak satır taşımak istediğiniz çalışma sayfasına geçin, Geliştirici > Ekle > Onay Kutusu (ActiveX Kontrolü) seçerek bir onay kutusu ekleyin. Ekran görüntüsüne bakın:

2. Sayfa sekmesine sağ tıklayın ve ardından sağ tıklama menüsünden Kodu Görüntüle'yi tıklayın. Ekran görüntüsüne bakın:

3. Açılan Microsoft Visual Basic for Applications penceresinde lütfen aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın.

VBA Kodu: Onay kutusu işaretlendiğinde satırı belirtilen çalışma sayfasına taşıma

Private Sub CheckBox1_Click()
    Dim xRg As Range
    Dim xAddress As String
    On Error Resume Next
    If CheckBox1.value Then
        xAddress = Application.ActiveWindow.RangeSelection.Address
        Set xRg = Application.InputBox("Please select the range row you will move(single cell)：", "KuTools For Excel", xAddress, , , , , 8)
        If xRg Is Nothing Then Exit Sub
        Set xRg = xRg(1).EntireRow
        xRg.Copy
        ActiveWorkbook.Sheets("Sheet3").Range("A1").PasteSpecial xlPasteAllUsingSourceTheme
        xRg.Clear
        Application.CutCopyMode = False
    End If
End Sub

Not: Kodda, Sheet3 ve A1, belirtilen satırın Sheet3'ün ilk satırına taşınacağını gösterir. Lütfen bunları ihtiyaçlarınıza göre değiştirin.

4. Microsoft Visual Basic for Applications penceresini kapatmak için Alt + Q tuşlarına basın.

5. Geliştirici sekmesindeki Tasarım Modu düğmesine tıklayarak Tasarım Modunu kapatın.

6. Onay kutusunu işaretleyin, ardından bir Kutools for Excel iletişim kutusu açılır, lütfen taşımak istediğiniz satırın ilk hücresini (veya tüm satırı) seçin ve Tamam düğmesine tıklayın. Ardından belirtilen tüm satır hemen belirli bir çalışma sayfasına taşınacaktır. Ekran görüntüsüne bakın:

İlgili makaleler:

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