طراحی فاکتور همراه با بایگانی

[الماس شیشه]

با سلام و احترام خدمت دوستان محترم
یه فاکتور طراحی کردم که یه بانک اطلاعاتی یا شیتی برای ذخیره تمامی صورت فاکتور های قبلی من رو داشته باشه و براش یه فرمول نوشتم ولی وقتی تو ویژوال اجراش میکنم به مشکل بر می خورم در ضمن این فرمول رو روی صفحه اصلی شیت 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]

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