حسونة حسين

السلام عليكم ورحمه الله وبركاته موضوع مكرر تم غلق الموضوع

وعليكم السلام ورحمه الله وبركاته التغيير من الى غير واضح لذلك عليك بفعل هذا بيدك هذه الصورة بها الصفحات التي بها الاماكن التي يتم التغيير فيها ما تريد وكل صفحه تفتحها تجد اماكن التغيير ملونة باللون الاحمر الصفحات التى لها لون هي التي يتم التعديل فيها فقط جموعي للاستشارة 2019.zip

اخى @محمود الطحاوي جرب هذ التعديل متابعة8.xlsm

بارك الله فيك أخي @أبوأحـمـد

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

تفضل اخي جرب هذا التعديل الفولدر المسمي صور الموظفين لابد ان يكون موجود بجوار هذا الملف ادخال بيانات اطفال الروضة حضانة.xlsm

وعليكم السلام ورحمة الله وبركاته جرب هذا التعديل اخي @mohamed.youssef جرب هذا التعديل اخى @mohamedyousef ويرجي اخي عدم تكرار المواضيع تم حذف جميع المواضيع المكرره اخي ان استبطأت الرد من اخوتك يكفي ان تكتب مشاركه في نفس الموضوع مثلا للرفع او توضح شيئا ممكن ان يكون غامض تم تعديل فورم ١ ١- تم اضافه كومبوكس تختار منه اضافة او صرف او ارتجاع ٢- تم حذف التيكست بوكس الخاصه بتسجيل الصرف والارتجاع وزر الامر الخاص بهم والابقاء على التيكست بوكس الخاص ب الاضافه ٣- ووضع زر لتسجيل كل الحركات سواء كان اضافه او صرف او ارتجاع كل ما عليك ان تختار من الكومبوكس ما تريد سواء اضافة او صرف او ارتجاع والضغط علي زر تسجيل الكل واخبرنى بالنتائج هل صحيحه ام لا شكلي كده طولت عليك تفضل الملف في المرفقات تعديل بسيط.xlsm

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

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

قم بحذف جميع السطور من بدايه السطر ١٠ الي نهايه الشيت لان بها خلايا مدمجه مثل الصورة

وعليكم السلام ورحمه الله وبركاته تفضل اخي ياسر @yasse.w.2010 تعديل بسيط على كودك وتم اضافه شرط ان لم يكن يوجد صفحه بالاسم الذي تريد ان لا يعطى خطأ ويفتح الملف التالي Sub information() Dim wb As Workbook, WS As Worksheet, lr1 As Integer, lr2 As Integer Dim fil As Variant, dat As Long Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("Temp") Application.ScreenUpdating = False ''' غلق اهتزاز الشاشه Application.DisplayAlerts = False ''' غلق اي رساله تظهر مثل الحفظ الخ lr1 = sh.Cells(Rows.Count, 1).End(xlUp).Row ''' ار صف فيه بيانات في العامود الاول sh.Range("A10:k" & lr1 + 1).ClearContents '''مسح البيانات في هذا النطاق INF = ThisWorkbook.Path '''مسار الملف fil = Dir(INF & "\*.xl??") ''' مسار الملف في اي مكان Do While fil <> "" ''' المرور على كل الملفات If fil <> "DATA.xlsm" Then ''' اسم الملف الذي لا يتم جلب البيانات منه Set wb = Workbooks.Open(INF & "\" & fil) ''' فتح الملففات من المسار lr1 = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1 ''' تحديد مكان نسخ الخلايا If Not IsError(Evaluate("ISREF('[" & wb.Name & "]" & "reservation" & "'!A1)")) Then Set WS = wb.Worksheets("reservation") lr2 = WS.Cells(Rows.Count, 2).End(xlUp).Row ''' تحديد عامود اخر خليه بها بيانات ليتم نسخها WS.Range("A8:k" & lr2).Copy '''نسخ البيانات من الملف الى ملف اخر sh.Range("a" & lr1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False dep = Left(wb.Name, Application.Search(".", wb.Name) - 1) ''' تحديد اسم اسم الملف و الغاء الامتداد الخاص بالملف sh.Range("h" & lr1 & ":h" & lr1 + lr2 - 8) = dep ''' مكان اسم الملف End If wb.Close ''' غلق الملف End If fil = Dir ''' تكرار الملفات Loop Application.DisplayAlerts = True ''' فتج اهتزاز الشاشه Application.ScreenUpdating = True ''' فنح رسائل الحفظ End Sub

السلام عليكم ورحمه الله وبركاته تفضل اخى Private Sub CommandButton1_Click() Dim X X = Application.Match(TextBox1, Sheet1.Columns(3), 0) If IsError(X) Then MsgBox "الكود غير موجود" End If End Sub

ربنا يبارك فيك استاذ @محمدي عبد السميعويحفظك يارب العالمين ويديم عليك الصحه وفيك بارك اخى محمد @spyhearts

السلام عليكم وبها نبدأ اي موضوع مرحبا بك في اول مشاركه لك ارفق ملف واشرح المطلوب جيدا حتى تجد حلا لمشكلتك

يمكنك الاستفاده من هذا الموضوع

وعليكم السلام ورحمة الله وبركاته بارك الله فيك اخى @ابو عبد الرحمن. وجعله الله في ميزان حسناتك يوم القيامة

جزاكم مثله استاذ @أ / محمد صالح عمل ممتاذ بارك الله فيك وفيك بارك اخي @Ali Mohamed Ali جزاكم الله خيرا ابو يوسف @محمد حسن المحمد على دعاؤك الطيب

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

بسم الله الرحمن الرحيم السلام عليكم ورحمه الله وبركاته اساتذتي واخوتى هذا الملف به فهرس لجميع المنتدي ليسهل البحث للاعضاء يوجد فورم يمكنك البحث بها كما يمكنكم استخدام الفلتر العادي وبمجرد الضغط على اي نتيجه من نتائج البحث يتم فتح صفحتها في المنتدي ولا انسي فضل استاذي الكبير ياسر خليل على المساعده في عمل الملف تم تحديث الملف يوم الخميس الموافق 10 - 04 - 2025 فهرس منتدي الاكسيل.xlsb

اخي @الموسطي هذا الطلب غير طلبك في المشاركه الاولي بهذا الموضوع يرجي فتح موضوع جديد بالطلب الجديد

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

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

عدل هذا السطر If .AutoFilterMode Then .ShowAllData End If الى If .AutoFilterMode Then On Error Resume Next .ShowAllData On Error GoTo 0 End If والافضل من هذا من الواضح ان الاوفيس الخاص بك ٢٠٠٧ قم بتغيير الاوفيس من ٢٠٠٧ الى اوفيس اعلى وليكن ٢٠١٠ مش عايز اقولك ٢٠٢١ لان الكود يعمل عندى بدون مشاكل على اوفيس٢٠١٠

ازل علامه الصح

وعليكم السلام ورحمة الله وبركاته قمت بالتجربه والكود ليس به مشكله عندى ممكن احد الاعضاء يجرب الملف عنده ويوافينا بالنتيجه