ترحيل بيانات

[الشيباني1]

أخواني الاعزاء تحية طيبه ، في المرفق استفسار حول ترحيل بيانات ارجو المساعده مع الامتنان

_____.zip

[ابو اسامة العينبوسي]

السلام عليكم

ارجو ات يكون طلبك

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

فهو بحاجه لبعض اللمسات

___________.rar

[الشيباني1]

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

___________1.zip

[ابو اسامة العينبوسي]

السلام عليكم

لم افهم المشكله ما هي (مشكلة ملفى)

[الشيباني1]

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

 

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

Hosp_04.rar

[عبدالله باقشير]

السلام عليكم

اخي الفاضل

حسب ما فهمت من طلبك انك تريد مسح البيانات السابقة في اوراق الوكلاء

اثناء ترحيل البيانات

اذا اردت ان يرحل اسفل البيانات السابقة امسح

السطر الذي فيه الملاحظة من الكود

وهو سطر الانتقال الى كود المسح

برضوا عملت لك معادلة للجمع

تفضل المرفق

___________2.rar

[الشيباني1]

ما هذا الابداع اخي العزيز ، اشكرك الشكر الجزيل وجزاك الله كل خير وادامك لنا مرجعا . سأحاول نقل المحتويات الى ورقة العمل التي اعمل عليها وارجو ان يكون صدرك واسعا للمساعده ان ظهرت الحاجة اليها مع الامتنان.

 

استاذنا العزيز تحية طيبه في الوقت الذي اشكركم فيه على هذا الكود الرائع الذي جادت به اناملكم ،اتساءل عن كيفية تعديل الكود ليكون المدى (10000) سطر بدلا من (29) والاعمده الى (10) ، وهل بالامكان افراغ الرئيسيه من محتوياتها بعد الترحيل ، لاستخدامها كفاتوره ؟ مع الامتنان

[amoudi]

                  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

[الشيباني1]

اخي العزيز مع تقديري لردكم الكريم ، ما الذي تغير في الكود ؟ وهل يمكن تطبيقه على الاسطر بعد (29) ؟ وهل بالامكان اضافة اعمده بعد (H) ؟ ارجو ( ان كان ذلك ممكنا) تطبيق ما استجد على المثال اعلاه مع الامتنان

[عبدالله باقشير]

السلام عليكم

غير في الكود :هنا

من:

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 بواسطه خبور خير

[amoudi]

عزيزي خبور خير

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

انت تقول

1=1

طيب اصلا الواحد هو واحد

تحياتي

[عبدالله باقشير]

السلام عليكم

الاخ /عمودي ----حفظه الله

انت اخي تستاهل ان تكون في مجموعة غير المجموعة الحالية (الاعضاء)

وسيتحقق هذا قريبا إن شاء الله

[الشيباني1]

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

[عبدالله باقشير]

الاخ العزيز

حدد الاعمدة التي تريد ان تمسحها

[الشيباني1]

استاذي العزيز المدى المطلوب افراغه بعد الترحيل (b5:h40) مع الشكر الجزيل

[عبدالله باقشير]

Sub

 ماكرو1()
    ورقة1.Range("B5:H40").ClearContents
End Sub

[الشيباني1]

استاذي العزيز عاجز عن الشكر والامتنان ،طلب قد يكون الاخير بأذن الله ،عملت زر للالغاء ويعمل جيدا ، هل بالامكان الغاء القائمه تلقائيا بعد الترحيل مباشرة، او تنبيه قبل الالغاء بأن القائمه لم ترحل ؟ جزاكم الله كل خير

[الشيباني1]

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

_________________.zip

[عبدالله باقشير]

السلام عليكم

تفضل المرفق

_________________.rar

[الشيباني1]

أستاذي العزيز رائع كعادتك جزاك الله كل خير وادامك لنا مرجعا هذا بالضبط ما كنت اسعى اليه مع الامتنان