نجوم المشاركات

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

ما شاء الله ابداع لكن بالنسبه للناس ال مش عوزين ينتظر فتره لفتح النموذج من الممكن جعل هذا النموذج يفتح فى زاوية الشاشة (يظهر ويختفي عند الزاوية) يكون مثلا زي التذكير بالاذكار بحيث نضرب عصفورين بحجر الاول اننا لم نأخر فتح النموذج ثانيا ساعدنا المستخدم على ذكر الله

فنان وبيعمل حاجات بتوع فنانين ربنا يديك العافية على الحركات الجميلة والأفكار الإبداعية .. قد أكون مش ملم بالموضوع دا فنيا وتقنيا لأني ماليش في الشبكات كثير !! .. 😅 بس هل زي مانا فهمت أنه يتم تخزين بيانات الاعتماد من خلال النموذج التالي ؟ .. يعني مش بيقراها الكود تلقائيا من إعدادات الويندوز ؟ أوعك تتريق عليه 👊

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

وعليكم السلام ورحمة الله وبركاته ،، أتمنى أن تكون الصورة قد وضحت لي وتم فهمها بالشكل الصحيح 😅 .. انظر للصورة الأولى :- والنتيجة للصورة الثانية :- هل تلبي المطلوب بالشكل الصحيح ؟ خبرتي في اكسل قليلة جداً مقارنة مع الأساتذة ( دون استثناء ) في هذا الصرح الكبير . التنفيذ تم باستخدام الماكرو التالي :- Sub FillAccountNum() Dim ws As Worksheet Dim lastRow As Long Dim i As Long, j As Long Dim accountVal As String Set ws = ActiveSheet lastRow = ws.Cells(ws.Rows.Count, "K").End(xlUp).Row For i = 2 To lastRow If InStr(1, ws.Cells(i, "K").Value, "متبقي تعاقد مشروع قسط") > 0 Then For j = i + 1 To lastRow If Trim(ws.Cells(j, "A").Value) Like "Account*" Then accountVal = ws.Cells(j, "A").Value ws.Cells(i, "A").Value = accountVal Exit For End If Next j End If Next i End Sub المرفق بعد التنفيذ :- EXPORT.xlsm وفيما يلي ، توضيح لتفعيل وضع المطور واختيار الماكرو للشيت الحالي .. جرب وأخبرني بالنتيجة ، للمتابعة .

الاشكالية الوحيدة الان والتي آمل أن أجد من يسعفني في حلها الكود اللي في المشاركة سليم ويعمل تمام التمام الاشكالية في الاتي : 1- ان الملف الناتج يكون في الغالب بجانب الملف اللي اعمل به وهذا لا اريدة اريدة دائما وابدا ينشأ لي المجلد على سطح المكتب 2- ليس بتلك الاهمية وهو هل بامكاني أن أحدد النطاق الذي سيتم حفظه في الملف الجديد اذا أمكن