Süz ve Kopyala Yapıştır

[ozuberk]

Arkadaşlar merhaba ekli dosyamda yapmak istediğim Makroyu çalıştırdıktan sonra oluşan Genel adlı sayfada süz den Deneme1 seçtiğim zaman süzülen Deneme1 leri seçim Deneme1 sayfasına koplasın ve Genel Sayfasından seçilen satırları silsin. Teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub SuzVeAktar()
Set sg = Sheets("Genel")
Dim Sayfa As String
Dim SonSat As Long
Sayfa = InputBox("Sayfa Adını Giriniz", "Süzme İşlemi", "Deneme")
If Sayfa = "" Then Exit Sub
SonSat = sg.[A65536].End(3).Row
Set s1 = Sheets(Sayfa)
sg.Range("$A$1:$D$" & SonSat).AutoFilter Field:=4, Criteria1:=Sayfa
sg.Range("A2:D" & SonSat).SpecialCells(xlCellTypeVisible).Select
Selection.Copy s1.Range("A" & s1.[A65536].End(3).Row + 1)
Selection.Delete
MsgBox "İşlem Tamamdır"
End Sub

 

[ozuberk]

Necdet Bey ilginiz için teşekkür ederim. Bu makroyu süzden seçin yapmak mümkün mü?
Örneğin; Süzden Deneme1 seçtiğim zaman seçilen Deneme1 kopyalasın ve Deneme1 sayfasına yapıştırsın ve Genel Sayfasından silsin. Teşekkürler

 

[Necdet]

Necdet Bey ilginiz için teşekkür ederim. Bu makroyu süzden seçin yapmak mümkün mü?
Örneğin; Süzden Deneme1 seçtiğim zaman seçilen Deneme1 kopyalasın ve Deneme1 sayfasına yapıştırsın ve Genel Sayfasından silsin. Teşekkürler

Merhaba,

Süz ile belirttiğiniz değeri almasını bilmediğim için (ki önce bunun üzerinde düşündüm) bu yöntemi önermiştim. Belki bir arkadaşımız bunu çözer bende öğrenirim.