فاکتور فروش

[حمود]

با سلام
ی فاکتور فروش طراحی کردم که چند تا قابلیت میخوام براش بذارم که سوادشو ندارم
1.اینکه بعد از پرشدن اتومات با شماره فاکتور سیو بشه(البته از excel template استفاده کردم ولی زیاد کاربردی نیست)
2.تعداد ردیف ها با توجه به ردیف های پرشده شماره گذاری و پرینت شه
3.اگه فایل کاربردی در مورد تنخواه گردانی هم دارید ممنون میشم در اختیارم بذارن
متاسفانه تا حالا هم با ماکروها اصلن کارنکردم

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

درود

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

[حمود]

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

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

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

سوال های شما بدون استفاده از وی بی قابل اجرا نیست البته دستورات پیچیده ای نیاز نداره ، شماره فاکتور در یک سلول درج میشه بالاخره میتونید ضبط ماکرو رو فعال کنید بعد save as بگیرید بعد مجدد فایل رو باز کنید و در قسمت ماکرو ضبط شده نام فایل رو به سلولی که شماره فاکتور در اون درج شده ارجاع بدید ، برای ردیف اتوماتیک هم از فرمول subtotal با کد 103 استفاده کنید برای پرینت هم به page break preview رو فعال کنید و پرینت بگیرید

[Amir Ghasemiyan]

اینم فایلش

اينكه چيز ديگه ايه

[حمود]

اينكه چيز ديگه ايه

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

[حمود]

چند تا چیز میخام واسم توضیح بدین اگه میشه

1.شماره فاکتور اتومات

2.ذخیره کردن هرفاکتور تو هارد و ایجاد فاکتور خام بعدی

3.رنگ متفاوت برای خونه هایی که باید پربشن

4.پرینت فقط تا ردیفی که پرشده

5.(این بی ربطه به فکتور) ی جدول میخام که بشه تا بینهایت ردیفاش زیاد بشه و یتونشو رو به طور مثال جمع کل زد

[Amir Ghasemiyan]

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

خب دوست عزيز مورد پنجم كه قولشو بهتون داده بودم.
فرموده بودين يك سطر به انتهاي ليست اضافه كنه، براي اينكار از اين ماكرو استفاده بفرماييد

Sub newrow()
    Range("B4").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    a = ActiveCell.Row
    Rows(a).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B" & a & ":H" & a).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    q = Range("B" & a - 1).Value
    Range("B" & a).Value = q + 1
    Range("B" & a - 1).Select
    Selection.Copy
    Range("B" & a).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

[hosseinamerey]

اینم یه فاکتور خیلی عالی خدمت دوستان
یه کمی دیر شد چون اینترنت نداشتم
دوستای گل خودم تشکر یادتون نره

[fintech]

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

[rezajaberpour]

https://s34.picofile.com/file/8486180184/invoice_taksun.rar.html