sabah20267

السلام عليكم معادلة لجلب البيانات من شيت الفرعية الى شيت الرئيسية لجلب اقرب تاريخ للعودة من تاريخ المغادرة جلب اسم المحطة والتاريخ معا فاذا كانت المغادرة يوم 1 / 10 ننظر في اقرب لهذا التاريخ في تاريخ العودة فيكون لكل رقم تاريخ مغادرة وتاريخ عودة ومحطة جزيتم خيرا معادلة لأقرب تاريخ على اساس الرقم والتاريخ.xlsx

جزاك الله خير تمام هو المطلوب

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

السلام عليكم ممكن تعديل على الكود الخاص بمحرك البحث ليكون جلب البيانات عند كتابة الاسم في المحرك على اساس التاريخ جزيتم خيرا جلب البيانات عند كتابة الاسم في محرك البحث على اساس التاريخ.xlsm

السلام عليكم .. ممكن اضافة امر الى الكود ليكون البحث حسب التاريخ المحدد .. جزيتم خير فلترة اضافية مع محرك البحث.xlsm

جزيت خيرا .. مشكور

السلام عليكم .. ارجو التوضيح الجمع بين تاريخين بشروط اربع.xlsx

السلام عليكم ,, عندي ملف - ممكن الاطلاع عليه ..ويتضمن ..ترحيل الارقام بدون تكرار ..والجمع بشروط اربع .. الاسم + الرقم + بين تاريخين الجمع بين تاريخين بشروط اربع.xlsx

جزيت خير هو المطلوب

السلام عليكم محتاج معادلة لاظهار الاستقطاع على اساس رقم المستند والرقم التعريفي سلمكم الله اظهار الاستقطاع على اساس الرقم التعريفي ورقم المستند.xlsx

مبارك - نساله تعالى لكم التوفيق والتقدم ما شاء الله، أسأل الله أن يبارك لك وينفع بك أمة محمد صلى الله عليه وسلم

السلام عليكم ..تمام .. تسلم

السلام عليكم كود من تصميم الاستاذ - محمد صالح - تعديل على الكود بحيث يكون الطبع نسختين عند الضغط على زر طباعة Sub RectangleRoundedCorners333_Click() 'On Error Resume Next 'Sheets("وصل").Range("A1:q16").ExportAsFixedFormat xlTypePDF, Filename:="e:\pdf\" & Sheets("استعلام").Range("d5").Value & Sheets("استعلام").Range("c4").Value, openafterpublish:=True Dim sh As Worksheet Dim R Dim fil_name Set sh = ThisWorkbook.Worksheets("جديد") fil_name = sh.Range("d5") & " " & sh.Range("c4") Set R = sh.Range("a1:q30") If IsError(Application.Match(Range("c4"), Range("s:s"), 0)) Then pp: R.ExportAsFixedFormat Type:=xlTypePDF, Filename:="e:\pdf\" & "\" & fil_name & ".pdf" sh.Range("a1:q30").PrintOut lr = Sheets("المستودعات").Cells(Rows.Count, 1).End(xlUp).Row Debug.Print lr For n = 2 To lr sr2 = Sheets("جديد").Cells(Rows.Count, 1).End(xlUp).Row Debug.Print sr2 For m = 19 To sr2 If Sheets("المستودعات").Range("A" & n) = Sheets("جديد").Range("A" & m) Then Sheets("المستودعات").Range("A" & n & ":R" & n).Interior.Color = 10213316 End If Next m Next n Range("s" & Range("s" & Rows.Count).End(xlUp).Row + 1).Value = [c4] Else m = MsgBox("تمت الطباعة قبل ذلك" & Chr(1000) & "هل تريد الطباعة مرة أخرى", vbYesNo, "تنبيه") If m = 6 Then GoTo pp End If End Sub

نجح الأمر 100 % تسلم

اعتذر - صحيح .. ممكن طلب .. حفظ الصورة على اساس الاسم الذي هو موجود في خلية B3

السلام عليكم اين يتم حفظ الصورة؟

تسلم

السلام عليكم .. ممكن معادلة لاختيار الرقم الاقل اختيار الكمية الاقل.xlsx

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

السلام عليكم .. ممكن كود للاعلام بان رقم الكود موجود ، ولا يمكن ادخاله الا بعد موافقة بحثت بالمنتدى ولم اجد سوى تنسيق شرطي .. واني محتاج كود .. جزيتم خيرا انتبه من فضلك تــم اعادة رفع الملف بإمتداد يقبل اضافة الأكواد ... طالما انك تريد المساعدة والحل بالأكواد XLSM الكود موجود في شيت الارشيف.xlsm

هذا هو المطلوب جزيت خير

الله يرضى عليك .. ممكن رفع البيانات الزائدة كما موجود بالملف المرفق لانه عملت سابقا هكذا ولكن اكثر من الموظف يرجع ويستفسر لماذا هذه الاصفار موجودة هل توجد بيانات ناقصة كشفين في ورقة واحدة - رفع.xlsx

وعليكم السلام ,,, جربت عمودي - به صعوبة عليه .. ممكن تنفيذ يكون الطبع افقي كما في الصورة .. جزيت خيرا

السلام عليكم عندي كشف اريد عند الطبع يكون كما في الصورة كشفين في ورقة واحدة.xlsx

السلام عليكم معادلة لجعل كل رقم كود كود لكل رقم.xlsx