احمدزمان قام بنشر يونيو 21, 2010 مشاركة قام بنشر يونيو 21, 2010 http://www.officena.net/ib/index.php?app=forums&module=post§ion=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 رابط هذا التعليق شارك More sharing options...
khaledplayer قام بنشر يونيو 21, 2010 الكاتب مشاركة قام بنشر يونيو 21, 2010 كرم الله وجهك يا غالى كل هذا من خير منتدانا الغالى وفق الله الجميع استمحيك عزرا هذا التعديل يعتبر الاخير حتى الان احب لو عندك تعليق او تعديل وبالمرة تضع الكود واللمسات الاخيرة حتى يكون مساعدا لى وللاخوة الاعضاء الاسم والباسورد admin admin حماية الصفحات إن وجت khaledplayer اعزرنى وجعت راسك بقى :fff: نضع الكود وتشوف لو محتاج أى شيئ تانى ونبدء بالإستخدام إنشاء الله Medical_Inovice.rar رابط هذا التعليق شارك More sharing options...
khaledplayer قام بنشر يونيو 22, 2010 الكاتب مشاركة قام بنشر يونيو 22, 2010 للرفع رابط هذا التعليق شارك More sharing options...
khaledplayer قام بنشر يونيو 24, 2010 الكاتب مشاركة قام بنشر يونيو 24, 2010 (معدل) السلام عليكم مرة اخرى بعد التعديل والترحيل والتظبيط بنسبة 80% احب أخد رئيكم أكمل الملف ولا حد عندة رأى تانى ؟ الاسم admin كلمة السر admin انتظر رد الاخوة Medical_Inovice_try2.rar تم تعديل يونيو 24, 2010 بواسطه khaledplayer رابط هذا التعليق شارك More sharing options...
هنا2 قام بنشر يوليو 16, 2010 مشاركة قام بنشر يوليو 16, 2010 رررائع رابط هذا التعليق شارك More sharing options...
myyasser قام بنشر يوليو 28, 2010 مشاركة قام بنشر يوليو 28, 2010 اللهم لك الحمد كما ينبغى لجلال وجهك وعظيم سلطانك ... لا إله إلا أنت سبحانك أنى كنت من الظالمين. جزاك الله كل خير وجعله فى ميزان حسناتك......... رابط هذا التعليق شارك More sharing options...
MAHMOUD ALI YOUSSEF قام بنشر يوليو 12, 2011 مشاركة قام بنشر يوليو 12, 2011 اخي احمد بارك الله فيك وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.