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

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

قام بنشر

الاخوه الاعزاء

مرفق ملف فيه توضيح برجاء الاطلاع والمساعده

وتفضلوا بقبول وافر الاحترام

اسف الملف لم يدرج هذا هو الملف

____________.rar

قام بنشر

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

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

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

  • 2 weeks later...
قام بنشر

الاساتذه / محمد طاهر / حسام نور / على السحيب / تامر

هل ممكن لاى من الاخوه الاجابه على هذا السؤال

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

قام بنشر

:clapping:

الاستاذ :هادي سالم 100 على 100 ممتاز

اشياء جديدة ورائعة .

حفظك المولى عز وجل من شر

تحياتي لك

قام بنشر

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

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

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

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

بارك الله فيك

تحياتى

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

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

قام بنشر

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

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

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

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

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

قام بنشر

هل بالامكان كلما رحلنا ( مبلغ - نقدا - سداد ) يضاف الى البيانات السابقة القديمة .

تحياتي

قام بنشر

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

تحياتي لك

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

تحياتي لك

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

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

السلام عليكم

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