ياسر خليل أبو البراء

اخي الحبيب خالد ..نص ساعة فيديو حرام عليك .. وفي الآخر مفيهوش الحل الأمثل للمشكلة ...لازم تلجأ للبرنامج اللي قلت عليه أو الأسهل شوفه هنا في الفيديو ده وادعي لي على فكرة النهاردة طول النهار عشان أحل المشكلة دي فيا ريت محدش ينسانا بالدعاء

الأخ الحبيب مصطفى أبو ملك إليك هذا الفيديو فيه حل للمشكلة بإذن الله

الأخ الغالي ياسر فتحي مشكور على إطرائك الذي لا أستحقه ..فهناك أعلام بالمنتدى إذا قارنا ما نقدمه إلى جانب ما يقدمونه لذهب ما قدمناه هباءً منثوراً .. وبعدين مفيش لايكات في اليوتيوب ليه ...شكلي هبطل أعمل فيديوهات !!!!! فيه لايكات يبقا فيه فيديوهات .. يا إما مش هنزل لكم حاجات

الحمد لله الذي بنعمته تتم الصالحات نورت المنتدى يا أخ سيف النصر وإن شاء الله نشوفك دايماً معانا .. لا تنسان بدعوة بظهر الغيب

نعم أعتقد إذا كانت المعادلات كثيرة خصوصا معادلات الصفيف فإن الملف يكون بطيء

أخي الحبيب محمد الخازمي ... الاخ الحبيب محي الدين مشكور على مروركما العطر .. والحمد لله أنك استفدت من المعلومة رغم بساطتها

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

أخي الحبيب الغالي حماده عمر تسلم على مرورك العطر وتشجيعك .. تقبل تحياتي

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. إليكم حيلة بسيطة لتتعلم كيف تخفي محتويات بعض الخلايا التي تريد إخفائها .. أترككم مع الفيديو عله ينال إعجابكم (وشوفوا الصوت اتظبط كدا ولا لا ... ومتنسوش اللايكات !!) تقبلوا تحياتي أخوكم أبو البراء

والله لو عندي فكرة مش هبخل عليك بيها ..كل الفكرة إني مفهمش في لغة الدائن والمدين والكلام ده ..صعب عليا شوية .. لو تطلب طلبك بعيد عن المسميات ممكن أحاول أفهم المطلوب .. ويا أخي يرجى الرد في موضوعك .. فضلاً لا أمراً ..حتى تكون المواضيع منظمة ومرتبة

أو يمكنك استخدام صندوق الإدخال Sub AutoFilterMe() Dim X As String X = InputBox("أدخل جزء من النص المراد البحث عنه", "إدخال") ActiveSheet.Range("$A$7:$N$7").AutoFilter Field:=3, Criteria1:="=" & "*" & X & "*" End Sub

أخي الحبيب الموضوع ممكن أن تبسطه في الخلية K1 أدخل جزء من النص المراد البحث عنه ثم اضغط زر الأمر ليقوم بتنفيذ هذا السطر .. Sub AutoFilterMe() ActiveSheet.Range("$A$7:$N$7").AutoFilter Field:=3, Criteria1:="=" & "*" & Range("K1").Value & "*" End Sub ALL ITEM.rar

محرر الأكواد مغلق بكلمة سر .. ورغم أني أستطيع كسره إلا أني لن أفعل .. لأنه يرجى مراعاة إرفاق الملفات بدون كلمة سر ..

أخي الفاضل أهلا بك في المنتدى بين إخوانك .. طالما أنه هناك أكواد فلابد أن يكون امتداد الملف إما Xls أو Xlsm أو Xlsb ... أما الامتداد xlsx فلا يجوز التعامل معه في الأكواد لأنه لن يحتفظ بالأكواد بعد إغلاق الملف في حالة اختيار Yes أثناء الحفظ .. الطلب الآخر ..لما تريد ظهور المربع الحواري الخاص بعملية الفلترة ..يمكنك من خلال الكود وضع الأسطر المناسبة التي تمكنك من عملية الفلترة بناءً على أية شروط بدون ظهور المربع الحواري ..

