Farklı sayfaya aktarma

[teksen]

Arkadaşlar merhaba,

Ekteki dosyada,sil butonuna basınca Sayfa1 deki veriyi silerek sil isimli sayfaya aktarması mümkünmüdür acaba?

Şimdiden teşekkürler.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton2_Click()
Dim sat As Long, adr1 As String, adr2 As String
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
adr1 = Sheets("Sayfa1").Range(Cells(ListBox1.ListIndex + 2, "A"), Cells(ListBox1.ListIndex + 2, "C")).Address
sat = Sheets("sil").Cells(65536, "A").End(xlUp).Row + 1
adr2 = Range(Cells(sat, "A"), Cells(sat, "C")).Address
Sheets("sil").Range(adr2).Value = Sheets("Sayfa1").Range(adr1).Value
Rows(ListBox1.ListIndex + 2).Delete
Application.ScreenUpdating = True
MsgBox "Silme İşlemi Gerçekleşti..!!", vbCritical + vbInformation, "S İ L M E"
End Sub

 

[teksen]

Teşekkür ederim Sn. Orion2