طارق محمود

السلام عليكم أخي جمال شاكر مرورك الكريم والشكر موصول للمنتدي وجميع اعضاؤه

السلام عليكم مازلت غير متأكد 100% ولكن تفضلي المرفق راجعيه ، بخاصة حالة الترحيل في حالة Approved وتأثيرها علي شيت Material Index تفضلي MRS3.rar

السلام عليكم جزاك الله خيرا أشكر لك مشاعرك الطيبة ومرورك الكريم

السلام عليكم الاخت الفاضلة / Nadia Khalil إسمحي لي أوضح بعض النقاط ليس كل من يساهم يفهم تماما طبيعة عملك لذلك لابد من توضيح المشكلة بلغة الإكسل وليس بلغة عملك بمعني أن تقولي مثلا اريد بدلا من أن تقولي في الشيت AMRSR عند اختيار نتيجة المعمل Approved (أين نتيجة المعمل ، هل هي العمود I ، ولكنه يختار Refused وليس Rejected ) يتم ترحيل كمية الخامة من عمود الـ Quarantine تقصدين العمود K في شيت MaterialIndex حيث لايوجد عمود Quarantine إلا في شيت MaterialIndex بإختصار لابد من شرح جيد لما تريدين فأنا شخصيا لم افهم جيدا المطلوب وأخشي أن أضيع وقتي ثم لايكون هو المطلوب أعذريني للصراحة ولكن قد يكون هذا هو حال باقي الزملاء

السلام عليكم أختنا الكريمة أهلا ومرحبا بك بين إخوانك وأخواتك إرجعي لأول مشاركة لي في الموضوع المشاركة رقم (2) إذهبي أختي للجزء الرابع والذي به خلاصة الحسابات مثلا الموظف 1 قام بالعمل وقت إضافي فعلي 49.08 ساعة والتي تحسب بعد ضربها ×1.5 بقيمة 73.625 ساعة وهو مايعني 6 أيام تقريبا بدون الضرب ×1.5 أو 9 أيام تقريبا بعد الضرب ×1.5 (بفرض 8 ساعات عمل باليوم)

السلام عليكم اخي ولد المجرب (ابو أحمد) جزاك الله خيرا علي مرورك وكلماتك الطيبة لعلك خلطت بيني وبين اخي / عادل حنفي مشرف قسم الإكسل جزاه الله خيرا علي كل مايقدمه للإخوة بالمنتدي أخوك طارق محمود (شقيقي إسمه حنفي)

السلام عليكم أخي العزيز / سيد ولك المثل ، جزاك الله ألف خير كل الحكاية أني أجد نفسي اهتم بالإخوة الجدد في أول مشاركاتهم بمعني ، أنك لاتتوقع ذلك بعد شهر مثلا ((( -- طبعا أمازحك -- ))) إسأل ماشئت في اي وقت ، ستجدنا جميعا معك

المرفق علي الرابط http://www.4shared.com/file/lNZ0uXBm/example.html فيه الكود المطلوب

السلام عليكم أخي الكريم جرب الكودين التاليين في حدث الورقة Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column > 1 Then Exit Sub r = Target.Row c = Target.Interior.ColorIndex Range("A" & r & ":D" & r).Interior.ColorIndex = c End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$18" Then Exit Sub t = Target.Value For i = 5 To 16 If Cells(i, 1).Value = t Then r = i Next i Range("A5:D16").Interior.ColorIndex = xlNone Range("A" & r & ":D" & r).Interior.ColorIndex = 6 End Sub

السلام عليكم أخي الكريم / سيد أهلا ومرحبا بك في كل وقت وننتظر مشاركاتك قريبا بإذن الله بالنسبة لسؤالك أولا عملت لك بعض التنسيقات الإضافية مثل تحديد بيانات كود الصنف عن طريق Data - Validation استخدام دالة VLOOKUP للحصول علي البيانات بمجرد إدخال كود الصنف إخفاء الصفر من الظهور عمل تنسيق شرطي في ورقتي البيع والشراء ليخفي الخطأ في حالة عدم وجود كود الصنف عمل تنسيق شرطي في ورقة المخزن ليظهر التكرار في الصنف ثانيا أضفت ثلاث أزرار (زر في كل ورقة) لعمل المطلوب بالكود علي خطوات وهي ترحيل بيانات الشراء للمخزن ومسحها من الفاتورة ترحيل بيانات المبيعات للمخزن ومسحها من الفاتورة ترتيب بيانات البضاعة بالمخزن بعد النقل من الفواتير وتستطيع طبعا دمج كودي الشراء والمخزن وكذلك دمج كودي المبيعات والمخزن إذا أردت أن يتم تنسيق وترتيب المخزن أوتوماتيكيا بعد كل عملية ترحيل من المبيعات أو من الشراء تقبل ودي ترحيل بيع وشراء.rar

السلام عليكم أخي الكريم الكود هو Sub create_File() On Error Resume Next MkDir "c:\sales" Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile("c:\sales\SalesReportReminder.vbs", True) a.WriteLine ("on error resume next") a.WriteLine ("dim ExcelApp, ExcelWB") a.WriteLine ("set ExcelApp = createobject(" & Chr(34) & "Excel.Application" & Chr(34) & ")") a.WriteLine ("ExcelApp.visible = true") a.WriteLine ("set ExcelWB =") a.WriteLine ("ExcelApp.Workbooks.Open(" & Chr(34) & "d:\fleet\monthlySalesReport.xls" & Chr(34) & ")") a.WriteLine ("ExcelApp.AutoRecover.Enabled = False") a.WriteLine ("wscript.quit") a.Close End Sub

السلام عليكم أخي messboub أنتظر ردك

