ابو نبأ قام بنشر مارس 21, 2015 قام بنشر مارس 21, 2015 السلام عليكم وفقكم الله - امر مستعجل عندي ملف يوضح ما مطلوب - يرجى التفضل والمرور عليه جزاكم الله خيرا السلام عليكم تصميم زر وترحيل ارقام.rar
ياسر خليل أبو البراء قام بنشر مارس 21, 2015 قام بنشر مارس 21, 2015 أخي الحبيب أبو نبأ جرب الكود التالي لترحيل الأرقام الإحصائية Sub Test() Dim arr Dim LR As Long Set arr = Sheet1.Range("D4,J4,P4,D15,J15,P15") LR = Sheet3.Cells(Rows.Count, 1).End(xlUp).Row If LR = 1 Then LR = LR Else LR = LR + 1 End If arr.Copy Sheet3.Range("A" & LR) End Sub
ابو نبأ قام بنشر مارس 21, 2015 الكاتب قام بنشر مارس 21, 2015 السلام عليكم ممكن تنفيذ عملية الترحيل على الملف المرفق
ياسر خليل أبو البراء قام بنشر مارس 21, 2015 قام بنشر مارس 21, 2015 لا مش ممكن أخي الفاضل أبو نبأ مش معنى كدا إنك تزعل ..بس حاول تطبق الكود بنفسك ببساطة شديدة .. انسخ الكود اللي وضعته في المشاركة رقم 2 ادخل محرر الأكواد Alt + F11 أدرج موديول جديد من قائمة Insert الصق الكود روح لورقة العمل ..أي ورقة تعجبك فيهم مش هتفرق ارسم أي شكل أو أي زر كليك يمين على الزر Assign Macro واختار اسم الماكرو Test من النافذة اللي هتطلع لك لو معرفتش ارجع تاني !!! حاول .. لحد ما توصل لمرحلة الإرهاق واليأس ، ساعتها لو فشلت هنساعدك إن شاء الله
ياسر خليل أبو البراء قام بنشر مارس 21, 2015 قام بنشر مارس 21, 2015 أخي الفاضل أبو إيمان أي أسلوب تقصد ؟؟!! هل تقصد إني كدا بستخدم الشدة ولا تقصد طريقة الشرح ؟؟
ياسر خليل أبو البراء قام بنشر مارس 21, 2015 قام بنشر مارس 21, 2015 الأخ أبو نبأ إليك شرح بالفيديو لكل ما تسأل عنه بما في ذلك شرح الكود
ابو نبأ قام بنشر مارس 22, 2015 الكاتب قام بنشر مارس 22, 2015 السلام عليكم طبقت خطوات الفيديو خطوة خطوة ، ولكن عند الضغط على زر الترحيل لم ترحل البيانات ، اكو عندي مشكلة ، يمكن نسيت شيء ارجو ملاحظة ذلك وحل المسألة ، وارفق ملف الذي عملت عليه الخطوات ، والسلام عليكم ترحيل بيانات.rar
ياسر خليل أبو البراء قام بنشر مارس 22, 2015 قام بنشر مارس 22, 2015 حيرتني معاك .. الملف مختلف ..لما دخلت على محرر الأكواد لاقيت إن الأسم البرمجي لأوراق العمل مختلفة إليك هذا التعديل وشوف الفرق بنفسك عشان تتعلم Sub Test() Dim arr Dim LR As Long Set arr = ورقة1.Range("D4,J4,P4,D15,J15,P15") LR = ورقة2.Cells(Rows.Count, 1).End(xlUp).Row If LR = 1 Then LR = LR Else LR = LR + 1 End If arr.Copy ورقة2.Range("A" & LR) End Sub
ابو نبأ قام بنشر مارس 22, 2015 الكاتب قام بنشر مارس 22, 2015 السلام عليكم اشكرك على النصحية بان اجرب واتعلم جزاك الله خير جربت الاكواد الاخيرة ونجحت اشكرك وفقكم الله السلام عليكم 1
ابو نبأ قام بنشر مارس 23, 2015 الكاتب قام بنشر مارس 23, 2015 السلام عليكم نسال سبحانه وتعالى أن يوفق كل العاملين في هذا المنتدى لما يقدموه من العلم إلى الناس مجاناً عندي سؤال آخر حو موضوع ترحيل الارقام كانت الغاية من الترحيل هو معرفة بان الهوية قد صرفت للمواطن وعلى اساس هذه الهوية تتم المراجعة واتخاذ ما يلزم من اجراءات وعند مراجعتنا على اساس الهوية المصروفة نعرف بان الهوية قد صرفت من قبلنا حصراً لعدم التلاعب والتزوير سؤالي عند ترحيل الرقم الاحصائي مرة ثانية لنفس الرقم أن توضع اشارة أو صوت أو أي علامة تعلمنا بان هذا الرقم قد رحل سابقاً (مرة ثانية) أضع سؤالي هذا أمامكم والحل يمكم بأي صورة متوفرة (الغاية اعلامنا بان الرقم قد رحل من قبل ، أي أن الهوية قد صدرت سابقاً ) السلام عليكم معرفة المكرر عند الترحيل.rar
ابو نبأ قام بنشر مارس 23, 2015 الكاتب قام بنشر مارس 23, 2015 السلام عليكم نسال سبحانه وتعالى أن يوفق كل العاملين في هذا المنتدى لما يقدموه من العلم إلى الناس مجاناً عندي سؤال آخر حو موضوع ترحيل الارقام الغاية من الترحيل معرفة بان الهوية قد صرفت للمواطن سؤالي معرفة الرقم الاحصائي عند ترحيله مرة ثانية أضع سؤالي هذا أمامكم والحل يمكم بأي صورة متوفرة (الغاية معرفة بان الرقم قد رحل من قبل ، أي أن الهوية قد صدرت سابقاً ) السلام عليكم معرفة المكرر عند الترحيل.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.