الشيباني1 قام بنشر فبراير 10, 2009 مشاركة قام بنشر فبراير 10, 2009 أخواني الاعزاء تحية طيبه ، في المرفق استفسار حول ترحيل بيانات ارجو المساعده مع الامتنان _____.zip رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر فبراير 13, 2009 مشاركة قام بنشر فبراير 13, 2009 السلام عليكم ارجو ات يكون طلبك مع علمى انه لا يرقى لمستوى حلول اخونا خبور جزاه الله خيرا فهو بحاجه لبعض اللمسات ___________.rar رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر فبراير 13, 2009 الكاتب مشاركة قام بنشر فبراير 13, 2009 الاستاذ ابو اسامه المحترم جهد رائع مشكور عليه لكن عند ادخال بيانات جديده وترحيلها من خلال زر الترحيل تظهر النتيجة كما في المرفق ارجو النظر فيها مع الامتنان ___________1.zip رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر فبراير 13, 2009 مشاركة قام بنشر فبراير 13, 2009 السلام عليكم لم افهم المشكله ما هي (مشكلة ملفى) رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر فبراير 13, 2009 الكاتب مشاركة قام بنشر فبراير 13, 2009 استاذنا العزيز المشكله انني عند قيامي بأدخال بيانات جديده في الصفحة الرئيسيه تنقل الى صفحة الوكيل المسمى لكن جميع البيانات السابقه الداخله في صفحات الوكلاء تتكرر ارجو مشاهدة صفحات الوكلاء في المرفق الاخير مع الشكر أستاذنا العزيز المرفق يتضمن موضوعا مشابها للمطلوب وهو من منتدانا الرائع ويحتاج بعض اللمسات لينسجم مع البيانات التي يحتويها ملفي اكون شاكرا لو تم ذلك مع الامتنان Hosp_04.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر فبراير 22, 2009 مشاركة قام بنشر فبراير 22, 2009 السلام عليكم اخي الفاضل حسب ما فهمت من طلبك انك تريد مسح البيانات السابقة في اوراق الوكلاء اثناء ترحيل البيانات اذا اردت ان يرحل اسفل البيانات السابقة امسح السطر الذي فيه الملاحظة من الكود وهو سطر الانتقال الى كود المسح برضوا عملت لك معادلة للجمع تفضل المرفق ___________2.rar رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر فبراير 22, 2009 الكاتب مشاركة قام بنشر فبراير 22, 2009 ما هذا الابداع اخي العزيز ، اشكرك الشكر الجزيل وجزاك الله كل خير وادامك لنا مرجعا . سأحاول نقل المحتويات الى ورقة العمل التي اعمل عليها وارجو ان يكون صدرك واسعا للمساعده ان ظهرت الحاجة اليها مع الامتنان. استاذنا العزيز تحية طيبه في الوقت الذي اشكركم فيه على هذا الكود الرائع الذي جادت به اناملكم ،اتساءل عن كيفية تعديل الكود ليكون المدى (10000) سطر بدلا من (29) والاعمده الى (10) ، وهل بالامكان افراغ الرئيسيه من محتوياتها بعد الترحيل ، لاستخدامها كفاتوره ؟ مع الامتنان رابط هذا التعليق شارك More sharing options...
amoudi قام بنشر فبراير 24, 2009 مشاركة قام بنشر فبراير 24, 2009 For T = 5 To 29 If ورقة1.Cells(T, 5) <> "" Then If ورقة1.Cells(T, 4) <> "" Then MySheet = ورقة1.Cells(T, 4) Else MySheet = MySheet With Sheets(MySheet) LAST = .Cells(.Rows.Count, 5).End(xlUp).Row + 1 For R = 1 To 7 CR = Choose(R, 2, 3, 5, 6, 7, 8, 9) .Cells(LAST, R + 1) = ورقة1.Cells(T, CR) Next R End With End If Next T الكود واضح ماعدا Else MySheet = MySheet رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر فبراير 24, 2009 الكاتب مشاركة قام بنشر فبراير 24, 2009 اخي العزيز مع تقديري لردكم الكريم ، ما الذي تغير في الكود ؟ وهل يمكن تطبيقه على الاسطر بعد (29) ؟ وهل بالامكان اضافة اعمده بعد (H) ؟ ارجو ( ان كان ذلك ممكنا) تطبيق ما استجد على المثال اعلاه مع الامتنان رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر فبراير 24, 2009 مشاركة قام بنشر فبراير 24, 2009 (معدل) السلام عليكم غير في الكود :هنا من: For T = 5 To 29 الى: For T = 5 To 10000 وبالنسبة للاعمدة غير التسلسل من 1 الى 10 For R = 1 To 10 ثم سجل اي الاعمدة التاي تريدها من الرئيسية CR = Choose(R, 2, 3, 5, 6, 7, 8, 9 ضيف جنبها الاعمدة المتبقية مثلا 10 و11و12 بالنسبة للمسح ضيف نهاية الكود كود المسخ للاعمدة التي تريدها انتبه تمسح عمود فيه معادلات ============================== الاخ / عمودي اذا كانت الخلية غير فارغة طبعا سياخذ المتغير MySheet اسم الورقة من هذه الخلية ولكن اذا كانت فاضية يستخدم الاسم السابق المحفوظ في المتغير MySheet =MySheet تم تعديل فبراير 24, 2009 بواسطه خبور خير رابط هذا التعليق شارك More sharing options...
amoudi قام بنشر فبراير 24, 2009 مشاركة قام بنشر فبراير 24, 2009 عزيزي خبور خير بصراحة انا كنت منتظر منك تقول معليش هذه غلطة هذه الجزئية مالها داعي انت تقول 1=1 طيب اصلا الواحد هو واحد تحياتي رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر فبراير 24, 2009 مشاركة قام بنشر فبراير 24, 2009 السلام عليكم الاخ /عمودي ----حفظه الله انت اخي تستاهل ان تكون في مجموعة غير المجموعة الحالية (الاعضاء) وسيتحقق هذا قريبا إن شاء الله رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر فبراير 25, 2009 الكاتب مشاركة قام بنشر فبراير 25, 2009 أستاذي العزيز جزاك الله كل خير على هذا الابداع ولي ملاحظة بسيطه ان تكرمتم ، لم اتبين كود المسح والطريقه التي اتمكن بها من تشغيله وهل من زر كزر الترحيل اقوم بعمله ؟ عذرا على الاطاله ولكن بودي استخدام المثال بداية الشهر الثالث مع الامتنان رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر فبراير 25, 2009 مشاركة قام بنشر فبراير 25, 2009 الاخ العزيز حدد الاعمدة التي تريد ان تمسحها رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر فبراير 25, 2009 الكاتب مشاركة قام بنشر فبراير 25, 2009 استاذي العزيز المدى المطلوب افراغه بعد الترحيل (b5:h40) مع الشكر الجزيل رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر فبراير 25, 2009 مشاركة قام بنشر فبراير 25, 2009 Sub ماكرو1() ورقة1.Range("B5:H40").ClearContents End Sub رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر فبراير 25, 2009 الكاتب مشاركة قام بنشر فبراير 25, 2009 استاذي العزيز عاجز عن الشكر والامتنان ،طلب قد يكون الاخير بأذن الله ،عملت زر للالغاء ويعمل جيدا ، هل بالامكان الغاء القائمه تلقائيا بعد الترحيل مباشرة، او تنبيه قبل الالغاء بأن القائمه لم ترحل ؟ جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر مارس 8, 2009 الكاتب مشاركة قام بنشر مارس 8, 2009 الاستاذ خبور المحترم تحية طيبه وجزاكم الله كل خير على جهودكم المبذوله ولي طلب ارجو ان يكون بسيطا وهو : في المثال المرفق ارجو التعديل في الكود بحيث عند ترحيل البيانات من الرئيسيه الى صفحات الوكلاء تبقى في هذه الصفحات وتمسح من الرئيسيه بانتظار ادخال بيانات جديده مع الامتنان _________________.zip رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالله باقشير قام بنشر مارس 8, 2009 أفضل إجابة مشاركة قام بنشر مارس 8, 2009 السلام عليكم تفضل المرفق _________________.rar رابط هذا التعليق شارك More sharing options...
الشيباني1 قام بنشر مارس 8, 2009 الكاتب مشاركة قام بنشر مارس 8, 2009 أستاذي العزيز رائع كعادتك جزاك الله كل خير وادامك لنا مرجعا هذا بالضبط ما كنت اسعى اليه مع الامتنان رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.