السلام عليكم تفضل أخي الملف به شرح الكود شرح الكود2.rar

السلام عليكم في نفس السياق ولزيادة الفائدة يرجي مشاهدة الموضوع التالي http://www.officena.net/ib/index.php?showtopic=36438

السلام عليكم مرفق محاولة محتاجة قليل من التنقيح عذرا لضيق الوقت تفضل المرفق إخفاء جداول واظهار واحد.rar

السلام عليكم أخي الكريم كونت لك ملفا قد يؤدي المطلوب وقد اقتبست الفكرة من أستاذنا الجليل أبو تامر (عمر الحسيني) رده الله سالما من كل شر البطاقة مكونة من جزئين الجزء الثاني موجود بالشيت Card2 الجزء الأول موجود بالشيت Card1 ومضافا اليه صورة من الشيت Card2 ملفوفة لتناسب ماطلبت الخلية V2 متغيرة حسب المقياس الذي أسفلها وتحتوي رقم التلميذ وبناءا عليها يتغير بياناته كلها وصورته أيضا وضعت انا تسع صور عشوائية في الورقة Pict المطلوب منك تضع فقط الصور بالترتيب الصحيح في تلك الورقة Pict راجع المرفق وأنتظر ردك بطاقة مدرسية.rar

السلام عليكم أخي عبيد المشكلة لديك ليست في كبر حجم البيانات ، قد يكون هناك صور أو الكثير من المعادلات من باب التجربة وضعت مثالا من 6000×14 كما تقول وبه دالة VLOOKUP أنظر المرفق database6000.rar

أخي الكريم أنقر علي الرابط الذي وضعته أنا لك في مشاركتي السابقة

السلم عليكم أخي الحبيب لم ترد علي عموما رابط لموضوع يفيدك http://www.officena.net/ib/index.php?showtopic=12525&st=0&p=61346&hl=+%C3%E1%C8%E6%E3%20+%C7%E1%D5%E6%D1&fromsearch=1&#entry61346 وإن لم تستطع الدمج وتطبيق الفكرة ستجدنا كلنا جانبك والله الموفق

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

السلام عليكم بالإضافة إلي حلول الإخوة الأكارم يوجد أيضا حل بسيط في اكسل 2007 ، 2010 بالتنسيق الشرطي كالتالي ظلل العمود المطلوب (رقم هيكل سيارة) المراد معرفة التكرار به ثم Home Styles Conditional Format New Rule Format only unique or duplicate values ثم اختر لون آحمر مثلا للتبيه علي البيانات المتشابهه

هذا هو الكود وقد تركته مفتوحا تستطيع تسجيله ايضا بكلمة سر منفصلة ، لن تؤثر علي الحماية وخلافه Sub TURN_2_VALUES() Dim dd(9999) As String mypass = InputBox("إعطي كلمة سر لإخفاء المعادلات") Dim ws As Worksheet Dim CEL As Range On Error Resume Next Application.ScreenUpdating = False For Each ws In ActiveWindow.SelectedSheets For Each CEL In ws.UsedRange If CEL.HasFormula = True Then n = n + 1 dd(n) = ws.Name & ":" & CEL.Row & ":" & CEL.Column & ":" & CEL.FormulaR1C1 CEL = CEL.Value End If Next Next Application.DisplayAlerts = False For i = 1 To Sheets.Count If Sheets(i).Name = mypass Then Sheets(i).Delete: GoTo 10 If Sheets(i).Visible = False Then Sheets(i).Delete: GoTo 10 Next i Application.DisplayAlerts = True 10 Sheets.Add ActiveSheet.Name = mypass [a1].Select For i = 1 To n For j = 1 To 3 X = WorksheetFunction.Search(":", dd(i)) Cells(i, j) = Left(dd(i), X - 1) dd(i) = Right(dd(i), Len(dd(i)) - X) Next j Cells(i, 4) = Right(dd(i), Len(dd(i)) - 1) Next i ActiveSheet.Visible = False Sheets(1).Select Application.ScreenUpdating = True End Sub Sub TURN_2_Form() mypass = InputBox("إعطي كلمة سر الإسترجاع للمعادلات") rr = Worksheets(mypass).UsedRange.Rows.Count For i = 1 To rr X = Worksheets(mypass).Cells(i, "B") Y = Worksheets(mypass).Cells(i, "C") Z = Worksheets(mypass).Cells(i, "a") Worksheets(Z).Cells(X, Y).FormulaR1C1 = "=" & Worksheets(mypass).Cells(i, "D") Next i End Sub

السلام عليكم بالمرفق حل متواضع ولكنه يفي بالغرض إن شاء الله استخدمت نفس كود أخي الجليل العبقري / ابو عبد الله أضفت فقط إليه جزء خاص بالسؤال عن كلمة سر وجزء خاص بتسجيل المعادلات قبل حذفها ويتم التسجيل في ورقة جديدة يكون اسمها هو نفس كلمة السر وعند الاسترجاع يقرأ كود الإسترجاع CONTROL+SHIFT+B من هذه الورقة بعدما تعطيه اسمها (كلمة السر) ويعيد إنشاء المعادلات في نفس مكان تواجدها الأصلي وتظل الورقة محفوظة ومخفية عند محاولة حذف معادلات مرة أخري سيتم مسح هذه الورقة وإنشاء ورقة جديدة تحمل بيانات الحذف الجديدة أرجو أن يكون هذا ماتريد تفضل المرفق حذف المعادلات يالأوراق المختارة-1.rar

او http://www.4shared.com/file/aeYJ12-K/_-_3.html

السلام عليكم عفوا عندي مشاكل في التحميل الرابط http://arabsh.com/n7d2ljmfnc6f.html