Listboxta satır silme ve arşiv oluşturma

[airborne]

Private Sub CommandButton2_Click()
If MsgBox(ListBox1.Text & " adlı kişiye ait bilgiler silinecektir, emin misiniz?", vbYesNo, "Personel Silme") = vbYes Then Rows(ListBox1.ListIndex + 1).Delete
End Sub
bu satırı
Private Sub CommandButton2_Click()
If MsgBox(ListBox1.Text & " adlı kişiye ait bilgiler silinecektir, emin misiniz?", vbYesNo, "Personel Silme") = vbYes Then
Sheets("sayfa30").Rows(ListBox1.ListIndex + 1).Delete
Sheets("sayfa31").Rows(ListBox1.ListIndex + 1).Delete
Sheets("sayfa32").Rows(ListBox1.ListIndex + 1).Delete
End If
End Sub


Bu kod ile listboxtan ilgili sayfalardaki satırları silebiliyorum. ama Sayfa30 daki bilgileride aynı anda Arşiv diye bir çalışma sayfasına aktarmak istiyorum bunu nasıl düzenleyebilirim.

 

[hamitcan]

Bilgilerinizin hangi aralıkta olduğunu bilmediğim için, bilgilerinizin ("a1:a500") aralığında olduğunu varsaydım.Siz aralığı kendinize göre düzenlersiniz.

Sub arsivle()
Sheets("Arşiv").Range("a1:a500") = Sheets("Sayfa30").Range("a1:a500").Value
End Sub

 

[airborne]

sevgili hamitcan ilgin için teşekkürler ama tam olarak olmadı verdiğin kod. dosya ekte, açıklamada içindedir.

 

[Ferhat Pazarçevirdi]

Merhabalar,

"Personel Sil" başlıklı butonun kodunu, şu şekilde düzenleyin.

Private Sub CommandButton2_Click()
Dim SonBosSatir As Long
Dim i As Long
If MsgBox(ListBox1.Text & " adlı kişiye ait bilgiler silinecektir, emin misiniz?", vbYesNo, "Personel Silme") = vbYes Then
   SonBosSatir = Sheets("Arsiv").Cells(65536, 1).End(xlUp).Row + 1
   For i = 1 To 26
       Sheets("Arsiv").Cells(SonBosSatir, i) = Sheets("sayfa30").Cells(ListBox1.ListIndex + 1, i)
   Next i
   Sheets("sayfa30").Rows(ListBox1.ListIndex + 1).Delete
End If
End Sub

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[airborne]

tam istediğim gibi olmuş. çok teşekkür ederim

 

[mustim1547]

Bu sorunuda hallettim sayenizde ,teşekkür ederim www.ogretmencafe.net