فاتورة بيع من نسختين

[احمدزمان]

http://www.officena.net/ib/index.php?app=forums&module=post&section=post&do=reply_post&f=14&t=32848

‏الاثنين‏، 10‏/7‏/1431هـ الموافق ‏21‏/6‏/2010م

السلام عليكم ورحمة الله

عمل جدا رائع ومجموعة فورمز فعلا مميزة في التصميم و الأداء

جزاك الله كل خير

تم عمل التعديل المطلوب بارك الله فيك

Sub ãÇßÑæ1()

'ÇáÊÑÍííá

Sheets("Inovice").Select

Nbr = Sheets("Inovice").Cells(4, 5) 'ÝÇÊæÑÉÑÞã

Cst = Sheets("Inovice").Cells(4, 2) 'ÇáÚãíá

Dt = Sheets("Inovice").Cells(5, 5) 'ÇáÊÇÑíÎ

Cr = Sheets("Inovice").Cells(5, 9) 'äæÚ äÞÏí Çæ ÂÌá

BA = Sheets("Inovice").Cells(43, 2) 'ãÏÝæÚÌ

TR = Sheets("Inovice saving").Range("b55555").End(xlUp).Row + 1

On Error Resume Next

Application.ScreenUpdating = False

Sheets("Inovice saving").Range("A3:D" & TR).AutoFilter

With Sheets("Inovice saving")

.Cells(TR, 12) = BA

.Cells(TR, 13) = Sheets("Inovice").Cells(44, 9)

For R = 8 To 40

If Cells(R, 1) <> "" Then

.Cells(TR, 2) = Nbr

.Cells(TR, 3) = Dt

.Cells(TR, 4) = Cr

.Cells(TR, 5) = Cells(R, 1)

.Cells(TR, 6) = Cells(R, 4)

.Cells(TR, 7) = Cells(R, 5)

.Cells(TR, 8) = Cells(R, 6)

.Cells(TR, 9) = Cells(R, 7)

.Cells(TR, 10) = Cells(R, 9)

.Cells(TR, 11) = Cst

TR = TR + 1

End If

Next R

End With

2

Columns("K:T").Hidden = False

    Range("A7:C40").AutoFilter Field:=1, Criteria1:="<>"

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True

QP = MsgBox("åá ÊÑíÏ ØÈÇÚÉ äÓÎ ÇÎÑì ãä ÇáÝÇÊæÑÉ   ", vbYesNo, "ÊÃßíÏ ØÈÇÚÉ")

If QP = vbYes Then GoTo 2

    Range("A7:C40").AutoFilter

    Columns("K:T").Hidden = True

    Range("A8:F40,B4:C5,i5:i5,B43:B43,I45:I45").ClearContents

    Range("E5").Formula = "=TODAY()"

    Cells(4, 5) = Nbr + 1

    Range("a8").Select

    ActiveWindow.SmallScroll Down:=-99




End Sub

[khaledplayer]

كرم الله وجهك يا غالى كل هذا من خير منتدانا الغالى وفق الله الجميع

استمحيك عزرا هذا التعديل يعتبر الاخير حتى الان

احب لو عندك تعليق او تعديل وبالمرة تضع الكود واللمسات الاخيرة حتى يكون مساعدا لى وللاخوة الاعضاء

الاسم والباسورد admin admin

حماية الصفحات إن وجت khaledplayer

اعزرنى وجعت راسك بقى :fff:

نضع الكود وتشوف لو محتاج أى شيئ تانى ونبدء بالإستخدام إنشاء الله

Medical_Inovice.rar

[khaledplayer]

للرفع

[khaledplayer]

السلام عليكم مرة اخرى

بعد التعديل والترحيل والتظبيط بنسبة 80%

احب أخد رئيكم أكمل الملف ولا حد عندة رأى تانى ؟

الاسم admin

كلمة السر admin

انتظر رد الاخوة

Medical_Inovice_try2.rar

تم تعديل يونيو 24, 2010 بواسطه khaledplayer

[هنا2]

رررائع

[myyasser]

اللهم لك الحمد كما ينبغى لجلال وجهك وعظيم سلطانك ... لا إله إلا أنت سبحانك أنى كنت من الظالمين.

جزاك الله كل خير وجعله فى ميزان حسناتك.........

[MAHMOUD ALI YOUSSEF]

اخي احمد

بارك الله فيك

وجزاك الله كل خير