mhrrd

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

كيف تتم اضافة الاكواد في المكتية

اريد تطويع هذا الكود السريع في ترحيل الناجحين والراسبين حزاكم الله خيرا

اخي الاسناذ الخالدي شكرا لك تظهر رساله مفادها ( هذا الاسم موجود فاذا تم التغيير في البيانات واردنا نفس الشهر لانستطيع نريد المسح اولا ثم الترحيل *** ماهو التغيير اذا اردنا نقل عدد اكثر من الاعمدة ؟ ***ماذا نفعل اذا اردنا ترحيل اعمدة معينه الى اعمدة معينة اخرى؟ بارك الله لك

جزاك الله ألف ألف خبر

نعم اخي القاضل عايز الفرز تصاعدي وتنازلي لاي عمود ممن احدده

اخي القاضل استاذ طارق المفروض ان الملف بعمل فرزتصاعدي بالضغطة الاولى وفرزتنازلي بالضغطة التانية لك شكري

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

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

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

انا لله وإنا اليه اجعون اللهم اغفر له وارحمه وأدخله فسيح جناتك وألهمكم الصبر والسلوان

أثـــــابكم الله على جهدكم المتواصل وجزاكم الله كل خير

الف الف شكر يابطل جزئية اخيره اذا اخترت 3 صفوف يظهر 4 هل ممكن عدد الصفوف يتساوى مع الخلية I2

هذا هو الملف جزاك الله كل خير نقل بيانات.rar

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

جزاك الله كل خيروبارك لك لو الصف المطاوب نسخه مكون من 115 عمود اين التغيير

اختر العدد 10 لاضافة 10 صفوف ثم بعدها اختر العدد 3 لاضافة 3 صفوف تجد الصفوف ال 10 موجودة ولا نريد ذلك نريد المسح ثم اضافة عدد الصفوف الجديدة

السلام عليكم ورحمة الله هذا كود ممتاز ولكن اريد اضافة المسح قبل نسخ الصفوف ====== استخدم مثلا الكود التالي: Sub KH_Copy() On Error Resume Next Dim Last As Long Dim Count As Integer Count = 1 Count = Sheets("KHBOOR").Range("F9").Value With ActiveSheet Last = .Range("A" & .Rows.Count).End(xlUp).Row .Rows(Last).Copy .Rows(Last + 1).Resize(Count) .Rows(Last + 1).Resize(Count).SpecialCells(xlConstants).ClearContents End With On Error GoTo 0 End Sub

وعدت فأوفيت جزاك الله كل خير وبارك لك استاذ عبد الله المجرب

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

جزاك الله خيرا

جزاك الله الف خير واعانك لفعل الخير

اخي الفاضل عند مسح بيانات من صقحة بيانات اساسية لاينم مسحها او التحديث

هل من الممكن ان يتم النقل بمجرد الانتقال من صفحة بيانات اساسية جزاك الله خيرا

جزاك الله كل خير هذا هو المطلوب وارجو ان تشرح لي هذه الجزئيه For r = 4 To 11 Cells(j, r + 4) = MySh.Cells(i, r) Next j = j + 1