ياسر العربى

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

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

حتى الملفات التنفيذية فشنك

حاول تتعامل مع الفورم وخلي كل شغلك بعيد عن الشيتات واخفي معظم الاشرطة وخلي البرنامج بتاعك في معظم الوقت Application.Visible = False وجرب ارفق ليا ملف كدا عشان افكه ليك

تفضل حبيبي السلم الوظيفي - الترحيل1.rar

استاذي الغالي العيدروس واضح انه في مشكلة في تحديد الخلية j8 فانا ريحت دماغي ومفكرتش ابحث وخبطت كدا علي طول علي حد علمي البسيط Sub Ali_A() Dim Ws As Worksheet, L Dim Rng As Range Dim Rn As Range On Error Resume Next Set Ws = Sheets("salary") L = Split(Ws.UsedRange.Address, "$")(4) For Each Rng In Union(Ws.Range("C8:C" & L), Ws.Range("AM8:AM" & L)) If Rng.Borders(xlEdgeRight).LineStyle <> -4142 Then If Not Rng Is Nothing Then If Rn Is Nothing Then Set Rn = Rng Else Set Rn = Union(Rn, Rng) End If End If End If Next With Sheets("Total") If Not Rn Is Nothing Then Rn.Copy Application.ScreenUpdating = False Sheet7.Activate .[j8].Select .Paste Sheet3.Activate Application.ScreenUpdating = True End If End With Application.CutCopyMode = False Set Rn = Nothing Set Rng = Nothing End Sub وعذرا علي التخبيط اللي عملناه في كودك

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

الله ينور حبيبي عبد العزيز مجهود رائع وبعدين ملعبي هو ملعبك حبيبي وربنا يديم الملاعب لبعضيها

تفضل اخي الغالي ما طلبت وظبط انت تعديلاتك بقي وياريت الاخ عبد العزيز يحط النص المتحرك form111.rar

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

لا حول ولا قوة الا بالله لا حول ولا قوة الا بالله

نرجو وضع موضوعك داخل قسم الاكسيل وشكرا

لقد سبقتني اخي الغالي عبد العزيز وكنت سأرفق نصك المتحرك هذا ولكن دائما ما اتأخر جزاك الله كل الخير اما بالنسبة للعمل علي الفورم التاني والعمل في نفس الوقت علي الشيت يرجى تطبيق مثلما قال اخي عبد العزيز حدد الشيت الثاني واختار show modal=False

تفضل حبيبي يارب اكون توصلت لمساعدتك بما تريده ومنتظر منك الملاحظات تم حل كل المشاكل علي حد فهمي لما تريده استدعاء بيانات 12211.rar

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

انسخ دي وحطها في المكان Type فوق واضغط اوك [=0]"";General

هذا ما فعله اخي الغالي سليم له كل الشكر

مثال علي كلام اخونا ابو البراء تفضل list1.rar

بعد اذن الغاليين بقي نفترض ان الراجل عاوز خلايا فاضية وخلايا فيها صفار بقي نعمل ايه رخامة بقي وانا رخم نشتغل بحبيبة الغاليين IF New Microsoft Office Excel Worksheet.rar

دا طلع في حد رخم تاني غيري اهو خلاص ياعم انا ارفق ليك الدروس كهدايا مني ياعم ولو نسيت اني ارفق يبقي كانك مسمعتش مني البوقين دول ماشي ياحبي اه لا توعد وانت فرحان - لا تقرر وانت غضبان خليها معلقة كدا

تسلم ياغالي وجب التنويه ياحبيبي بس خليك ناصح بقي ها وابقي اعمله في ملف pdf عشان انا بحب احتفظ بالدروس علي الجهاز وابقي ارجع ليها في اي وقت ياريت مش هتكلفك كتيررر كل الشكر والتقدير لمجهودك الرائع ياعمنا

مبروك عليكم حبايبي الغاليين وربنا يرفع قدركم وعلمكم ودينكم اللهم امين

هذا مثال بسيط لفائدة الايقونات داخل ملف الاكسيل او ممكن وضعها داخل يوزرفورم