ranie قام بنشر يناير 22, 2012 مشاركة قام بنشر يناير 22, 2012 أخواني مشرفي و أعضاء منتدى اوفسينا أشكركم على هذا الموقع المفيد و أرجو منكم المساعدة في طلبي .... أخي و أستاذي أحمد زمان أشكر لك اهتمامك و تواصلك و سعة صدرك على أسئلتي و أرجو من الله أن يوفقك دائماً لكل ما هو خير لك و لكل الاخوة الأعزاء عندي ملفين إكسل ملف ( 1 ) و هو متغير – ملف ( 2 ) و هو لحفظ البيانات المرسلة من الملف ( 1 ) طلبي هو التالي : عندما أكتب التفاصيل الموجودة في الملف ( 1 ) أن تنتقل إلى الملف ( 2 ) و ذلك بالضغط على زر حفظ المعلومات الي أريد إنشاؤه في الملف ( 1 ) على أن تنتقل المعلومات بشكل متتالي يعني ( A2,B2,C2 ) و بعد تفريغ المعلومات من الملف ( 1 ) و إضافة اسم جديد و معلومات جديدة أن تنتقل إلى ( A3,B3,C3 ) و هكذا ، عندها يصبح عندي الملف ( 2 ) ملف بيانات لكافة الزبائن . بشرط أن لا أقوم بحفظ أي من المعلومات في الملف ( 1 ) أي عندما أفتح الملف يكون فارغ و جاهز لكتابة المعلومات . أرجو ان أكون قد وفقت بشرح المطلوب و أتمنى منكم الرد على هذذا الطلب و إذا كان بالإمكان الشرح لاستفيد من خبراتكم . اترككم بحفظ الله و رعايته 1-2.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يناير 22, 2012 مشاركة قام بنشر يناير 22, 2012 السلام عليكم تفضل أخي ranie هذا الكود Sub Shift_DATA() Application.DisplayAlerts = False pt = ActiveWorkbook.Path On Error Resume Next LR = [A60000].End(xlUp).Row If LR < 2 Then Exit Sub Range("A2:C" & LR).Copy Workbooks.Open Filename:=pt & "\2.xlsx" Workbooks("2.xlsx").Activate NR = Sheets(1).[A60000].End(xlUp).Row + 1 Sheets(1).Cells(NR, "A").Select ActiveSheet.Paste Application.CutCopyMode = False [A60000].End(xlUp).Select ActiveWorkbook.Save ActiveWindow.Close Workbooks("1.xlsm").Activate Range("A2:C" & LR).ClearContents Application.DisplayAlerts = True End Sub وهذا المرفق ranie.rar رابط هذا التعليق شارك More sharing options...
ranie قام بنشر يناير 23, 2012 الكاتب مشاركة قام بنشر يناير 23, 2012 أخي طارق السلام عليكم و رحمة الله و بركاته سلمت يداك على ما أنجزت ، لأني هذا ما كنت أريد بالضبط . و لكن المشكلة اني عندما أردت أن أنقله على التطبيق الخاص بي لم يعطي النتيجة المطلوبة كما في المرفق الذي أرسلته ، لذلك إني أطمع بكرمك أن تقوم بتطبيق الكود على الملف الخاص بي و الذي سوف أرسله لك بالمرفقات حيث أني أريد ربط المعلومات من الملف الاصلي و المسمى (al khalidiya ) ، الصف ( 46 ) إلى الملف الثاني و المسمى ( Database ) . وإني لأخجل من كثرة طلباتي و لكن الخبراء أمثالك قد تعودو على كثرة هذه الطلبات ، ففي الملف الخاص بي و المسمى (al khalidiya ) هناك فورم بحث بالأسماء و آخر بالأرقام كان مربوطاً في السابق مع الصفحة ( 6 ) من نفس الملف أما الآن أريد ربطه مع ملف (DataBase ) . و الطلب الاخير هو كيف أقوم بعمل رقم تسلسلي في كل مرة أفتح فيها ملف ( al khalidiya ) في الخلية رقم ( A46 ) . أخي الكريم طارق أعتذر مسبقاً عن كثرة الطلبات و أشكرك على كرمك اللامتناهي . و اسأل الله العلي العظيم أن يوفقكم و جميع الاخوة الأعضاء في المنتدى لكل ما هو خير . مرفق ملف database لحفظ المعلومات و في الملحق الملف الخاص بي و اسمه Al Khalidiya DataBase.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يناير 23, 2012 مشاركة قام بنشر يناير 23, 2012 السلام عليكم أخي العزيز أولا لابد من ارسال الملف الآخر al khalidiya ثانيا كيف أقوم بعمل رقم تسلسلي في كل مرة أفتح فيها ملف ( al khalidiya ) في الخلية رقم ( A46 ) ضع الكود التالي في حدث فتح الملف Workbook Private Sub Workbook_Open() Sheets(1).[A46] = Sheets(1).[A46] + 1 End Sub رابط هذا التعليق شارك More sharing options...
ranie قام بنشر يناير 23, 2012 الكاتب مشاركة قام بنشر يناير 23, 2012 السيد طارق هذا رابط ملف الخالدية http://www.4shared.com/file/rj3kgCFX/al_khalidiya_2.html و قد تأخرت في إرساله حتى قمت برفعة رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يناير 23, 2012 مشاركة قام بنشر يناير 23, 2012 السلام عليكم أخي العزيز بعد إذنك أزلت صورة الترحيب الأولي فهي التي تزيد جدا من حجم الملف مرفق الملف وبه التعديلات لم استطع التأكد من النتيجة فالملف يعطي رسالة خطأ لأن الأوفيس لدي غير كامل جرب وأعلمني بالنتيجة تفضل المرفق Khalidia.rar رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يناير 23, 2012 مشاركة قام بنشر يناير 23, 2012 السلام عليكم و رحمة الله وبركاته استاذي المهندس طارق جزاك الله كل خير بعد اذنك في ملاحظة بسيطة لأخي السائل السلام عليكم و رحمة الله وبركاته اولا شكرا لك ثانيا كان الأفضل انك تستمر في نفس المشاركة السابقة علشان يكمل الموضوع في مكان واحد والآن اصبح الموضوع مكرر عدة مرات http://www.officena.net/ib/index.php?showuser=75844 http://www.officena.net/ib/index.php?showtopic=40383 http://www.officena.net/ib/index.php?showtopic=40382 وهذا الرابع لذلك سوف مع التحيه رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يناير 23, 2012 مشاركة قام بنشر يناير 23, 2012 السلام عليكم عفوا أخي أحمد لم اقرأ أو أري تكرار الموضوع لقلة الوقت ، سماح رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يناير 23, 2012 مشاركة قام بنشر يناير 23, 2012 السلام عليكم عفوا أخي أحمد لم اقرأ أو أري تكرار الموضوع لقلة الوقت ، سماح ابدا استاذي الفاضل لايحتاج سماح ولاحاجة انته قدمت المساعدة لأخ يحتاجها الله يكسبك اجرها انا بس حبيت اوضح للأخ السائل راني جزاك الله كل خير استاذ طارق رابط هذا التعليق شارك More sharing options...
ranie قام بنشر يناير 23, 2012 الكاتب مشاركة قام بنشر يناير 23, 2012 اخواني الاعزاء أولاً أريد أن أشكركم جزيل الشكر و التقدير لما بذلتموه من جهد ، جزاكم الله ألف خير و بالنسبة لتكرار الموضوع ، للصراحة أنا أول مرة أقوم بوضع مشاركة في منتدى لهذا كان الموضوع جيد بالنسبة لي ، فأرجة من حضرتكم السموحة . بالنسبة لما أنجزه اخي طارق فإن الملف يعمل بشكل جيد و لكن عند الضغط على زر ( data base ) تظهر النتائج بنفس السطر في ملف الـ ( Data Base ) و ليس في السطر التالي . فأرجو متابعة الموضوع ، و كما ذكرت سابقاً الرجاء ربط فورم البحث مع ملف الـ ( Data Base ) لأنه مازال مربوطاً بالصفحة ( 6 ) من ملف ( al khalidiya_3 ) . و إن كان بالإمكان كتابة كود التسلسل الرقمي في الخلية ( A46 ) ليكون البرنامج جاهزاً . أقدم اعتذاري الشديد لكم بالنسبة لملاحظة أخي أحمد زمان و أرجو أن يتسع صدركم لطلباتي . و السلام عليكم و رحمة الله و بركاته رابط هذا التعليق شارك More sharing options...
ranie قام بنشر يناير 23, 2012 الكاتب مشاركة قام بنشر يناير 23, 2012 اخي السيد طارق بعد العمل على الملف بشكل دقيق ، وجدت بان ربط الملف الاساسي ( Al Khalidiya ) مع ملف ال ( data base ) يتم بشكل دقيق و جيد لا غبار عليه و لكنه بقي موضوع ربط فورم البحث الموجود في صفحة الترحيب بملف الـ ( data base ) . و شكراً مقدماً رابط هذا التعليق شارك More sharing options...
ranie قام بنشر يناير 24, 2012 الكاتب مشاركة قام بنشر يناير 24, 2012 بانتظار ردكم على طلبي و دمتم بخير رابط هذا التعليق شارك More sharing options...
ranie قام بنشر يناير 24, 2012 الكاتب مشاركة قام بنشر يناير 24, 2012 للرفع أخواني بانتظار لمسات أياديكم الخبيرة للرد على طلبي و شكراً رابط هذا التعليق شارك More sharing options...
ranie قام بنشر يناير 25, 2012 الكاتب مشاركة قام بنشر يناير 25, 2012 للرفــــــــــــــــــــــــــــــــــــــــــــــــع و الرد من قبل خبراء المنتدى الأعزاء و شكراً رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر يناير 25, 2012 مشاركة قام بنشر يناير 25, 2012 ربط فورم البحث مع ملف الـ ( Data Base ) لأنه مازال مربوطاً بالصفحة ( 6 ) من ملف ( al khalidiya_3 ) أخي العزيز الملف لايعمل معي كما قلت لك سابقا ويعطي رسالة خطأ لأن الأوفيس لدي غير كامل لكن جرب التالي في أول الكود لكلا من الفورم1 والفورم2 إستبدل Option Explicit '****************************************************** Private Const Mysh_Name As String = "sheet6" بالتالي Option Explicit '****************************************************** Private Const Mysh_Name As String = ActiveWorkbook.Path & "\DataBase.xlsx\Sheet1" رابط هذا التعليق شارك More sharing options...
ranie قام بنشر يناير 25, 2012 الكاتب مشاركة قام بنشر يناير 25, 2012 الأخ طارق أشكرك على اهتمامك عند استبدال الكود و محاولة تشغيل فورم البحث يعطيني الرسالة الموضحة في الصورة المرفقة أرجو من حضرتك بيان الحالة رابط هذا التعليق شارك More sharing options...
ranie قام بنشر يناير 25, 2012 الكاتب مشاركة قام بنشر يناير 25, 2012 مع العلم أن الملفين موجودين بنفس الفولدر رابط هذا التعليق شارك More sharing options...
ranie قام بنشر يناير 25, 2012 الكاتب مشاركة قام بنشر يناير 25, 2012 للرفع رابط هذا التعليق شارك More sharing options...
ranie قام بنشر يناير 25, 2012 الكاتب مشاركة قام بنشر يناير 25, 2012 أخي طارق أرسل لك جزيل الاحترام و الشكر و أقدر المشكلة التي يمر بها الأوفيس ، كما أني متاكد بأنك لن توفي أي جهد في مد يد العوم لي . بانتظار ردك الكريم رابط هذا التعليق شارك More sharing options...
ranie قام بنشر يناير 25, 2012 الكاتب مشاركة قام بنشر يناير 25, 2012 هل من منافس ؟؟؟؟؟ للرد على طلبي رابط هذا التعليق شارك More sharing options...
ranie قام بنشر يناير 25, 2012 الكاتب مشاركة قام بنشر يناير 25, 2012 حدا يرد علي دخيل الله يا أهل الخبرة الشكر الجزيل لكل من الاخ أحمد زمان و الاخ طارق على ما قدموه من مساعدة و أرجو من لديه الحل إطلاعي عليه و شكراً رابط هذا التعليق شارك More sharing options...
ranie قام بنشر يناير 26, 2012 الكاتب مشاركة قام بنشر يناير 26, 2012 ما حدا حابب يرد على سؤالي ؟؟؟ وين الاخوان أصحاب المنتدى الخبراء و الاعضاء ردوا علي يا جماعة رابط هذا التعليق شارك More sharing options...
ranie قام بنشر يناير 28, 2012 الكاتب مشاركة قام بنشر يناير 28, 2012 وينكون يا جماعة الخير طيب إذا ما في إمكانية لهذا الاوبشن بالإكسل الرجاء إخباري للعمل على إيجاد حل آخر . و شكراً لكم رابط هذا التعليق شارك More sharing options...
ranie قام بنشر يناير 28, 2012 الكاتب مشاركة قام بنشر يناير 28, 2012 السيد و الاخ الفاضل عبد الله جزاك الله كل خير أنت و جميع الاخوة الأفاضل و أخص كل من الاخ طارق و الاخ أحمد زمان . الشرح هو كالتالي عند الضغط على زر ( search by mobile ) أو ( search by name ) في الصفحة الابتدائية ( sheet5 ) في الملف المسمى ( al khalidiya ) تفتح عندي صفحة البحث ، طلبي هو ان يتم البحث عن القيمة المرادة في ملف إكسل آخر باسم ( DATABASE ) . باختصار ربط فورم البحث الموجود بملف ( AL KHALIDSIYA ) مع ملف الـ ( DATABASE ) . مع العلم أن الملفين ( AL KHALIDSIYA ) و ( DATABASE ) موجودين بنفس المجلد . أرجو ان أكون قد وفقت بشرح المطلوب . وهذا مرفق للملفين http://www.4shared.c..._khalidiya.html DataBase.rar رابط هذا التعليق شارك More sharing options...
ranie قام بنشر يناير 28, 2012 الكاتب مشاركة قام بنشر يناير 28, 2012 مع العلم أن بيانات الدخول كالتالي : رقم المستخدم : 1 اسم المستخدم : admin كلمة المرور : admin وفقك الله أنت و جميع الاخوة الافاضل لما هو خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان