Sil&Arşiv Butonu Makrosu

[airborne]

Ekli dosyada bulunan userform üzerinde bulunan sil&arşiv butonunun makrosu nasıl düzenlenebilir. Yardımlarınız için şimdiden teşekkür ederim. açıklama ekteki dosyadadır.

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton2_Click()
Dim sat, sat2, k As Long
If MsgBox(ComboBox1.Text & "Silinecek ve Arşive Kaydedilecekter, Emin misiniz?", vbYesNo, "Personel Silme") = vbYes Then
sat = ComboBox1.ListIndex + 1
sat2 = Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row + 1
k = ComboBox1.ListIndex + 1
ComboBox1 = vbNullString
adrs1 = Range(Cells(sat, "A"), Cells(sat, "AE")).Address
adrs2 = Range(Sheets("Sayfa2").Cells(sat2, "A"), Sheets("Sayfa2").Cells(sat2, "AE")).Address
Sheets("Sayfa2").Range(adrs2).Value = Sheets("Sayfa1").Range(adrs1).Value
Sheets("Sayfa1").Rows(k).Delete
ComboBox1.RowSource = "Sayfa1!a1:a" & [Sayfa1!a65536].End(3).Row
End If
End Sub

 

[airborne]

Teşekkür ederim üstad, eline sağlık