إبراهيم ابوليله

اخى احمد ان شاء الله فى الوقت القريب سوف يتم عمل المطلوب

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

اخى احمد انا اقصد هل سيتم تكرار كتابة الصنف اكثر من مره مثلا 101-----1/1/2014 101----10/2/2015 وهكذا ام سيكون كتابة الصنف تقتصر على مره واحده فقط

اخى احمد فيه سؤال بسيط هل سيتم تكرار كتابة رقم الصنف فى شيت المشتريات اكثر من مره

اخى ضاحى والله مش عارفين نقولك ايه دائما ما نقف وننحنى امام ابداعاتك بارك الله لنا فيك وذادك من فضله وعلمه

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

اخى سيد مبدءيا هل تقصد هكذا سجل بحث.rar

اخى شوقى بارك الله فيك ومشكورا على الكود الجميل ده ولكنة اريدن ترحيل العمود من 1:4 بداية من الخليه a4 والعمود من 6:7 بدايه من الخليه e4

الاخوه الكرام لدى ليست بوكس مكونه من 7 اعمده اريد ترحيل العمود من 1 اى 4 الى شيت الاكسل ومن 6الى7 كيف يكون شكل الكود

الاخوه الافاضل وقد توصلت ايضا لطريقه اخرى Sub HMA() x = 10 For h = 1 To 9 Cells(3, x) = h x = x + 1 Next End Sub

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

اخى ابو حنين اولا مشكورا على الرد والاهتمام بارك الله فيك -------------------------------- ثانيا الفكره دى انا عارفها ------------------------------- كما يمكن استخدام Sub HMA() On Error Resume Next For H = 1 To 9 Cells(3, H).Offset(0, 9) = H Next H End Sub ولكنى كنت اريد ان اعرف هل يمكن عمل ذلك عن طريق استخدام FOR لمرتين

الاخوه الكرام ارجو المساعده فى تصحيح الخطأ الذى يحدث فى الكود كود.rar

للرفع مشاركه رقم46

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

للرفع

اخى ابو حنين اكوادك دائما ما تكون فى غاية الجمال بارك الله فيك تقبل تحياتى

للرفع

اخى ريان لا شكر على واجب اتمنى لك الاستفاده

اخى رجب عمل رائع ومتقن بارك الله فيك

اخى ريان على قدر فهمى البسيط عند كتابة هذا الكود بهذا الشكل If InStr(.Cells(i, "e"), Me.TextFind) Then فهنا يتم استخراج البيانات 1-دون تطابق بدايه السلسله النصيه 2-مع شرط تفعيل خاصيه الكابيتال او الاصمول وعند كتابة الكود بهذا الشكل If InStr(1, .Cells(i, "E"), Me.TextFind, vbTextCompare) فهنا يتم استخراج البيانات 1- دون تطابق بدايه السلسله النصيه 2-دون شرط تفعيل خاصيه الكابيتال او الاصمول اما عند كتابة الكود بهذا الشكل If InStr(1, .Cells(i, "e"), Me.TextFind, vbTextCompare) = 1 فهنا يتم استخراج البيانات 1-بشرط تطابق بداية السلسله النصيه 2-دون شرط تفعيل خاصيه الكابيتال ام الاصمول

اخى احمد قم بارفاق ملف وسيتم عمل المطلوب ان شاء الله

اخى مجدى اعتقد والله اعلم انه حجمها ثابت لايتغير

اخر ريان اشكر على الكلمات والمشاعر الطيبه بارك الله فيك تفضل اخى test.rar

اخى الجموعى تفضل اولا ما قمت بمراسلتى به Sub HMA1() end هذا الكود هو الذى يقوم باستدعء البيانات الى الكوموبوكس 3 وكلمة END تقوم بانهاء عمل الفورم البحث بتاريخ الميلاد.rar