حسونة حسين

السلام عليكم ورحمة الله وبركاته وبها نبدأ اضغط على (لا) ستظهر نافذه مثل هذه اختر الامتداد xlsm او xlsb

وعليكم السلام ورحمة الله وبركاته اخى ارفق ملفك

اين يتم لصق البيانات اخى هانى؟

وعليكم السلام ورحمه الله وبركاته ضع هذا السطر في ثانى سطر في اليوزرفورم Public Sh As Worksheet ضع هذه الاسطر في السطر الثالث او اي مكان اخر كما تشاء Private Sub OptionButton1_Click() Set Sh = ThisWorkbook.Worksheets(OptionButton1.Caption) End Sub Private Sub OptionButton2_Click() Set Sh = ThisWorkbook.Worksheets(OptionButton2.Caption) End Sub Private Sub OptionButton3_Click() Set Sh = ThisWorkbook.Worksheets(OptionButton3.Caption) End Sub قم باستبدال كلمه Sheet1 بكلمة Sh في جميع اكواد اليوزر فورم

شغل الكود اخى هاني سوف يجلب البيانات في العامود g والعامود h بدلا من المعادله الكود ليس له علاقه باي اكواد اخري

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

وعليكم السلام ورحمه الله وبركاته تفضل اخى @هانى محمد Option Explicit Sub Test() Dim WS As Worksheet, SH As Worksheet, Lr As Long, i As Long, A, B, C, D, E As Long, WF As Object Set WS = ThisWorkbook.Worksheets("Setting") Set SH = ThisWorkbook.Worksheets("Main") Lr = SH.Cells(Rows.Count, 1).End(xlUp).Row ReDim arr(3 To Lr, 1 To 2) For i = 3 To Lr A = Application.Match(SH.Range("B" & i), WS.Columns("a"), 0) If Not IsError(A) Then B = Application.Match(SH.Range("C" & i), WS.Columns("BB"), 0) If Not IsError(B) Then C = Application.Match(SH.Range("F" & i), WS.Rows(1), 0) If Not IsError(C) Then If SH.Range("F" & i) = "Marsa Alam" Or SH.Range("F" & i) = "Cairo" Then E = 8 Else E = 9 End If D = Application.Match(SH.Range("e" & i), WS.Range(WS.Cells(2, C), WS.Cells(2, C + E)), 0) - 1 If Not IsError(D) Then arr(i, 1) = WS.Cells(A, C + D) arr(i, 2) = WS.Cells(A, C + D + 1) End If End If End If End If Next i SH.Range("G3").Resize(UBound(arr, 1) - 2, UBound(arr, 2)).Value2 = arr End Sub

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف هذا الموضوع مخالف لقوانين المنتدي ×××××××× موضوع مكرر ×××××××× يغلق ××××××××

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

السلام عليكم وبها نبدأ تفضل كود التعديل Private Sub CommandButton4_Click() Dim SH As Worksheet, X, I As Long Set SH = ThisWorkbook.Worksheets("كي جي1") If TextBox1.Value = "" Then MsgBox "من فضلك ادخل الاسم الذي تريد البحث عنه يا عم سعد", vbCritical, "تنبيه يا عم سعد": Exit Sub X = Application.Match(Val(TextBox1.Value), SH.Columns("C"), 0) If Not IsError(X) Then For I = 1 To 10 SH.Cells(X, I + 2).Value = Controls("TextBox" & I).Value Next I SH.Range("M" & X).Value = openpic Else MsgBox "الاسم غير موجود" End If End Sub

السلام عليكم وبها نبدأ ارفق ملف اخى @UNFOOAAN

