saad abed

اخى الفاضل / عبدالله باقشير منذ ان رايتك مره داخل الصفحة واعلم والله انك ستساعدنى كما ساعدتنى انا وغيرى كثيرا قبل ان اطلع على الحل فانا اعلم ان اعمالك واكوادك كلها متقنة جزاكم الله خيرا اعزكم الله ستركم الله فى الدنيا والاخرة شكرا لكم سعد عابد

اخوانى مع كثرة التفكير وجدت حل استخدام فلترة الاوراق بالمتغيرات ثم نسخها لكن التاريخ مش ضابط مع مش عارف ليه برنامج مبيعات.rar

اخوانى حاولوا وانا احاول ايضا جزاكم الله خيرا

اخى رجب اعمال رائعة بارك الله فيك

اعضاء المنتدى الكرام هل استطيع البحث بثلاث متغيرات فى خمس ورقات فمثلا نبحث عن عميل مورد فى فترة بين تاريخين فى المبيعات ومردوداتها والمشتريات ومردوداتها وعن ما تم سداده فى ورقة الخزينة اعلم اننى من الممكن تجميعهم فى ورقة واحدة ولكن نظرا لكثرة البيانات الفصل افضل بانتظار الرد اشكرك برنامج مبيعات.rar

ابو ادم اسال الله العظيم رب العرش الكريم ان يمد فى عمرك ويحسن عملك ويمتعك بصحة وعافية وستر فى الدنيا والاخرة

اخى عبدالله باقشير لقد جعلت الاكسيل مطيع لك بفضل اجتهادك بل جعلته يكلمنى (الاكسيل الناطق) بارك الله فيك كل عام وانتم بخير

اخى عبدالله باقشير اخى ابوتصار جزاك الله خيرا الكود شغال 100% اعمالكم رائعه وفقكم الله

اخى ابوردينة جزاك الله خيرا صلى الله على محمد صلى الله عليه وسلم

اخى مجدى يونس جزاك الله خيرا

ابوتصار كل عام وانتم بخير ابداعاتك مستمره وفقك الله عيزين الابداعات داخل اعمال محاسبية خصوصا انك محاسب جزاك الله خيرا سعد عابد

اخى الدهشورى البقاء لله اللهم اغفر له وارحمه واسكنه فسيح جناتك

اخى مصطفى جزاك الله خيرا اخى رعد العمل عمل تجارى وليس مجانى

احسن الله اليك صلى الله عليه وسلم كان احسن الناس خلقا وخلقا

اخى يوسف السادة / مدير المنتدى السادة / المرافبون السادة / مديرى الاقسام والمشرفون السادة / الاعضاء كل عام وانتم بخير اتمنى ان يكون الغائبون عن المنتدى بالف خير نسال عتهم ليدا امدوها لمساعدتنا نتذكرها ولا ننكرها الاساتذة / عماد الحسامى وعادل حنفى وابوعبدالله ويحي حسين ياسر حافظ واحمد فضيلة وهشام شلبى وياسر خليل وغيرهم كثير............... كل عام وحضراتكم بخير سعد عابد

اخى ابوتميم بعد تحميل الاربع اجزاء واخيارهم جميعا لفك الضغط فى ملف واحد تظهر رسالة بان هناك خطا وعنوان جزء مفقود

اخى ابوجادالله السادة / مدير المنتدى السادة / المرافبون السادة / مديرى الاقسام والمشرفون السادة / الاعضاء كل عام وانتم بخير اتمنى ان يكون الغائبون عن المنتدى بالف خير نسال عتهم ليدا امدوها لمساعدتنا نتذكرها ولا ننكرها الاساتذة / عماد الحسامى وعادل حنفى وابوعبدالله ويحي حسين ياسر حافظ واحمد فضيلة وهشام شلبى وياسر خليل وغيرهم كثير............... كل عام وحضراتكم بخير سعد عابد

اخى سعيد كل عام وانتم بخير كل عام وجميع القائمين على هذا الصرح وجميع الاعضاء بخير جزاك الله خيرا سعد عابد

اخى رجب جاويش جزاك الله خيرا اكوادك واخلاقك قبل اكوادك ممتازة تقبل تحياتى سعد عابد

اخى جزاك الله خيرا سعد عابد

اخى هذه داله لاخونا المبدع عبدالله باقشير اسال الله ان ينعم عليه بالصحة والعافية لتمنى ان يكون هذا طلبك فصل الاسم.rar

استاذنا عبدالله باقشير عطاء بلا حدود السائل اجبت على تساؤله وشرحت لنا وله الكود جزاك الله خيرا بارك الله فيك سعد عابد

اخى جمال تم التحميل اسطوانة جميلة وبها ادوات كثيرة جزاك الله خيرا سعد عابد

اخوانى المعادلة تقرأ بطريقة صحيحة اعمل على ويندز 7

اخى يوسف عطا< هذا الشرح حسب فهمى للكود واردت ان اكتبه ليصحح ابوحنين الاخطاء لاستفيد من تعليقاته اشكركم Private Sub CommandButton1_Click اشارة للمتغيرينLR, x Dim LR, x تعريف المتغير lrوهو عبارة عن السطر الاخير حيث التحرك من اسفل لاعلى بداية من a10000حتى اخر سطر LR = [A10000].End(xlUp).Row المدى المشار اليه يساوى صفر (يفرغ) ورقة3.Range(;A5:Q690;).Value = عدم تحديث الشاشه Application.ScreenUpdating = False المتغيرx=5 x = 5 بداية الحلقة conter=بداية الصفوف 5الى اخر سطر وقد تم تعريفه For i = 5 To LR اف الشرطية بها شرطين متكاملين اصغرمن اوتساوى 9 واكبرمن10شرط الترحيل If Cells(i, 17).Value >= 9 And Cells(i, 17).Value < 10 Then هنا الخبرة تظهر حدد العمود aواستخدم اداة ربط النصوص ;والمتغيرiلاشارة الى a5ثم6وهكذا وريسيز للتحريك الى العمود 17ويقوم بالنسخ Range("a" & i).Resize(1, 17).Copy نفس الفكرة فى النسخ استخدمها ابو حنين فى اللصق لم يحدد بداية محدده بل ربطها بمتغير يبدا من 5 ويزداد 1 ورقة3.Range("A" & x).PasteSpecial xlPasteValues اخرج من مود النسخ واللصق Application.CutCopyMode = False x = x + 1 End If Next i رسالة تفيد بان الترحيل تم MsgBox "ثم ترحيل البيانات بنجاح", vbInformation + vbMsgBoxRight, "ترحيل بيانات" تحديث الشاشة Application.ScreenUpdating = True ورقة3.Select End Sub