افزودن سطر با توجه به محتویات

[shahabsoltani]

سلام دوستان
من یه فرم فاکتور طراحی کردم که شامل 6 ردیف کالاست
و فرمول نوشتم (البته به کمک استاد فیروزجایی)که اطلاعات رو از فرم به یه شیت انتقال میده
حالا مشکل اینجاست:
فاکتور من 6 ردیف کالا داره
وقتی من به یک نفر فروش میکنم یه شماره فاکتور بهش اختصاص میدم
ممکنه این فاکتور 2 ردیف داشته باشه و ممکن هم هست هر 6 ردیف پر بشه
زمانی که 2 ردیف داره ثبت که میزنم میره توی شیت میشینه اما بعد از دو ردیف پرشده 4 ردیف دیگه رو خالی میزاره
وقتی من فاکتور جدید ثبت میکنم میره و بعد از اون ردیفهای خالی میشینه
ممنونم

[MEYTI]

RE: افزودن سطر با توجه به محتویات

با سلام دوست عزیز شما میتونی با اضافه کردن یک شرط که ردیفهای از فاکتور که پرشدن رو ثبت کنه
اگه نمونه فایلتو بذاری بهتر متونیم کمکت کنیم

[shahabsoltani]

RE: افزودن سطر با توجه به محتویات

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

[mmahdih]

RE: افزودن سطر با توجه به محتویات

سلام
میتونید در سایت picofile.com برید و پس از آپلود آدرس اون رو در اینجا قرار بدید

[shahabsoltani]

RE: افزودن سطر با توجه به محتویات

اینم آدرس فایلhttp://s4.picofile.com/file/7810969993/%D9%81%D8%A7%DA%A9%D8%AA%D9%88%D8%B1_%D9%81%DB%8C% D8%AF%D9%88%D8%B1.rar.html[hr]
این سایت همه چیزش خوبه فقط ضمیمه کردن فایلش خیلی مسخره ست
من که نفهمیدم چطوری باید اینکار رو بکنم
اگه کسی خواست لطف کنه و مشکل منو حل کنه زحمت بکشه بره به انجمن فرساران من فایل مشکلم رو اونجا گذاشتم

[امين اسماعيلي]

RE: افزودن سطر با توجه به محتویات

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

[~M*E*H*D*I~]

اینم آدرس فایلhttp://s4.picofile.com/file/78109699...D8%B1.rar.html[hr]
این سایت همه چیزش خوبه فقط ضمیمه کردن فایلش خیلی مسخره ست
من که نفهمیدم چطوری باید اینکار رو بکنم
اگه کسی خواست لطف کنه و مشکل منو حل کنه زحمت بکشه بره به انجمن فرساران من فایل مشکلم رو اونجا گذاشتم

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

[~M*E*H*D*I~]

فایل شما رو دیدم به نظر میرسه مشکلت در تشخیص آخیرن ردیف باشه تابع زیر به صورت کلی آخرین ردیف رو مشخص میکنه در مورد فاکتور 2 یا 6 ردیفه هم میتونی از یک شرط استفاده کنی

Public Function lastrow()
Dim lrow As Long, lcol As Long, mrow As Long, mcol As Long, i As Integer
Application.ScreenUpdating = True

lcol = Application.Workbooks("leave.xlsm").Sheets("personel").UsedRange.Columns.Count
mrow = 0
  For i = 1 To lcol
          lrow = Range(Sheet1.Cells(Rows.Count, i), Sheet1.Cells(Rows.Count, i)).End(xlUp).Row
                    If lrow > mrow Then
                         mrow = lrow
                    Else
                    End If
                    DoEvents
  Next i
lastrow = mrow

End Function