saad abed

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

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

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

اخى خبور خير اخى الحسامى اخى عادل حنفى اخى ابو عبدالله اسالكم الدعاء معى لاحبتى ان ييسر لهم امور حياتهم ويردهم الى منتدانا بخير وسلامة اللهم امين اللهم انا هؤلاء قدموا لنا يد العون فامدهم بعونك اللهم انا هؤلاء قدمو لنا يد المساعدة فساعدهم فى كل امور حياتهم اللهم امين اخوكم سعد عابد

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

اخى هشام شلبى استخدمت كودك فى الترحيل واستخدمت كود اخى عبدالله فى التعديل ولكن ظهرت مشكلة صغيرة اسالك لماذا بعد ان اضفت المعادلات فى صفحة المرتبات فى الاعمدة التى لا يرحل اليها ظهر بعدها الكود يرحل الى بداية ظهور المعادلات ولتكن مثلا a302هنا تكون بداية الترحيل من a302:a5 فارغ شكرا لك تحياتى Sub MoveValue2() Dim EndRow As Long If ورقة1.Range("c6").Value = "" Then MsgBox prompt:="تأكد من إدخال كافة البيانات", Title:="خطأ" Exit Sub End If '------------------------------------------------------------------ If Cells(2, 6) = "H" Then EndRow = ورقة2.Range("A1").CurrentRegion.Rows.Count ورقة2.Cells(EndRow + 1, 1).Value = EndRow ورقة2.Cells(EndRow + 1, 2).Value = ورقة1.Cells(8, 3).Value ورقة2.Cells(EndRow + 1, 3).Value = ورقة1.Cells(9, 3).Value ورقة2.Cells(EndRow + 1, 4).Value = ورقة1.Cells(10, 3).Value ورقة2.Cells(EndRow + 1, 5).Value = ورقة1.Cells(11, 3).Value ورقة2.Cells(EndRow + 1, 6).Value = ورقة1.Cells(12, 3).Value ورقة2.Cells(EndRow + 1, 7).Value = ورقة1.Cells(2, 1).Value ورقة2.Cells(EndRow + 1, 8).Value = ورقة1.Cells(7, 5).Value ورقة2.Cells(EndRow + 1, 10).Value = ورقة1.Cells(8, 5).Value ورقة2.Cells(EndRow + 1, 12).Value = ورقة1.Cells(9, 5).Value ورقة2.Cells(EndRow + 1, 14).Value = ورقة1.Cells(10, 5).Value ورقة2.Cells(EndRow + 1, 15).Value = ورقة1.Cells(11, 5).Value ورقة2.Cells(EndRow + 1, 16).Value = ورقة1.Cells(12, 5).Value MsgBox prompt:="تم ترحيل البيانات بنجاح", Title:="رسالة تأكيد" '------------------------------------------------------------------ Else EndRow = ورقة2.Range("A1").CurrentRegion.Rows.Count ورقة2.Cells(EndRow + 1, 1).Value = EndRow ورقة2.Cells(EndRow + 1, 3).Value = ورقة1.Cells(6, 3).Value ورقة2.Cells(EndRow + 1, 5).Value = ورقة1.Cells(11, 3).Value ورقة2.Cells(EndRow + 1, 7).Value = ورقة1.Cells(2, 1).Value MsgBox prompt:="تم ترحيل البيانات بنجاح", Title:="رسالة تأكيد" End If End Sub

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

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

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

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

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

اخى وصديقى / جمال الفار جزاك الله خيرا وبارك الله فيك رغم انى محاسب ارى مجهود ملحوظ وعمل شامل انت مجتهد ولكن انت وضعت باسورد على vba بعد اذنك التنويه عنها شكرا لك لان مواضيعك يرد عليها احبابى (ياسر واستاذى دغيدى وهانكوك) تحياتى سعد عابد

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

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

اخى ابو الحارث جزاك الله كل خير وفقك الله سعد عابد

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

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

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

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

اخى طاهر شكرا لك على مرورك وجزاك الله خير الجزاء سعد عابد

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

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

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

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