Sil ve taşı butonu

[DeathMoment]

Arkadaşlar birden fazla seçim yapabileceğim ve seçtiğim satırın tümünü Sayfa1'den kesip Sayfa2 ve sayfa3'e taşıyıcak bir kod istiyorum sil butonuna bastığımda sayfa 3'e taşı dediğimde ise sayfa 2'ye göndericek satırı yardımcı olabilir misiniz?

 

[DeathMoment]

bunu sağlayabileceğimiz bir yöntem kod vs yok mu?

 

[Murat OSMA]

Neyin nasıl olacağını gösteren dosyanızı ekleyin, net bir çözüm önerilsin.

İyi akşamlar...

 

[DeathMoment]

Peki dosyayı ekledim. Uğraştım fakat yapamadım a sütunundaki hücrelere checkbox koymamız mümkün müdür seçtiğimiz checkbox satırlarını taşıyacak şekilde yapabilir miyiz?

 

[Murat OSMA]

CheckBox da eklenir başka bir nesne de, ama isterseniz hücrede çift tıklama ve sağ click olaylarıyla çalışın...

Şu kodları Sayfa1'in kod sayfasına yazıp deneyiniz;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column > 3 Then Exit Sub
    Target.EntireRow.Copy Sayfa2.Range("A65536").End(3)(2, 1)
    Target.EntireRow.Delete
    Cancel = True
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column > 3 Then Exit Sub
    Target.EntireRow.Copy Sayfa3.Range("A65536").End(3)(2, 1)
    Target.EntireRow.Delete
    Cancel = True
End Sub

■ Hücrede çift tıklarsanız; Arşiv sayfasına atar.
■ Hücrede sağ click yaparsanız, Çöp Kutusu sayfasına atar.

 

[DeathMoment]

Teşekkür ederim buda işime yarar

 

[Murat OSMA]

Rica ederim, iyi günler...