أنا جربته وشغال ومفيش أي مشكلة ..

الأخ الحبيب صلاح الأخ الحبيب زيزو العجوز مشكور على مرروكما العطر..تقبلا تحياتي

شوف هذا الفيديو إذا صعب عليك الأمر ارفق ملف للعمل عليه

السلام عليكم أخي الحبيب محمد الريفي ..شرح رائع بسم الله ما شاء الله .. ألف مبروك القناة الجديدة .. وفي انتظار المزيد ممكن أعرف برنامج ايه اللي بتستخدمه في تسجيل الشرح لأن الصوت ممتاز فيه بصراحة ..!! ولا يمكن يكون المشكلة عندي في الهدفون ..!! عايز أجرب البرنامج اللي إنت استخدمته ..يا ريت لو معاك رابط للبرنامج أكون لك مشكور

يرجى الإطلاع أولا على هذا الرابط http://www.officena.net/ib/index.php?showtopic=60147 والحدق يفهم !! جرب الكود بهذا الشكل Sub MySearsh() Dim Searsh As String Dim FirstValue As String Dim NextValue As String Searsh = Application.InputBox(prompt:="Veuillez saisir une valeur", Title:="Microsoft Excel", Type:=2) For Each sh In Worksheets With sh If .Columns("C:C").Find(What:=Searsh, After:=ActiveCell) Is Nothing Then GoTo 1 .Activate With .Columns("C:C").Find(What:=Searsh, After:=ActiveCell) .Activate FirstValue = .Address End With Do If .Columns("C:C").FindNext(After:=ActiveCell) Is Nothing Then GoTo 1 If MsgBox("Rechercher un autre résultat", vbYesNo, "Microsoft Excel") = vbNo Then Exit Sub With .Columns("C:C").FindNext(After:=ActiveCell) .Activate NextValue = .Address End With Loop Until FirstValue = NextValue End With 1 Next sh End Sub

الأخ الفاضل مهند إليك الكود التالي .. يراعى أخذ مسافة بين كلمة مجموع والرقم الذي يليه سواء كان 1 أو 2 لاعتماد الكود على هذا النص في عملية التجميع الكود يوضع في موديول Sub SumAll() Dim Cell As Range Dim X As Double Dim LastColumn As Long LastColumn = Cells(52, Columns.Count).End(xlToLeft).Column + 1 Application.ScreenUpdating = False Range("D6:D8").ClearContents For Each Cell In Range(Cells(52, 11), Cells(52, LastColumn)) If Cell.Value = "مجموع 1" Then X = Cell.Offset(, 1): Range("D6") = Range("D6").Value + X If Cell.Value = "مجموع 2" Then X = Cell.Offset(, 1): Range("D8") = Range("D8").Value + X Next Cell Application.ScreenUpdating = True End Sub ثم يوضع الكود التالي في حدث ورقة العمل Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub SumAll End Sub تقبل تحياتي Sum Totals For All Tables.rar

جرب الكود بهذا الشكل لعله يكون المطلوب Sub trans() lastrow = Range("A10000").End(xlUp).Row + 1 Range("A3:C3").Copy Cells(lastrow, 1).PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub

الأخ الحبيب ياسرفتحي الأخ الحبيب خالد الشاعر صاحب الفضل بعد الله عزوجل في هذا الموضوع بارك الله فيكما ..وجزاكما الله كل خير .. وأعتقد إن مفيش اختلاف كبير بين الفيديو اللي قام الأخ خالد بإدراجه في موضوعه وبين الفيديو الخاص بي ..تقريبا نفس المنطق ..مفيش غير ملف Office Icons Gallery اللي أنا أضفته تقبلوا تحياتي

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

ملف جميل بارك الله فيك ومشكور على مشاركة هذه الرائعة