[حل شده] ثبت شماره

[میثم مقدم نیا]

سلام
من توی سطون A شماره ردیف دارم که به صورت زیر وارد کردم
(A2=Row(1
(A3=Row(2
و الا اخر ؛ از این کد برای این استفاده کردم که در هنگام مرتب سازی ستونهای دیگه شماره ردیفهام بهم نریزه.
حال مشکل من اینجاست که میخوام توی یوزرفرم یک اسم یا کالای جدید اضافه کنم (مثلا ردیف 16) تو ستون A16 عدد 15 نوشته میشه من میخوام که به جای 15 کد
(Row(15=
ثبت بشه

[hadi1980]

سلام
ميشه فايل بزاريد تا بشه دقيق فهميد و دقيق جواب داد
اگه درست فهميده باشم کافيه مثلا بنويسيد

range("A1")="=row(A1)"

[میثم مقدم نیا]

سلام
ميشه فايل بزاريد تا بشه دقيق فهميد و دقيق جواب داد
اگه درست فهميده باشم کافيه مثلا بنويسيد

range("A1")="=row(A1)"

سلام
مرسی هادی جان وقتی از کد شما استفاده کردم با مشکل روبرو شدم


لطفا فایل پیوست را ببینید

[hadi1980]

سلام مجدد
خب معلومه پيام خطا ميده آخه اونجايي که اوني که گفتم گذاشتي خيلي غلط بود
اگرچه اصلا نفهميدم واقعا چرا الزام داري که از فرمول row استفاده کني و يه عدد ساده اونجا نميخواي بزاري ولي براتون اصلاحش کردم
دوتا اصلاحيه
اول اينکه بايد فرمت اون سلول بشه general نه text
دوم اينکه خط 14 برنامه رو اصلاح کردم
فايل پيوست رو ببينيد
راستي يه نکته جالب اگه فايلتون رو با فرمت xls ذخيره کنيد ماکرو توش ميمونه و لازم نيست با xlsm ذخيره کنيد که نتونيد تو انجمن آپلودش کنيد
موفق باشيد
هادي

[میثم مقدم نیا]

سلام مجدد
خب معلومه پيام خطا ميده آخه اونجايي که اوني که گفتم گذاشتي خيلي غلط بود
اگرچه اصلا نفهميدم واقعا چرا الزام داري که از فرمول row استفاده کني و يه عدد ساده اونجا نميخواي بزاري ولي براتون اصلاحش کردم
دوتا اصلاحيه
اول اينکه بايد فرمت اون سلول بشه general نه text
دوم اينکه خط 14 برنامه رو اصلاح کردم
فايل پيوست رو ببينيد
راستي يه نکته جالب اگه فايلتون رو با فرمت xls ذخيره کنيد ماکرو توش ميمونه و لازم نيست با xlsm ذخيره کنيد که نتونيد تو انجمن آپلودش کنيد
موفق باشيد
هادي

ممنون از کمکتون آقا هادی
برای این از عدد ساده استفاده نکردم چون وقتی عمل مرتب سازی رو انجام میدم ترتیب این اعداد بهم میخوره مثل ۱.۲.۳.۴ میشه۱.۴.۳.۲ همچین شکلی
بازم ممنون

[hadi1980]

آهان فهميدم
ولي يه راهکار ديگه اين بود که هر وقت مرتب ميکردي تو برنامه مرتب کردن يه دستور مينوشتي که ستون a رو که شماره رديف هست از نو (از يک تا هرچند که بشه) بازنويسي کنه
موفق باشيد
هادي

[میثم مقدم نیا]

سلام مجدد
خب معلومه پيام خطا ميده آخه اونجايي که اوني که گفتم گذاشتي خيلي غلط بود
اگرچه اصلا نفهميدم واقعا چرا الزام داري که از فرمول row استفاده کني و يه عدد ساده اونجا نميخواي بزاري ولي براتون اصلاحش کردم
دوتا اصلاحيه
اول اينکه بايد فرمت اون سلول بشه general نه text
دوم اينکه خط 14 برنامه رو اصلاح کردم
فايل پيوست رو ببينيد
راستي يه نکته جالب اگه فايلتون رو با فرمت xls ذخيره کنيد ماکرو توش ميمونه و لازم نيست با xlsm ذخيره کنيد که نتونيد تو انجمن آپلودش کنيد
موفق باشيد
هادي

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

Private Sub CommandButton3_Click()
Dim n
n = 2
Do While Sheet1.Cells(n, 1) <> Empty
If Sheet1.Cells(n, 6) = ListBox1.Text Then

If MsgBox("آيا مي خواهيد رديف مورد نظر حذف گردد", vbYesNo + vbDefaultButton2 + vbQuestion, Me.Caption) = vbYes Then

  Sheet1.Rows(n).Delete Shift:=xlUp
MsgBox ".رديف مورد نظر حذف گرديد", , Me.Caption
Exit Do

End If

End If
n = n + 1
Loop
Call addlist

End Sub

Public Sub addlist()
Dim n, col
n = 2

 col = WorksheetFunction.CountA(Sheet1.Range("1:1"))
 ListBox1.ColumnCount = col + 1
 ListBox1.Clear

Do While Sheet1.Cells(n, 1) <> Empty
           ListBox1.AddItem Sheet1.Cells(n, 6).Value  'n - 1 ' c.Row - 1
           For i = 0 To col
            ListBox1.List(ListBox1.ListCount - 1, i + 1) = Sheet1.Cells(n, i + 1).Value ' c.Value
           Next i

n = n + 1
Loop
End Sub 

امید وارم که منظورم را رسونده باشم

[hadi1980]

سلام مجدد
برنامه جديدتون رو برام بزاريد تا اصلاحش کنم
مشکل اينه که شما داريد رفرنس اون رديف رو حذف ميکنيد و پيام خطاي رفرنس ميده
راهش اينه که تو برنامه بعد از هربار پاک کردن رديفها مجددا ستون اول از رديف اول تا آخر بازنويسي بشه
تو فايلي که قبلا گذاشتيد برنامه حذف کردن وجود ندارد

[میثم مقدم نیا]

سلام مجدد
برنامه جديدتون رو برام بزاريد تا اصلاحش کنم
مشکل اينه که شما داريد رفرنس اون رديف رو حذف ميکنيد و پيام خطاي رفرنس ميده
راهش اينه که تو برنامه بعد از هربار پاک کردن رديفها مجددا ستون اول از رديف اول تا آخر بازنويسي بشه
تو فايلي که قبلا گذاشتيد برنامه حذف کردن وجود ندارد

سلام
اینم فایل پیوست

[hadi1980]

سلام
فايلتون رو همانطور که گفتم اصلاح کردم