جزاكم الله خيرا اخى ابو يوسف @محمد حسن المحمد جزاكم الله خيرا اخي @محمد يوسف ابو يوسف جزاكم الله خيرا علي التنبيه وهذا نص تقرير اخى ابو يوسف محمد حسن المحمد جزاه الله خيرا السلام عليكم ورحمة الله وبركاته إخوتي أساتذتي الكرام: تحية طيبة وبعد أرى أن هذا الموضوع وإن كان في ظاهره يخص سؤال أو أكثر في الإكسل،إلا أنه في حقيقة الأمر يفتح باباً واسعاً لما لا يرضي الله وهو ما يخالف برأيي منهجنا كمسلمين فقد ثبت عن النبي ﷺ أنه قال: من اقتبس شعبة من النجوم؛ فقد اقتبس شعبة من السحر، زاد ما زاد فتعلم التنجيم لمعرفة الحوادث، ودعوى علم الغيب هذا منكر عظيم وإنما هي كما قال الله -جل وعلا- زينةٌ للسماء، ورجوم للشياطين، وعلامات يهتدى بها، فمن تعلمها لمعرفة الطرق، وأوقات الحراثة، وأشباه ذلك مما هو معروف؛ فهذا لا بأس به، أما أن يتعلمها لاعتقاد أنه بهذا يعلم الغيب، أو لأنها هي المحدثة للحوادث، فهذا كله خلاف منهجنا وديننا والواجب على المؤمن أن يتقيد بالأمر الشرعي، وأن يحذر ما نهى الله عنه، والله يقول: قُل لَّا يَعْلَمُ مَن فِي السَّمَاوَاتِ وَالْأَرْضِ الْغَيْبَ إِلَّا اللَّهُ فالغيب عنده وهو الذي يعلمه -جل وعلا- وليس عند المنجمين والسحرة والكهنة، ونحو ذلك ممن يدعون علم الغيب. جزاكم الله خيرًا.

الاوفيس الذي قمت بتنصيبه ٦٤ بت قم بحذفه وتنصيب اوفيس ٣٢ بت ليتوافق مع ملفك

استبدل المعادله في العامود G بهذه المعادله =IF(H5="";E5;0)+F5+D5

وعليكم السلام ورحمة الله وبركاته تم حل مشكله التاريخ في هذا الرابط

وعليكم السلام ورحمة الله وبركاته هذه ملفات addin قد قمت بتفعيلها في جهازك

السلام عليكم ورحمه الله وبركاته وبها نبدأ الملف ليس به اي بيانات وهو ايضا ليس بملف اوفيس حاول تعمل ريكوفر باي برنامج ريكفر لعل وعسي تجد نسخه سليمة هذا رابط برنامج Active Partition Recovery Professional 15.0.0 Portable لعله يفيدك ان شاء الله

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

تفضل اخي مثال للتوضيح.xlsb

اخي @أبو أحمد الاجابه التي قدمها لك @أ / محمد صالح لو ركزت فيها ستجد انها تفي بطلبك تماما الاستاذ محمد كاتب لك ActiveSheet.Unprotect "password" Range("C3:E3").Merge 'Selection.Merge ActiveSheet.Protect "password" كل ما عليك ان تجعله كالتالي ActiveSheet.Unprotect "password" Selection.Merge ActiveSheet.Protect "password" وتحدد الخلايا المراد دمجها ثم تعمل تشغيل للكود وسوف يتم دمج الخلايا بلا عناء ولا تعب

وعليكم السلام ورحمة الله وبركاته موضوع مكرر موجود في قسم الوورد Word

وعليكم السلام ورحمه الله وبركاته جرب هذا التعديل 1- فورم واحد للبحث عن جميع الاذون سواء اضافة او صرف او ارتجاع 2- فورم واحد للتسجيل جميع الاذون سواء اضافة او صرف او ارتجاع 3-تم الاستغناء عن فورم الاكواد 900.xlsm

حول الجدول الي نطاق عادى وسوف يعمل الكود بلا مشاكل

النسبه ٢٠ % من اجمالي التوريد =IF(V1<AD1;V1*0.2;IF(V1>=AD2;V1*0.25;IF(V1>=AD3;V1*0.27)))-V2 ام من ال ٣٤٥٠٠ =IF(V1<AD1;AD1*0.2;IF(V1>=AD2;AD2*0.25;IF(V1>=AD3;AD3*0.27)))-V2

ما البيان الذي كتبته حتي يعطيك هذا الخطأ