اركان الاسلام

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

السلام عاليكم اخوتى الاعزاء جزاكم الله جميعا خيرا فلقد استفدت منكم الكثير والكثير ارجو المساعده فى عمل معادله للوارد اولا يصرف اولا الوارد اولا يصرف اولا.xlsx

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

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

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

جربت اكثر من كود لكنه ينقل فى اماكن متفرقه المطلوب ترحيل البيانات من عمو د f و h من الصفحه الثانيه الى العمود i و l فى الصفحه االثالثه ثم مسح البيانات من الصفحه الثانيه ولقد قمت بتلوين الاعمده لتاكيد من العمود الاخضر فى الصفحه الثانيه الى العمود الاخضر فى الصفحه الثالثه ومن العمود الاحمر فى الصفحه الثانيه الى العمود الاحمر فى الصفحه الثالثه وجزاكم الله خيرا مطلوب النقل.xlsm

اخ سليم بارك الله فيك وشكرا لاهتمامك المطلوب انى هختار اكتر من مره اريد الرقم الى هو بيثمل سعر اليوميه قيمه تثبت ويضاف عاليها القيمه الجديده وهكذا بمعنى انا اخترت يوميه ب100 ثم اخترت يوميه اخرى ب50 يعطينى اجمالى 150 وهكذا

الفكره انى عندى 30 يوم بتلاتين اختيار من القائمه المنسدله المطلوب عند اختيار اسم العامل من القائمه المنسدله يتم تسبيت المبلغ واضافه المبلغ الجديد على القديم فى كل اختيار لكن الى انا قدرت اوصله انه بيختار لمره وحده فقط ويمسح عند اختيار اليوم الثانى تكرمو عالينا بالمساعده اثابكم الله الاجور.xlsx

up

لايتم حفظ التغيرات فى كثيرا من الاوقات الزناتى للتجاره والتوزيع.xlsm

مطلوب طريقه عمل اكواد للاصناف مهما كان عددها وطريقه استدعائها فى اى شيت من الشيتات او كيف يتم الربط بين الكود واسم الصنف ولكم جزيل الشكر تكويد الاصناف.xlsx

استاذنا الفاضل سليم حاصبيا نرجو منك ان تشرح لنا هذا الكود وهو احدى ابداعاتك لكى نتعلم منك نفعك الله بهذا العلم وجعله من العلم الذى تنتفع به يا اخى Option Explicit Sub Add_sheet() Dim myname As Worksheet Dim P As Worksheet Dim sh_n%, k%, i% Set P = Sheets("اليوميه") sh_n = Application.CountA(P.Range("B:B")) - 1 Dim x%, t%: t = 2 Dim mn$ Application.ScreenUpdating = False ''''''''''''''''''''''''''''''''''''''''' For i = 2 To sh_n On Error Resume Next mn = Sheets(P.Range("b" & i) & "").Name x = Len(mn) If x = 0 Then P.Copy after:=Sheets(Sheets.Count) With ActiveSheet .Name = P.Range("b" & i) .Range("G14") = P.Range("F" & i) .Range("a1").CurrentRegion.Offset(1).ClearContents .Range("A:A").NumberFormat = ("dd- mm-yyy") For k = 2 To sh_n + 1 If P.Range("b" & k) = ActiveSheet.Name Then ActiveSheet.Cells(t, 1).Resize(, 4).Value = _ P.Range("A" & k).Resize(, 4).Value t = t + 1 End If Next End With '========================================= Else Set myname = Sheets(P.Range("b" & i) & "") myname.Range("a1").CurrentRegion.Offset(1).ClearContents For k = 2 To sh_n + 1 If P.Range("b" & k) = myname.Name Then myname.Cells(t, 1).Resize(, 4).Value = _ P.Range("A" & k).Resize(, 4).Value t = t + 1 End If Next '''''''''''''''''''''''''''''''''''' End If mn = "" Err.Number = 0 t = 2 Next i P.Select Application.ScreenUpdating = True End Sub tarhil_by_names.xlsm

ماذا تعنى رساله الخطاء هذه ولما يعلق زر design mode وطريقه الحل لكل صوره من الصوره التى تحمل رساله الخطاء التى قمت برفعها ارجو بالترتيب لكى افهم

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

اعلم كيف اقوم بانشاء اختصارت لبعض الاسماء ولكن المشكله انها تطبق على كامل الشيت المطلوب معرفه كيف اجعلها تطبق داخل عمود معين وجزاكم الله خيرا انشاء اختصارت للاسماء الاصناف.xlsx

بردو بيختفى على العموم شكرا اخى ابو تامر والشكر موصول للاخ سليم على المحاوله والاهتمام

بعرف اعمل اختصارات لجمل معينه بستخدمها كتير فى شغلى لكن المطلوب انه يكون فى عمود معين انا الى اختاره وليس فى كامل البرنامج مثلا عمود الاصناف وليس اى مكان اخر ولكم جزيل الشكر ان لم يتم رفع الملف ... ستحذف المشاركة بناءاً على قوانين ومبادىء المنتدى

اخى سليم وضعت الماكرو فى Text Box لكن ما زال يظهر ويختفى سوال : هل من طبيعه text box الا يكون ثابت كاى كائن نعمله انثرت زى مايكون ركبه عفريت هههههه اشكرك اخى ولو امكن ممكن ننفذ طريقه البحث هذه بداله يكون افضل من ال Text Box مدام مش عاوز يثبت

السلام عاليكم ورحمه الله اخواتى الاعزاء فى المنتدى كنت قد شاهدت فيديو عن البحث من خلال text pox واظهار نتائج البحث وقمت بتنفيذه ونجح ولكن للاسف بيختفى text pox ويظهر بمزاجه ارجو الافاده كيف اجعله ثابت فى مكانه حتى لو عملت تنسيق لبعض الاعمده او الصفوف بحث سريع.xlsm

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

يا اخى بارك الله فيك هو ده الى انا عاوزه بالظبط بل اكثر ولكن مش عارف ليه كل الشيتات الى بحملها من على الموقع مبتشغلشى عندى ممكن يكون فيه طريقه انا مش عارفها بارك الله فيك لو تفدنى لانى فعلا الشيت ده هيفرق معايا جدا ديما بتطلع رساله بس مش عارف اخدها شوت من شاشه الجهاز بدعيله عن ظهر قلب اللهم اصلح له شانه كله جزاكم الله جميعا كل الخير

ارجو المساعده عاوز ارحل من شيت اساسى الى شيتات حسب اسم العميل ترحيل حسب اسم العميل.xlsm