پرسش ایجاد ردیف جدید

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

سلام
دوستان چطور میتونیم یک ردیف جدید به صورت خودکار ایجاد کنم
یه فرمی مثل تصویر زیر که بعد از پر کردن قیمت واحد یک ردیف جدید زیر اون ایجاد بشه تا اطلاعات جدید را وارد کنم

من همچنین موردی را چند جا کلیپش را دیده
چطور میتونم این کار را انجام بدم

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

سلام
دوستان چطور میتونیم یک ردیف جدید به صورت خودکار ایجاد کنم
یه فرمی مثل تصویر زیر که بعد از پر کردن قیمت واحد یک ردیف جدید زیر اون ایجاد بشه تا اطلاعات جدید را وارد کنم
[ATTACH=CONFIG]19681[/ATTACH]
من همچنین موردی را چند جا کلیپش را دیده
چطور میتونم این کار را انجام بدم

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

http://www.aparat.com/v/YGwTf

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

سلام
دوستان و اساتید عزیزم کسی نبود در این مورد من را راهنماییم کنه؟

[misammisam]

سلام
دوستان و اساتید عزیزم کسی نبود در این مورد من را راهنماییم کنه؟

سلام
خوب این کد نویسی شده و ما نمیدونیم اطلاعات شما از Vb چقدره ، یه فایل خیلی ساده براتون درست کردم که متوجه بشید کدهاش بطور کلی چی به چیه .
تو کدها گفتم اگر ردیفهای نوشته شده در جدول بیشتر از 4 عدد بود یه ردیف به انتهای لیست اضافه کنید ، پس شما فقط کافیه تو ردیف جدول شماره ردیف رو بزنید خودش خط اضافه میکنه .

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("Page")) Is Nothing Then
 If (Application.WorksheetFunction.CountBlank(Range("Radif")) < 5) Then
 Range("RadifEnd").Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove
 End If
End If
End Sub 

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

سلام
خوب این کد نویسی شده و ما نمیدونیم اطلاعات شما از Vb چقدره ، یه فایل خیلی ساده براتون درست کردم که متوجه بشید کدهاش بطور کلی چی به چیه .
تو کدها گفتم اگر ردیفهای نوشته شده در جدول بیشتر از 4 عدد بود یه ردیف به انتهای لیست اضافه کنید ، پس شما فقط کافیه تو ردیف جدول شماره ردیف رو بزنید خودش خط اضافه میکنه .

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("Page")) Is Nothing Then
 If (Application.WorksheetFunction.CountBlank(Range("Radif")) < 5) Then
 Range("RadifEnd").Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove
 End If
End If
End Sub 

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

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

☝️☝️☝️☝️☝️

[misammisam]

سلام
تو شیت مورد نظر سه محدوده تعریف شده که در فرمول نویسی معلومه ("Page") و ("Radif") و ("RadifEnd")
در خود شیت بنظرم بزنید و محدوده هارو ببینید دستتون میاد چی به چیه .

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

سلام
تو شیت مورد نظر سه محدوده تعریف شده که در فرمول نویسی معلومه ("Page") و ("Radif") و ("RadifEnd")
در خود شیت بنظرم بزنید و محدوده هارو ببینید دستتون میاد چی به چیه .

سلام استاد
اینا میدونم ولی متوجه نشدم که این سه محدوه چطور تعیین شده
مثلا تیبل ساخته شده چطوری نامگذاری شده و برای تغییر این سه محدوده چطوری عمل کنم
ممنون از شما دوستان گلم که راهنماییمون میکنید

[misammisam]

سلام استاد
اینا میدونم ولی متوجه نشدم که این سه محدوه چطور تعیین شده
مثلا تیبل ساخته شده چطوری نامگذاری شده و برای تغییر این سه محدوده چطوری عمل کنم
ممنون از شما دوستان گلم که راهنماییمون میکنید

سلام
همه اینها یه سرچ در همینجا بزنید توضیحات مفصل وجود داره .
برای ساختن نام برای محدوده برید داخل شیت مورد نظر محدودتونو سلکت کنید و کلیدهای Ctrl + F3 رو بزنید و نام محدودرو بدید و OK کنید .
برای ویرایش محدوده های قبلی هم همون کلیدهای Ctrl + F3 رو بزنید و Edit رو بزنید و ویرایش کنید .
و محدوده هایی که من تعریف کردم به این معنیه در فرمولها :
("Page") : کل محدوده جدول
("Radif") : ستونی که در اونها شماره ردیف میخوره
("RadifEnd") : آخرین ردیف محدوده در جدولتون که در ("Page") قبلا مشخص شده .

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

سلام
همه اینها یه سرچ در همینجا بزنید توضیحات مفصل وجود داره .
برای ساختن نام برای محدوده برید داخل شیت مورد نظر محدودتونو سلکت کنید و کلیدهای Ctrl + F3 رو بزنید و نام محدودرو بدید و OK کنید .
برای ویرایش محدوده های قبلی هم همون کلیدهای Ctrl + F3 رو بزنید و Edit رو بزنید و ویرایش کنید .
و محدوده هایی که من تعریف کردم به این معنیه در فرمولها :
("Page") : کل محدوده جدول
("Radif") : ستونی که در اونها شماره ردیف میخوره
("RadifEnd") : آخرین ردیف محدوده در جدولتون که در ("Page") قبلا مشخص شده .

ممنون از راهنمایتون

استاد من تغییرات گفته شده را انجام دادم ولی فایلم به درستی کار نکرد فایل پوست را ببنید اشکال کارم کجاست

یه سوال دیگه چطور میتونم همراه با ایجاد شدن ردیف جدید شماره ردیف و فرمول قیمت کل در ردیف جدید هم اضافه بشند

[misammisam]

ممنون از راهنمایتون

استاد من تغییرات گفته شده را انجام دادم ولی فایلم به درستی کار نکرد فایل پوست را ببنید اشکال کارم کجاست

یه سوال دیگه چطور میتونم همراه با ایجاد شدن ردیف جدید شماره ردیف و فرمول قیمت کل در ردیف جدید هم اضافه بشند

سلام
اگر میخواید از کد نویسی در اکسل مخصوصا در ضمینه حسابداری استفاده کنید حتما باید اطلاعاتتون رو در کد نویسی ببرید بالا ، چون کوچکترین مشکلی در اینباره باعث اختلافات بزرگی در حسابداری میشه .
من فایلی ضمیمه میکنم با همون مشخصاتی که شما خواستید ولی بهتره شما از Table ها در اکسل استفاده کنید ، چون همینکارهارو برای شما بدون دونستن کدنویسی در VB اکسل انجام میده ( در همین فایل به شیت جدول نگاه بکنید یک نمونه قرار دادم براتون )

[misammisam]

فایل یادم رفت