سلام دوستان
یه فایل دارم که وقتی اطلاعات و درج مکنم از طریف فرم اتوماتیک شماره ردیف اضاف بشه
و هروقت ردیفی و حذف مکنم از طریف فرم شماره ردیف بهم میریزه
مثلا اگر 10 تا ردیف داشته باشم وردیف 8 و از 10 ردیف پاک کنم
شماره های ردیف میشه یه فایل دارم که وقتی اطلاعات و درج مکنم از طریف فرم اتوماتیک شماره ردیف اضاف بشه
و هروقت ردیفی و حذف مکنم از طریف فرم شماره ردیف بهم میریزه
مثلا اگر 10 تا ردیف داشته باشم وردیف 8 و از 10 ردیف پاک کنم
1
2
3
4
5
6
7
9
10
میخوام شمارهردیف ها با هر پاک کردن ردیف بروز رسانی بشه
اینک کد delete هستبخش حذف کار میکنه اما شماره ردیفهارو بروزرسانی نمیکنه
()Private Sub CommandButton32_Click
Dim c As Range
("For Each c In Sheet2.Range("a2:a10000
If c.Offset(0, 0).Value = TextBox1.Text Then
Rows(c.Row).Delete Shift:=xlUp
End If
Next
"MsgBox "delete
End Sub
ممنونننننننننننننننن
کامنت