حذف کردن یک سطر از یک شیت و انتقال همان سطر به یک شیت دیگر

[a.dal65]

با سلام خدمت اساتید محترم
من توی شیت اولم یه جدول دارم.
که اطلاعات اون جدول توی یه UserForm میاد . و یه دکمه حذف گذاشتم ، که کاربر میتونه از طریق لیست باکس اطلاعات شیت رو حذف کنه.



من میخوام هر سطری رو که کاربر حذف کرد توی شیت حذفیات بیاد.
(یعنی از شیت اول حذف بشه و بره توی شیت حذفیات)

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[a.dal65]

دوستان میشه به این طریق هم به نتیجه رسید:

Delete که کار میکنه .
فقط باید از سطری که قراره حذف بشه یه کپی توی شیت دوم بیاد و تمام
سرچ هم کردم ولی به جواب درستی نرسیدم
copy rows to another sheet based on row number

[Ali Parsaei]

سلام،
در کد هاي فايل ارسالي شيت DataUser داريد در صورتي که چنين شيتي در فايل نداريد و فکر کنم موقع ارسال نام آن را به info تغيير داده ايد،
پس اول نام DataUser را در کدتان به info اصلاح کنيد
بعد نام شيت حذفيات را هم به انگليسي تغيير دهيد (hazfiat) چون حرف "ي" در عبارت "حذفيات" ممکن است مشکل ايجاد کند،
حالا کد کليک CommandButton3 را به صورت زير اصلاح کنيد:

Private Sub CommandButton3_Click()
' Delete Button
Dim sil As Integer
If ListBox1.ListIndex >= 0 Then
cevap = MsgBox(" آيا مطمئن هستيد؟", vbYesNo + vbCritical + vbMsgBoxRight, "حذف")
If cevap = vbYes Then
sil = ListBox1.ListIndex + 2
Sheets("Info").Rows(sil).Select
Selection.Copy
Sheets("hazfiat").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Sheets("Info").Select
Application.CutCopyMode = False
Sheets("Info").Select
Sheets("Info").Rows(sil).Delete
For i = 2 To Range("a65536").End(3).Row
Cells(i, 1).Value = i - 1
Next 'i
MsgBox "حذف با موفقيت انجام شد", vbMsgBoxRight, "حذف"Unload Me
UserForm1.Show
End If
End If
End Sub 

[a.dal65]

ممنون جناب پارسا
بله درست میفرمایید اسم فایل رو درست نکرده بودم.
خودم دست بکار شدم نت رو زیر و رو کردم و تا اینجا پیش رفتم که توی شیت حذفیات کپی میشد ولی هر بار که میزدم ، عوض اینکه توی سطر جدید کپی بشه ، اطلاعاتو توی همون سطر اول کپی میکرد:

Sheets("DataUser").Rows(sil).Copy Destination:=ActiveWorkbook.Sheets("Sheet2").Range("a:a").End(xlUp).Offset(1, 0) 

باز هم ممنون بابت وقتی که گذاشتید و مشکلمو حل کردید