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

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

ما اطلبه هو تغير سعر المنصرف تلقائى حسب قاعده الوارد اولا يصرف اولا  

ولكن بالمعادلات ان امكن بارك الله فيك

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

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

ارجو المساعده فى عمل معادله للوارد اولا يصرف اولا 

الوارد اولا يصرف اولا.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