اذهب الي المحتوي
أوفيسنا

ترحيل البيانات باسلوب مختلف


mselmy

الردود الموصى بها

هذا السؤال بطرحه للمره الثاثه فى المنتدى ولم اجد رد عليه

هل هذا الموضوع صعب لهذا الحد (لا ادرى ) لكن ارى الاخوه محترفى البرمجه يفعلوا ما هو اصعب

طيب ايه الحكايه

رابط هذا التعليق
شارك

  • 2 weeks later...

الأخ الفاضل / هادى سالم

جزاك الله خيرا و بارك الله فيك

و رزقك الله علماً واسعا نافعا

و ننتظر منك الأفضل كأستاذ لنا نتعلم منك مع اساتذة المنتدى الرائع

بارك الله فيك

تحياتى

-------------------------

أشهد أن لا إله الا الله و أشهد أن محمد رسول الله

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

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

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

ونقطة أخرى ممكن اضافة خانتين اخرى بجانب المبلغ ويتم ترحيل الثلاث اعمدة مثلا مبلغ وتاريخ ونقدا وأجل

وجزاك الله خيرا

رابط هذا التعليق
شارك

بسم الله الرحمن الرحيم



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



السلام عليكم

Post_OffSet_02.rar

رابط هذا التعليق
شارك

نعم هذا هو ماطلبته ولكن يااستاذ هادي خانة المبلغ هي التي تتاثر بالاضافة .اما خانة نقدا وخانة باجل فلم تتأثر اتمنى لو تتكرم علينا بجعل خانة نقدا وخانة باجل تتاثر ايضا بالاضافة .

تحياتي لك

رابط هذا التعليق
شارك

نعم هذا هو ماطلبته ولكن يااستاذ هادي خانة المبلغ هي التي تتاثر بالاضافة .اما خانة نقدا وخانة باجل فلم تتأثر اتمنى لو تتكرم علينا بجعل خانة نقدا وخانة باجل تتاثر ايضا بالاضافة .

تحياتي لك

بسم الله الرحمن الرحيم

جرب الملف المرفق

السلام عليكم

Post_OffSet_04.rar

رابط هذا التعليق
شارك

شكرا والف شكر استاذنا ومشرفنا وسامحني لو اني اتعبتك .

فعلا مشرفي منتدانا نعتز بهم كثيرا وفي كل يوم نتعلم منهم ومكانهم في عيوننا .

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

تحياتي لك

رابط هذا التعليق
شارك

الاستاذ / هادى سالم

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

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

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

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

انا اسف على الاطاله لكنى سعيد جداااا فاعزرونى

رابط هذا التعليق
شارك

استاذ / هادى

ممكن اثقيل عليك بطلب اخير

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

بسم الله الرحمن الرحيم

جرب الملف المرفق

السلام عليكم

Post_OffSet_05.rar

رابط هذا التعليق
شارك

  • 2 weeks later...

الاخ / هادى

ممكن طلب اخير بالنسبه لهذا الموضوع

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

ويسأل هر تريد الاستبدال اذا قلنا نعم يقوم باستبدال البيانات القديمة بالبيانات الجديده واذا قلنا لا يخرج من الشاشه

ارجوا ان اكون اوضحت طلبى ... وشكرا

رابط هذا التعليق
شارك

تحية تقدير للاستاذ هادى والموضوع رائع

ولكن هل يمكن ان يتم الترحيل وفقا لمايلى

الترحيل الاول فى العمود A مثلا تم الترحيل الثانى فى العمود B وهكذا لكل عميل وفقا للصورة المرفقة

untitled.rar

رابط هذا التعليق
شارك

بسم الله الرحمن الرحيم

الاخ / هادى

ممكن طلب اخير بالنسبه لهذا الموضوع

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

ويسأل هر تريد الاستبدال اذا قلنا نعم يقوم باستبدال البيانات القديمة بالبيانات الجديده واذا قلنا لا يخرج من الشاشه

ارجوا ان اكون اوضحت طلبى ... وشكرا

ارفقت لك طلبك الاخير السابق و لم ترد على ؟

لاستخرج رساله للخيار استخدم الكود التالى

Sub mMsgBox()
    msg = MsgBox("Msg", vbYesNo, "Title")
    If msg = vbYes Then
        MsgBox "Yes"
    Else
        Exit Sub
    End If
End Sub

الأخ hofn

لم أفهم المطلوب

السلام عليكم

رابط هذا التعليق
شارك

نعم هذا هو ماطلبته ولكن يااستاذ هادي خانة المبلغ هي التي تتاثر بالاضافة .اما خانة نقدا وخانة باجل فلم تتأثر اتمنى لو تتكرم علينا بجعل خانة نقدا وخانة باجل تتاثر ايضا بالاضافة .

تحياتي لك

بسم الله الرحمن الرحيم

جرب الملف المرفق

السلام عليكم

في ملف المشاركة رقم 12 وبعد تجريب الملف تلاحظ لي الاتي :

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

استاذي الفاضل امل التكرم بحل هذه المشكلة لي .

ايضا اتمنى ان تكون صفحة الادخال فاضية بعد الترحيل

تحياتي لك استاذنا هادي سالم

رابط هذا التعليق
شارك

بسم الله الرحمن الرحيم

اخى skyblue :

جربت الملف و لم اجد مشاكل .

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

Sheets("ادخال").Range("B4:E19").ClearContents

السلام عليكم

رابط هذا التعليق
شارك

  • 2 months later...

اخى الكريم هادى سالم

جزاك الله كل خير

ولكنى اريد ان اعرف كيف اضع كود الاختيار( فى حالة وجود بيانات واريد ابدلها ببيانات اخرى )

Sub mMsgBox()

msg = MsgBox("Msg", vbYesNo, "Title")

If msg = vbYes Then

MsgBox "Yes"

Else

Exit Sub

End If

End Sub

بمعنى اخر هل يوضع فى نفس الكود ام انه يوضع فى مكان اخر واتمنى لو تكرمت بارسال الملف بعد وضع كود الاختيار به

جزاك الله خيرا

اخوك

ابو عمر

رابط هذا التعليق
شارك

السلام عليكم

اخي الكريم ابو هادى و الاخوه الكرام

هل من الممكن ان يتم الترحيل لصفوف دون اخرى اي ترحيل مشروط

اى الصفوف التي تطابق شرط الترحيل يتم ترحيلها

مثل ان تحتوي على تاريخ معين (يكون مححد في خليه)

او ان يحتوى على اسم معين او رقم

احتاجه في عملى على ملف الحسابات

و سؤال اخر كيف اقوم باختيار مديين متباعديين A1:A50 , D1:D50 ؟؟

تم تعديل بواسطه ابو اسامة العينبوسي
رابط هذا التعليق
شارك

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

تم تعديل بواسطه malik68
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information