[حل شده] طراحی فاکتور همراه با بایگانی

[الماس شیشه]

با سلام و احترام خدمت دوستان محترم
یه فاکتور طراحی کردم که یه بانک اطلاعاتی یا شیتی برای ذخیره تمامی صورت فاکتور های قبلی من رو داشته باشه و براش یه فرمول نوشتم ولی وقتی تو ویژوال اجراش میکنم به مشکل بر می خورم در ضمن این فرمول رو روی صفحه اصلی شیت 2 کپی کردم
اگه محبت کنید وبگیدچجوری اصلاحش کنم و براش یه دکمه ثبت فاکتور بزارم ممنون میشم.
DDDD.xlsx

[Amir Ghasemiyan]

سلام دوست عزیز
شما از این کد استفاده کردین:

x = Sheets("Sheet2").Range("A5").Value

ولی تو شیت 2 سلول A5 هیچ مقداری قرار ندادین. همین باعث خطا میشه

درضمن در خط بعد نوشتین:

Sheets("Sheet2").Range("B5:L5").Copy

ولی هیچ مقداری توی این محدوده نیست.

[iranweld]

با سلام

مشکل فایل برطرف شد سایر کدها که تو فایل مشخص شده را اصلاح کنید

Sub test()
Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row + 1

If Z = 4 Then
Z = 5
End If

Sheet1.Range("A" & Z).Value = Sheet1.Range("A" & Z - 1).Value + 1
Sheet1.Range("B" & Z).Value = Sheet2.Range("E4").Value
Sheet1.Range("C" & Z).Value = Sheet2.Range("D8").Value 

[mohebbi]

سلام مهندس عزيز
خوبين؟
براي كنترل موجودي اكسل آماده دارين؟
ممنون