اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

sabah20267

عضو جديد 01
  • Posts

    30
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو sabah20267

  1. السلام عليكم معادلة لجلب البيانات من شيت الفرعية الى شيت الرئيسية لجلب اقرب تاريخ للعودة من تاريخ المغادرة جلب اسم المحطة والتاريخ معا فاذا كانت المغادرة يوم 1 / 10 ننظر في اقرب لهذا التاريخ في تاريخ العودة فيكون لكل رقم تاريخ مغادرة وتاريخ عودة ومحطة جزيتم خيرا معادلة لأقرب تاريخ على اساس الرقم والتاريخ.xlsx
  2. السلام عليكم محتاج أي طريقة لاستدعاء بيانات على اساس التاريخ لغرض التعديل عليها واضافة عليها بيانات جديدة اذ للأسم أكثر من حركة خلال الشهر - والبيانات كثيرة فاذا احتجت اسم معين خلال فترة معينة - حتى اضيف بعض البيانات ممكن أي طريقة ترونه مناسبة جزيت خيرا
  3. السلام عليكم ممكن تعديل على الكود الخاص بمحرك البحث ليكون جلب البيانات عند كتابة الاسم في المحرك على اساس التاريخ جزيتم خيرا جلب البيانات عند كتابة الاسم في محرك البحث على اساس التاريخ.xlsm
  4. السلام عليكم .. ممكن اضافة امر الى الكود ليكون البحث حسب التاريخ المحدد .. جزيتم خير فلترة اضافية مع محرك البحث.xlsm
  5. السلام عليكم ,, عندي ملف - ممكن الاطلاع عليه ..ويتضمن ..ترحيل الارقام بدون تكرار ..والجمع بشروط اربع .. الاسم + الرقم + بين تاريخين الجمع بين تاريخين بشروط اربع.xlsx
  6. السلام عليكم محتاج معادلة لاظهار الاستقطاع على اساس رقم المستند والرقم التعريفي سلمكم الله اظهار الاستقطاع على اساس الرقم التعريفي ورقم المستند.xlsx
  7. مبارك - نساله تعالى لكم التوفيق والتقدم ما شاء الله، أسأل الله أن يبارك لك وينفع بك أمة محمد صلى الله عليه وسلم
  8. السلام عليكم كود من تصميم الاستاذ - محمد صالح - تعديل على الكود بحيث يكون الطبع نسختين عند الضغط على زر طباعة 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
  9. اعتذر - صحيح .. ممكن طلب .. حفظ الصورة على اساس الاسم الذي هو موجود في خلية B3
  10. السلام عليكم .. ممكن معادلة لاختيار الرقم الاقل اختيار الكمية الاقل.xlsx
  11. تسلم .. تمام .. تبقى اذا اخذت مجموعة اكواد (انسخ الاكواد من شيت الارشيف ولصق في شيت شهر اب ) جربت كود - نجح الأمر وجربت بان اخذ مجموعة والاكواد , لم تنجح معي .. ممكن جزيت خيرا - الله يفوفقك معالجة هذا الأمر
  12. السلام عليكم .. ممكن كود للاعلام بان رقم الكود موجود ، ولا يمكن ادخاله الا بعد موافقة بحثت بالمنتدى ولم اجد سوى تنسيق شرطي .. واني محتاج كود .. جزيتم خيرا انتبه من فضلك تــم اعادة رفع الملف بإمتداد يقبل اضافة الأكواد ... طالما انك تريد المساعدة والحل بالأكواد XLSM الكود موجود في شيت الارشيف.xlsm
  13. الله يرضى عليك .. ممكن رفع البيانات الزائدة كما موجود بالملف المرفق لانه عملت سابقا هكذا ولكن اكثر من الموظف يرجع ويستفسر لماذا هذه الاصفار موجودة هل توجد بيانات ناقصة كشفين في ورقة واحدة - رفع.xlsx
  14. وعليكم السلام ,,, جربت عمودي - به صعوبة عليه .. ممكن تنفيذ يكون الطبع افقي كما في الصورة .. جزيت خيرا
  15. السلام عليكم عندي كشف اريد عند الطبع يكون كما في الصورة كشفين في ورقة واحدة.xlsx
  16. السلام عليكم معادلة لجعل كل رقم كود كود لكل رقم.xlsx
×
×
  • اضف...

Important Information