Ali Mohamed Ali

جزاك الله خير الثواب

أحسنت استاذ محمد بارك الله فيك عمل رائع جعله الله فى ميزان حسناتك ولكن من الأفضل طبعاً جعل البرنامج يعمل على النواتين سواء 32 أو 64 بت معاً فالبرنامج يعمل فقط على النواة 32 بت ... ولكم جزيل الشكر

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

يمكنك استخدام هذه المعادلة =INDEX($B$2:$E$5,MATCH($J3,$A$2:$A$5,0),COUNTA(B2:E2)) البحث عن اخر قيمة فى الصف.xlsm

تفضل لك ما طلبت وهذه هى معادلة القائمة المنسدلة لتسمح بالبحث داخلها واضح ذلك بالملف المرسل لك الم تطلع عليه ؟!!! توضح بالخلية E2 فى القائمة المنسدلة , من قائمة Data ثم Data Validation =OFFSET($R$2,,,COUNTIF($R$2:$R$100,"?*")) وعليك بمتابعة ودراسة المعادلات المساعدة الموجودة بالعمودان R & P ابراهيم1.xlsm

وعليكم السلام ... كان عليك استخدام خاصية البحث بالمنتدى تفضل هديتى برنامج مخزنى و دليل حسابات_ECO2_DuClick_store_ بفورم بحث و اضافه 1.0.0 وهذا برنامج اخر برنامج مخازن وكارت صنف2012 من تصميمي.xls

جرب هذا وهذا برنامج اخر برنامج عيادة بيطرية ارشفة وادخال وفاتورة

وعليكم السلام-يمكنك جلب الإسم بدون تكرار بهذه المعادلة أما الباقى فمعادلة Sumif =IFERROR(INDEX(بيانات!$I$2:$I$240,MATCH(0,INDEX(COUNTIF($B$1:B1,بيانات!$I$2:$I$240),),0)),"") tagg1.xlsm

بارك الله فيك استاذ حاتم وزادك الله من فضله

وعليكم السلام-تفضل mathtype 6.9

وعليكم السلام اخى الملف يعمل بكل كفاءة كما ترى ولكن المشكلة لديك انه لا يوجد اى تاريخ قريب لتلوينه قم انت بتغيير اى تاريخ الى تاريخ جديد فليكن بشهر ابريل أو مايو 2021 بأى خلية يدوياً وستجد ان الخلية سيتم تلوينها تلقائياً وشكراً

تفضل هذه المعادلة لكود المندوب =IFERROR(INDEX(المناديب2!$A:$A,MATCH($A2,المناديب2!$B:$B,0)),"") وهذه المعادلة لكود السيارة =IFERROR(INDEX(' السيارات3'!$A:$A,MATCH($C2,' السيارات3'!$C:$C,0)),"") حركه السيارات.xlsx

بارك الله فيك استاذنا الكريم وكل عام وانتم جميعاً بخير

السلام عليكم ورحمة الله وبركاته كل عام وأنتم إلى الله أقرب بمناسبة شهر الصيام.. رمضان كريم. رمضان كريم، نسأل الله أن يتقبل منا ومنكم صالح الأعمال، كل عام وأنتم بخير اليوم عندنا عيد، بقدومك يا رمضان الخير، صفحة من حياتنا، تبدأ من جديد أمانينا تسبق تهانينا، وفرحتنا تسبق ليالينا،ومبارك الشهر عليك وعلينا بريحة المسك والعود رمضان علينا وعليكم يعود شهر الخير والكرم والجود

وعليكم السلام وذلك بسبب ان طريقة الحساب لديك كانت Manual اجعلها كما بالصورة

جزاك الله خير الثواب وكل عام وانتم جميعاً بخير

وعليكم السلام-فقط استخدم هذه المعادلة =CONCATENATE($E2," ",$BC2," ",$F2) مواقع استخدام العناصر 201.xlsx

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

اهلا بك فى المنتدى -يمكنك ببساطة استخدام هذه المعادلة لطلبك =IFERROR(VLOOKUP($B9,ورقة1!$A$3:$C$400,2,0),"") VLOOKUP.xlsx

وعليكم السلام-طالما انها معادلة اجمالى من الأفضل ان تكون هكذا =SUM(J6:L6) معادلة الجمع1.xlsx

تفضل لك ما طلبت 1معادلات.xlsx

وعليكم السلام-تفضل بالتنسيقات الشرطية مهم1 .xls

وعليكم السلام-يمكنك استخدام هذا الكود لطلبك Sub Combine() Dim j As Integer Dim s As Worksheet On Error Resume Next Sheets(1).Select Worksheets.Add ' add a sheet in first place Sheets(1).Name = "Year 2020" ' copy headings Sheets(1).Activate With ActiveSheet v = 1 Range("a2").Resize(v + 1, 10) = arr Range("b" & v + 1).FormulaR1C1 = "Total" Range("c" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C3:R[-2]C)" Range("d" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C4:R[-2]C)" Range("e" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C5:R[-2]C)" Range("f" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C6:R[-2]C)" Range("g" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C7:R[-2]C)" Range("h" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C8:R[-2]C)" Range("i" & v + 1).FormulaR1C1 = "=SUBTOTAL(9,R4C9:R[-2]C)" End With Sheet1.Range("b4:k4").Copy Sheets("Year 2020").Range("a3:K3") Columns("A:C").ColumnWidth = 10 Columns("D:I").ColumnWidth = 8 Columns("J").ColumnWidth = 16 Range("b4").EntireRow.Select Range("b2:i2").Interior.ColorIndex = 5 Range("a2:j2").Font.ColorIndex = 2 Range("b2:i2").Font.Bold = True Range("b2:i2").Font.Size = 16 Range("b2:i2").Font.Name = "Times New Roman" Range("b2:i2").HorizontalAlignment = xlCenter Cells.Rows(4).Font.Bold = True Selection.Copy Destination:=Sheets(1).Range("b4") For Each s In ActiveWorkbook.Sheets If s.Name <> "Year 2020" Then Application.Goto Sheets(s.Name).[b4] Selection.CurrentRegion.Select ' Don't copy the headings Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=Sheets("Year 2020"). _ Cells(Rows.Count, 1).End(xlUp)(2) End If Next End Sub Book4 .xlsm

فقط تم تغيير امتداد وتنسيق الملف الى XLSM حتى لا يقوم بإلغاء القائمة المنسدلة ... دائماً وأبداً حاول عدم جعل ملفات الإكسيل لديك بهذا الإمتداد XLS , فهو امتداد قديم قائمة منسدلة.xlsm

وعليكم السلام-تفضل يمكنك استخدام هذه المعادلة لطلبك =IFERROR(VLOOKUP($B$2,البيانات!$A$2:$E$100,1,0),INDEX(البيانات!$A$2:$A$100,MATCH($B$2,البيانات!$B$2:$B$100,0))) test1.xlsx