Ali Mohamed Ali

وعليكم السلام-يمكنك استخدلم الكود الموجود بملفك بهذا الكود Private Sub CommandButton1_Click() Dim rngCopy As Range With Worksheets("Sheet1") Set rngCopy = .Range("b7:H" & .Range("B" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible) End With rngCopy.Copy With Worksheets("Sheet2") .Activate .Range("B2").Activate .Paste Link:=True End With End Sub Transfer Data Without Hide Rows.xlsm

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

حل وكود رائعان احسنت أستاذ سليم بارك الله فيك

أهلا بك في منتدانا تفضل يتم ذلك مباشرة بمجرد دخولك على هذه الروابط-اختر منها ما يناسبك : https://smallpdf.com/ar/pdf-to-excel https://www.hipdf.com/ar/pdf-to-excel https://www.freepdfconvert.com/ar/pdf-to-excel https://www.pdftoexcel.com/ar https://convertio.co/ar/pdf-xlsx/ https://www.ilovepdf.com/ar/excel_to_pdf

اهلا بك اخى الكريم في المنتدى تفضل هذا الرابط فبه كل ما تطلب https://www.officena.net/ib/topic/50897-تفقيط-مبلغ-معين-من-الأرقام-الى-الحروف-سواء-باللغة-العربية-أو-الإنجليزية-بدون-اكواد/?tab=comments#comment-313355

وعليكم السلام -نورت المنتدى جزاك الله كل خير واحسنت بما انه اول برنامج لك

وعليكم السلام يمكنك استخدام هذا الكود بعد وضعه فى حدث This Workbook Private Sub Workbook_Open() MsgBox "Ok" MsgBox DateDiff("d", "10/Jun/2019", Date) If DateDiff("d", "10/Jun/2019", Date) > 1 Then MsgBox "Ok1" Application.ActiveWorkbook.Close End If MsgBox "Ok2" End Sub Expire.xls

بارك الله فيك وجزاك الله كل خير ولكن الملف لا يفتح ويظهر كما بالصورة

بارك الله فيك وزادك الله من فضله -معادلات فوق الممتازة

بارك الله فيك أستاذ بن علية معادلات ممتازة

تفضل SEER.xlsx

ابداع أستاذ بن علية معادلة رائعة جعله الله في ميزان حسناتك وزادك الله من فضله

من فضلك ضع النتائج المطلوبة على الملف

تفضل New_Microsoft_Excel_Worksheet.xlsx

بارك الله فيك أستاذ هشام ولك بمثل ما دعوت لى وزيادة-والحمد لله ان تم المطلوب ,والحمد لله الذى بنعمته تتم الصالحات يشير رقم 3 بالمعادلة ان يجلب النسبة وهى ترتيبها في المعادلة كما ترى ثالث بند-فلو لاحظت المعادلة جيدا لوجدت ان داخل قوس اول بند هو الرقم ثم بعد ذلك رقم الشريحة وهو الموجود داخل علامة التنصيص "1"ثم بعد ذلك النسبة 0.1 فبذلك تكون النسبى هي ثالث بند وهى المطلوب جلبها فاذا كتبت مثلا المعادلة بدون الشريحة الموجودة بعد المبلغ بين علامة التنصيص-بمعنى تكتب المبلغ ثم النسبة بعده ففي هذه الحالة يكون الرقم في نهاية المعادلة 2 وليس 3 لأن النسبة موجودة ثانى بند وهو المطلوب اثباته بارك الله فيك وأتمنى وضوح الأمر الأن

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

أحسنت أستاذ مجدى بارك الله فيك

بارك الله فيك أستاذ سليم كود ممتاز

وعليكم السلام -فقط عليك تغيير رقم الوظيفة يمكنك استخدام هذه المعادلة للوظيفة =IFERROR(VLOOKUP(D2,{12,"1","سكرتير";13,"2","طابع";14,"3","مراسل";15,"4","كاتب";16,"5","مدقق"},3),"") وهذه المعادلة الأخرى لحالة الوظيفة =IFERROR(VLOOKUP(D2,{12,"1","مشغولة";13,"2","مشغولة";14,"3","مشغولة";15,"4","شاغرة";16,"5","شاغرة"},3),"") تغيير مسمى الوظيفة.xlsx

بارك الله فيك استاذنا الكريم بالتأكيد معادلة رائعة بارك الله فيك وجزاك الله كل خير

بارك الله فيك اخى الكريم هذه المعادلة VLOOKUP ببساطة تصمم لحساب النتائج التى تتضمن مجموعة شرائح كما اشرت فى طلبك ومعطياتك =IFERROR(VLOOKUP(E2,{10000,"1",0.1;20000,"2",0.15;45000,"3",0.2;60000,"4",0.25},3),"") فأول جزء من المعادلة E2 وهى خلية الخاصة بصافى الربح الذى بناءا عليه يتم جلب النسبة ,وبما ان لديك عدة نسب تختلف من مبلغ لأخر فبناءا عليه كما ترى بالمعادلة فى حالة ان المبلغ يكون 10000 فلابد ان تكون النسبة 10% وهذه هى الشريحة الأولى وهكذا بالنسبة لباقى المبالغ كما بالمعادلة الى ان تنتهى فى اخر الشرائح وهى 60000 فتكون النسبة هى 25%

تفضل لك ما طلبت دالة if الشرطية.xlsx

عمل رائع استاذ محمد بارك الله فيك ولإثراء الموضوع هذا حل اخر بدون اكواد ساقية.xls

جزاك الله كل خير استاذنا الكريم

أحسنت استاذى الكريم بارك الله فيك