حسونة حسين

وعليكم السلام ورحمه الله وبركاته استخدم هذه المعادله وستفي بالمطلوب ان شاء الله =COUNTIF(D3:D22,"<>"&$D$1)

اخى الكريم انت لم تضع الكود في ملفك

تفضل اخى بدون باسوورد ل VBA برنامج مخازن شامل المحاسب الشاطر جروب.xlsm

ارفق ملف اخى الكريم لنفهم المطلوب جيدا

ما هى المشكله اخى الكريم ارفق ملف بعد وضع الكود به

الحمد لله الذي بنعمته تتم الصالحات

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

اخى الكريم حضرتك كنت كاتب sheet1 وهو اسم الشيت وليس الاسم البرمحى للشيت الاسم البرمجى للشيت في ملفك هو ورقة١ من هنا كان الخطأ لكى تتجنب هذا الخطأ واليك تعديل لعله يعجبك Codes-1.xlsm

احذف القوس الاخير في الجمله ) وستظبط معك الارقام

اخى الكريم ارفق ملف ليرى الاخوة المشكله

اين هو ملفك اخى الكريم

وعليكم السلام ورحمة الله وبركاته تفضل اخى الكريم ليجلب لك مسار سطح المكتب Dim strPath As String strPath = Environ("USERPROFILE") & "\Desktop\"

جداول جوجل لها نظام اخر ممكنك الاطلاع على هذا الرابط للاستفاده

ارفع من فضلك ملف لنرى المشكله

وعليكم السلام ورحمة الله وبركاته جرب هذا التعديل دالة نص-1.xlsm

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

تفضل اخى الكريم Option Explicit Sub Transfer_Non_Adjacent_Columns_Using_Arrays_YasserKhalil_ExcelEgy() 'Code by MR.Yasser Khalil 'From page https://www.excel-egy.com/forum/t3892 Dim WB As Workbook, WS As Worksheet, SH As Worksheet Dim arr As Variant, i As Variant, cr As Variant, j As Long Dim LR As Long Set SH = ThisWorkbook.Worksheets("ترحيل يومية") Set WB = Workbooks.Open(ThisWorkbook.Path & "\" & "العملاء.xlsm") Set WS = WB.Worksheets(SH.Range("D2").Value) arr = SH.Range("A5:F" & SH.Cells(Rows.Count, 1).End(xlUp).Row).Value2 cr = Array(8, 9, 10, 11, 12, 4) LR = WS.Cells(Rows.Count, 11).End(xlUp).Row + 1 For Each i In Array(1, 2, 3, 4, 5, 6) WS.Cells(LR, cr(j)).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i) j = j + 1 Next i WS.Range("K:K").NumberFormat = "[$-1010000]yyyy/mm/dd;@" WB.Close Savechanges:=True End Sub

المفروض اخى عمر ان هذا موضوع اخر غير طلبك في المشاركه الاولى

وعليكم السلام ورحمة الله وبركاته اخى الكريم تفضل هذا الملف طلبك ان شاء الله hide specific sheets.xlsm

اضغط كليك يمين على الخلايا التي تريد تحويل الارقام الى العربية ثم اختر format cells ثم اتبع الخطوات في الصورة

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

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

وفيك بارك اخى الكريم آمين يارب العالمين والحمد لله الذي بنعمته تتم الصالحات

السلام عليكم ورحمة الله وبركاته وبها نبدأ يمكنك استخدام الفلتر لتظهر لك السطور التى تريدها فقط ثم نسخ السطور المطلوبه الى شيت اخر

السلام عليكم ورحمة الله وبركاته تقصد 30 يوم اصليه تكون ٣٠ يوم اصليه ولا ثلاثون يوم اصليه