ابو حمادة قام بنشر أبريل 28, 2016 قام بنشر أبريل 28, 2016 (معدل) السلام عليكم ورحمة الله وبركاته الاخوة الافاضل اتمنى حد يرد علي الاقل السلام يوجد كود نزلته من هذا المنتدى وعايز اطبقه عندى مش عارف افهمة اتمنى حد يشرحه ليا وجزاكم الله خيرا الكـــــــــود On Error GoTo 1 Dim LastR As Long Dim SText As String Dim StDate As Date Dim EndDate As Date Dim LastR1 As Long Application.ScreenUpdating = False Sheets("Aldata1").Range("b6:s10000").ClearContents SText = Sheets("Aldata1").Range("U3") StDate = Sheets("Aldata1").Range("W2") EndDate = Sheets("Aldata1").Range("W3") LastR1 = Sheets("add").Cells(Rows.Count, 2).End(xlUp).Row If SText <> "" Then Sheets("add").Range("b5:s" & LastR1).AutoFilter Field:=3, Criteria1:=SText Sheets("add").Range("b5:s" & LastR1).AutoFilter Field:=1, Criteria1:=">=" & Format(StDate, "yyyy/MM/dd"), Operator:=xlAnd, _ Criteria2:="<=" & Format(EndDate, "yyyy/MM/dd") LastR = Sheets("add").Cells(Rows.Count, 2).End(xlUp).Row If LastR >= 6 Then ' Sheets("add").Range("B5:S" & LastR).SpecialCells(xlCellTypeVisible).Copy Sheets("Aldata1").Range("B6").PasteSpecial Sheets("Aldata1").Range("A6").Select Sheets("add").Range("b5:S4").AutoFilter End If Else If SText = "" Then Sheets("card").Range("b3:k" & LastR1).AutoFilter Field:=1, Criteria1:=">=" & Format(StDate, "yyyy/MM/dd"), Operator:=xlAnd, _ Criteria2:="<=" & Format(EndDate, "yyyy/MM/dd") LastR = Sheets("card").Cells(Rows.Count, 2).End(xlUp).Row If LastR >= 4 Then Sheets("card").Range("C4:k" & LastR).SpecialCells(xlCellTypeVisible).Copy Sheets("كشف الحساب").Range("C7").PasteSpecial Sheets("كشف الحساب").Range("A7").Select Sheets("card").Range("b3:k3").AutoFilter End If End If End If Application.ScreenUpdating = True 1 End Sub تم تعديل مايو 1, 2016 بواسطه عبدالله المجرب تعديل شكل الكود
الصـقر قام بنشر أبريل 28, 2016 قام بنشر أبريل 28, 2016 اخى الكريم ابوحماده الاخ الحبيب ياسر خليل قالها قبل كدا قويه الكود من غير مرفق زى السلطه بدون طماطم بالله عليك تقدر تاكل السلطه بدون طماطم يفضل ارفاق ملف ووضع الكود بالضغط على هذه العلامه <> والصق الكود تقبل تحياتى 1
ابو حمادة قام بنشر أبريل 28, 2016 الكاتب قام بنشر أبريل 28, 2016 شكرا لردك استاذ صقر مع اني خايف اتقل عليك وعموما دا ملف كنت رافعه قبل كدا بس مافيش حد رد عليا الملف دا به كود مشابه لهذا الكود تقريبا لو امكن تعديل الكود ليتوائم مع الملف ولو كان موضوع الصفوف اسفل كل صفحة صعب ممكن تتجنب الجزئيه دى
ابو حمادة قام بنشر أبريل 28, 2016 الكاتب قام بنشر أبريل 28, 2016 اتمني استاذ صقر لو الملف وصل عرفني باي رد
الصـقر قام بنشر أبريل 30, 2016 قام بنشر أبريل 30, 2016 (معدل) تفضل اخى الكريم والله المرفق جاهز من يوم الخميس لكن للاسف لانقطاع النت لم استطع رفعه شاهد المرفق هل هو ما تريد تقبل تحياتى استدعاء بيانات.zip تم تعديل مايو 1, 2016 بواسطه الصـقر 1
ابو حمادة قام بنشر أبريل 30, 2016 الكاتب قام بنشر أبريل 30, 2016 اخي الفاضل استاذ الصـقر شكرا وتقديرا ليك بجد علي مجهودك الرائع ليا طلب لو امكن اتمنى مكونش بتقل عليك محتاج بعض التعديلات علي الكود هي 1- اضافة عدد 2 عمود في صفحة ( add) وايضا في صفحة ( aldata ) لاستخراج دائن او مدين العمود الاول لمعرفة انه دائن او مدين العمود الاخر لوضع قيمة الدئن او قيمة المدين 2- الخلايه الملونه باللون الاخضر بها قوائم منسدلة اريد اضافة في كل قائمة كلمة ( الكل ) بالاضافة لكلمة ( دائن ) وكلمة ( مدين ) وادراج كود البحث عن دائن او مدين او البحث عن الكل عمود ( المسلسل ) في صفحة ( aldata ) يكون عد تسلسلي وليس يتم نقل بيانات به ولك مني تحياتي
ابو حمادة قام بنشر مايو 1, 2016 الكاتب قام بنشر مايو 1, 2016 اخي الفاضل استاذ الصـقر شكرا وتقديرا ليك بجد علي مجهودك الرائع ليا طلب لو امكن اتمنى مكونش بتقل عليك محتاج بعض التعديلات علي الكود هي 1- اضافة عدد 2 عمود في صفحة ( add) وايضا في صفحة ( aldata ) لاستخراج دائن او مدين العمود الاول لمعرفة انه دائن او مدين العمود الاخر لوضع قيمة الدئن او قيمة المدين 2- الخلايه الملونه باللون الاخضر بها قوائم منسدلة اريد اضافة في كل قائمة كلمة ( الكل ) بالاضافة لكلمة ( دائن ) وكلمة ( مدين ) وادراج كود البحث عن دائن او مدين او البحث عن الكل عمود ( المسلسل ) في صفحة ( aldata ) يكون عد تسلسلي وليس يتم نقل بيانات به ولك مني تحياتي ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
ابو حمادة قام بنشر مايو 11, 2016 الكاتب قام بنشر مايو 11, 2016 في ٣٠/٤/٢٠١٦ at 12:29, الصـقر said: تفضل اخى الكريم والله المرفق جاهز من يوم الخميس لكن للاسف لانقطاع النت لم استطع رفعه شاهد المرفق هل هو ما تريد تقبل تحياتى استدعاء بيانات.zip ارجو الاهتمام استاذ صقر الموضوع مهم جدا جدا عايز اطبق الكود علي هذا الملف مع مراعاه الصفوف الملونه باللون الاخضر ارجوك ولك مني جزيل الشكر والاحترام تعديل لاستدعاء البيانات.rar اتمني لو الموضوع صعب عرفني اشوف اي بديل للكود
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.