احمدزمان

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

و عليكم السلام و رحمة الله وبركاته ماهو المطلوب

السلام عليكم و رحمة الله وبركاته كل عام وانتم بخير اخي الفاضل اضخل رقم الفاتورة ثم اضغط زر كل البيانات Dim Q1, Q2, FR, TR Range("A11:L111").ClearContents Q1 = Range("C6").Value 'رقم الفاتور TR = 11 For Q2 = 1 To Sheets.Count If Sheets(Q2).Name = ActiveSheet.Name Then GoTo 3 With Sheets(Q2) For FR = 3 To 3333 If .Cells(FR, 14) = Q1 Then Cells(TR, 1) = .Cells(FR, 3) & .Cells(FR, 4) Cells(TR, 2) = .Cells(FR, 5) Cells(TR, 3) = .Cells(FR, 6) Cells(TR, 4) = .Cells(FR, 7) Cells(TR, 5) = .Cells(FR, 8) Cells(TR, 6) = .Cells(FR, 9) Cells(TR, 7) = .Cells(FR, 10) Cells(TR, 8) = .Cells(FR, 11) Cells(TR, 9) = .Cells(FR, 12) Cells(TR, 10) = .Cells(FR, 13) Cells(TR, 11) = .Cells(FR, 27) Cells(TR, 12) = .Cells(FR, 26) Cells(TR, 13) = Sheets(Q2).Name TR = TR + 1 End If Next FR End With 3 Next Q2 End Sub Testعمرضاحي.xls

و عليكم السلام تم تسمية نطاقات جديدة الكود هو Range("INPUT").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "ORDER"), CopyToRange:=Range("OUTPUT"), Unique:=False المشكلة التي واجهتني البيانات الموجودة نم جلبها من برنامج آخر لذلك كان التاريخ عبارة عن نص ويجب تعديلة خدمات سيارات new 2.xls

السلام عليكم الحل العادي هو عدد الأيام ÷ 30 = عدد الشهور ولكن الناتج لن يكون دقيق بسب طول المدة

و عليكم السلام و رحمة الله الإختلاف موجود بسبب اختلاف القيم الموجودة في العمود D جزاك الله خيرا

و عليكم السلام و رحمة الله وبركاته اخي الفاضل اعذرني : مازلت احاول ان افهم الآن في ورقة 2 تركي الى تركي اذا كتبت في عمود نوع الدفع كلمة "تصريف" و كتبت في عمود الجهة المستفيدة كلمة "دولار" وكتبت في عمود سعر التصريف المبلغ "4.56" ماذا تريد من الترحيل ان يفعل

و عليكم السلام و رحمة الله وبركاته جزاك الله خيرا ==========

حول موضوع استخراج اسم اليوم في العمود M انت استخدمت دالة طويلة وهي =IF(L3="";"";VLOOKUP(WEEKDAY(L3);{1,"الأحد";2,"الإثنين";3,"الثّلاثاء";4,"الأربعاء";5,"الخميس";6,"الجمعة";7,"السبت"};2;0)) يمكنك استخدام دالة اصغر و ابسط وهي =IF(L3="";"";TEXT(L3;"b2dddd"))

و عليكم السلام و رحمة الله وبركاته جزاك الله خيرا ============ =IF(SUM(F3)*SUM($K$3)/100=0;"";SUM(F3)*(SUM($K$3)/100)) حساب (2).xls

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

السلام عليكم و رحمة الله وبركاته شوف الموضوع ده به الكوود https://www.officena.net/ib/topic/46702-الماسح-الضوئي-من-اكسل-excel-scaner/

و عليكم السلام و رحمة الله وبركاته جزاك الله خيرا ============ للعمليات الحسابية للخلايا التي بها نصوص او "" فراغ يجب استخدام الدالة SUM لأنها تقوم بالتعامل مع النصوص على القيمة 0 واذا اردت التعديل على الملف نفسة ممكن اعمله لك

السلام عليكم بطريقة اخرى اخفاء قيم الصفر في ورقة تذهب الى خيارات اكسل و منه خيارات متقدمة تلغي الإشارة الموجودة على - اظهار صفر في الخلايا التي قيمتها صفر كما في المرفق تعديل على معادلة جلب الوقت.xlsm

السلام عليكم كود المسح Range("D1").Select Selection.ClearContents و الباقي غير واضح مامعنا يساوي هل المطلوب اكبر تاريخ او مجموع التواريخ او غير ذلك

ان شاء الله ممكن ممكن نخليه خلال عدد ايام محدد بين كل قسسط يعني 7 ايام اسبوعي 15 يوم كل اسبوعين 30 كل شهر بس مشتغل باي تاريخ الهجري لو الميلادي

و عليكم السلام و رحمة الله وبركاته موضوع رقم الفاتورة فهمناه و ممكن عمله ولكن تبغه ترحل الفاتورة الى فين وما هي البيانات المطلوب ترحيلها

آمين و اياك

السلام عليكم عند الدخول الى شيت2 يتم الحساب كشفحساب.xls

طيب كده اسهل نعمل زر في شيت2 يقوم باعادة الترصيد تمام

salam alikom اخي الكريم في حل آخر نحنه نعمل هذا الكوود الي انته تبغاه يشتغل بعد الإنتهاء من ترحيل كل البيانات اظن كدة افضل شوو رأيك

بسيطة ان شاء الله نضيف كود الرصيد الى الكود الجديد و نلغية من شيت 2 salam alikom كشفحساب.xls

جرب الآن كشفحساب.xls

المشكلة في هذا الكود الموجود في شيت 2 Private Sub Worksheet_Change(ByVal Target As Range) lr = Range("A2").End(xlDown).Row If Target.Column = 2 Or Target.Column = 5 Or Target.Column = 6 Then Range("g2:g" & lr).FormulaR1C1 = "=SUMIF(R2C2:RC[-5],RC[-5],R2C5:RC[-2])+SUMIF(R2C2:RC[-5],RC[-5],R2C6:RC[-1])" Range("g2:g" & lr).Value = Range("g2:g" & lr).Value End If End Sub حيث انه عند افراغ ورقة 2 من البيانات فانة يقوم بوضع الدالة Sumif لكامل خلايا الورقة 2 في العمود G ولكن ان شاء الله نجد الحل في المساء

السلام عليكم انا جربت الملف عندي شغال تمام عمود آي نعمله بسيطة