mahmoud hamza

السلام عليكم لدى زر ماكرو لجلب بيانات محدده اريد ادخال header and footer ضمن الماكرو هل يمكن ادخال تذيل رأسى وأفقى فى كود الترحيل هذا هو الكود الذى اريد التعديل عليه Application.ScreenUpdating = False Dim My_rg As Range Dim x%, i%, a(), k%: k = 1 Dim lr%: lr = Sheets("All WaFa").Cells(Rows.Count, 1).End(3).Row Set My_rg = Sheets("All WaFa").Range("a1:AJ" & lr) Sheets("تقرير").Range("b1").CurrentRegion.Resize(500).Clear a = Array(4, 5, 9, 21, 12, 13, 14, 17, 16, 22, 25, 6, 49, 7) For i = 0 To 13 My_rg.Columns(a(i)).SpecialCells(xlCellTypeVisible).Copy _ Sheets("تقرير").Cells(1, k) k = k + 1 Next Erase a Application.ScreenUpdating = True End Sub

😥👋

اى مساااااااااااااااااااااااااااااااااعده 👋

اعزائي فى الله اريد حل لادخال هذه التواريخ فى الفلتر لانى عندما اقوم بعمل فلتر تكون النتائج خاطئه ، ولكم جزيل الشكر

يجب ان تكون بها بيانات ام ملفين فارغين

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

=COUNTA(A2:A9)-COUNTIF(A2:A9,0) تفضل

متشكر يا فندم على الرد السريع .. هل بالإمكان كتابه كود لى ينفذ هذه العمليه بحيث يجلب بيانات عدد لا يقل عن 20 صفحه مثلا معا تحت بعض كده او معادله او شىء ينجز المطلوب .. ولكم جزيل الشكر ووافر التحيه ع الاهتمام

استاذى الكريم هل من الممكن ان نجلب بيانات اكثر من صفحه معا بنفس هذه الطريقه

استاذى الفاضل هل يمكن عمل هذه العمليه لثلاثه ملفات اكسيل حيث اضغط على الزر اللى حضرتك عامله يظهرلي اعمده محدده من الثلاث ملفات .. لو يمكن هذا ارجو هذه المساعده منك وتقبل وافر الاحترام والتقدير

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

تفضل يا استاى العزيز واعتذاراتى الشديدة كريدى.xlsx

عندى ملف اكسيل واريد عند عمل فلتره يقوم بنسخ البيانات المفلتره فى الأعمدة الملونه اصفر ولصقها فى صفحه اخرى بدايه من الصف الثانى لأن الصف الاول سأكتب به عناوين هذا الأعمده. وشكرا لأساتذتى الكبار كريدى.xlsx