Excel'de onay kutusu işaretlendiğinde belirli bir satırı yeni bir sayfaya nasıl taşıyabilirim?
Bu makale, Excel'de onay kutusu işaretlendiğinde belirli bir satırı yeni bir sayfaya taşımaktan bahsediyor.
Onay kutusu VBA kodu ile işaretlendiğinde satırı taşı
Onay kutusu VBA kodu ile işaretlendiğinde satırı taşı
Excel'de bir onay kutusunu işaretlerken belirli bir satırı belirli bir çalışma sayfasına taşımak için lütfen aşağıdaki işlemleri yapın.
1. Satırı, onay kutusuna göre taşımanız gereken çalışma sayfasına kaydırın, Geliştirici > Ekle > Onay Kutusu (ActiveX Kontrolü) bir onay kutusu eklemek için. Ekran görüntüsüne bakın:
2. Sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle sağ tıklama menüsünden. Ekran görüntüsüne bakın:
3. Açılışta Uygulamalar için Microsoft Visual Basic penceresi, lütfen VBA kodunu kopyalayıp Kod penceresine yapıştırın.
VBA kodu: Bir onay kutusu işaretlendiğinde satırı belirtilen bir çalışma sayfasına taşıyın
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, Shee3 ve A1, belirtilen satırın Sheet3'teki ilk satıra taşınacağını belirtir. Lütfen ihtiyaçlarınıza göre değiştirin.
4. Tuşuna basın. Ara Toplam + Q kapatmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
5. Tasarım Modu'nu tıklayarak kapatın. Tasarım Modu düğmesini Geliştirici sekmesi.
6. Onay kutusunu işaretleyin, ardından a Kutools for Excel iletişim kutusu açılır, lütfen satırın ilk hücresini (veya tüm satırı) seçin, taşımanız ve OK buton. Ardından, belirtilen satırın tamamı hemen belirli bir çalışma sayfasına taşınacaktır. Ekran görüntüsüne bakın:
İlgili yazılar:
- Excel'deki hücre değerine göre tüm satırı başka bir sayfaya nasıl taşıyabilirim?
- Excel'deki hücre değerine göre tüm satırı etkin sayfanın altına nasıl taşıyabilirim?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!