پرسش ایجاد ردیف خودکار و تشیخص عدد اخرین ردیف

[aof]

من دریک شیت کدی نوشتم که اطلاعات را به یک جدول در یک شیت دیگراضافه می کنه اما این مورد را در ان ماکرو که برای یک کلید هست چطوربنویسم که با هر بار زدن دکمه پیاده شه:
1- شیتی که جدول در ان است غیرقابل تغییر باشه و کسی نتونه دستکاریش کنه
2- دوستون ردیف و سن هست . اگرستون سن خالی نبود یک ردیف ایجاد بشه
3- شماره اخرین ردیف را چطوری میشه بدست اوردودر یک سلول نوشت
4- با گذاشتن دکمه ای وزدن ان این شیت جدول قابل تغییر بشه وبعد از تغییرات واحیانا حذف سطرهایی ، ستون ردیف اپدیت شودواعدادش مرتب شود(این مرتب سازی رامیخواهم با کدنویسی بشه نه با استفاده از امکان فیلترها)

[mokaram]

دوست عزیز بهتره فایل ضمیمه هم باشه ( لزوما فایل اصلی منظور نیست بهتره نمونه ای از فایلتون را بسازید و پیوست کنید )

بعد مرحله به مرحله خواستتون را بفرمایید تا گام به گام کار جلو بره.

ممنون از حسن توجهتون

[aof]

من دریک شیت کدی نوشتم که اطلاعات را به یک جدول در یک شیت دیگراضافه می کنه اما این مورد را در ان ماکرو که برای یک کلید هست چطوربنویسم که با هر بار زدن دکمه پیاده شه:
1- شیتی که جدول در ان است غیرقابل تغییر باشه و کسی نتونه دستکاریش کنه
2- دوستون ردیف و سن هست . اگرستون سن خالی نبود یک ردیف ایجاد بشه
3- شماره اخرین ردیف را چطوری میشه بدست اوردودر یک سلول نوشت
4- با گذاشتن دکمه ای وزدن ان این شیت جدول قابل تغییر بشه وبعد از تغییرات واحیانا حذف سطرهایی ، ستون ردیف اپدیت شودواعدادش مرتب شود(این مرتب سازی رامیخواهم با کدنویسی بشه نه با استفاده از امکان فیلترها)

من برای اینکه اطلاعات که از شیت فرم به شیت بانک منتقل بشه متوجه بشه اخرین سطری که چیزی نوشته شده کدام است تا بعد از ان اطلاعات را جایگذاری کنه به این نتیجه رسیدم یک ستون ردیف ایجاد کنم که با هر بار زدن دکمه ثبت یک عدد می گیرد و پایین میاید و دیگر اینکه به کاربر اجازه ندهم ردیف ها را پاک کند بخاطر همین گفتم شیت بانک غیرقابل تغییر یا readonly باشه . اگر این تصور برای این نیتم درسته در فایل پیوستی که گذاشتم مواردی که میخواهمم را می نویستم
1- شیت بانک غیر قابل تغییر باشه و فقط اطلاعات از شیت فرم به ان اضافه میشه
2-در شیت بانک اگر ستون 1 خالی نباشه( که اطلاعاتش از باکس شماره 1 شیت فرم به ان ارسال میشه وکدهاشو نوشتم) یه ردیف اضافه بشه
3- شماره اخرین ردیفی که نوشته شده چطور میشه بدست اورد وسلولی نوشت
4-با گذاشتن دکمه ای درشیت بانک وزدن ان این شیت قابل تغییر بشه وبعد از تغییرات درشیت واحیانا حذف سطرهایی ، ستون ردیف اپدیت شودوعدد ردیفها مرتب شود(این مرتب سازی رامیخواهم با کدنویسی بشه نه با استفاده از امکان فیلترها)

[misammisam]

سلام
همه اینکارایی که شما میخواید خودش یه پروژست ولی چند راهنمایی میکنم که میتونه کمکتون کنه .
برای پیدا کردن آخرین ردیف خالی فرم بانکتون از فرمول زیر استفاده کنید ، توجه کنید که محدوده جدولو تو فرمول میتونید به خواست خودتون عوض کنید ، من اینجا گفتم کل جدول شما رو سرچ گنه .

lastrow_2 = Sheet2.Range("c:m").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1 

و فرض کنید ردیف اول بانکتون قراره تاریخ فرم درش ذخیره بشه ، به اینصورت عمل کنید :

Sheet2.Range("d" & lastrow_2).Value = Sheet1.Range("f2").Value 

براتون یه نمونه هم میزارم که بهتر متوجه بشید

[aof]

من میتونم بگم که اگر ستون یک خالی نباشه یک کاری انجام دهد.

از نظر برنامه نویسی میشه گفت در ستون ردیف عدد یک اضافه کن و در مراحل بعد به سلول قبلی یکی اضافه کن و در سلول بعدی ردیف بنویس . این برای ایجاد اعداد ردیف خوبه؟ خود این عمل را چطوری میشه نوشت؟

[misammisam]

من میتونم بگم که اگر ستون یک خالی نباشه یک کاری انجام دهد.

از نظر برنامه نویسی میشه گفت در ستون ردیف عدد یک اضافه کن و در مراحل بعد به سلول قبلی یکی اضافه کن و در سلول بعدی ردیف بنویس . این برای ایجاد اعداد ردیف خوبه؟ خود این عمل را چطوری میشه نوشت؟

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

Private Sub CommandButton1_Click()
On Error Resume Next
lastrow_2 = Sheet2.Range("c:m").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1

If (lastrow_2 = 4) Then
Sheet2.Range("c" & lastrow_2).Value = 1
Else
Sheet2.Range("c" & lastrow_2).Value = Sheet2.Range("c" & lastrow_2 - 1).Value + 1
End If

End Sub