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 SubNot: 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?
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin