نسخ البيانات من ورقه الى ورقه اخرى حسب الملف المرفق مع الاحتفاظ بالبيانات
وعند الضغط على ترحيل البيانات يفتح صفحه جديده على أكثر من صفحه حتى لو 50 صفحة ... ارفق لكم ملف
انتبه من فضلك ... مشاركة مكررة تــــم بالفعل حذف المشاركة الأخرى
Attention please... Duplicate post The other post has already been deleted
test.xlsm
اخوانى الاكرام ارجو التوضيح طريقة ترحيل بيانات من شيت اكسيل الى شيت اخر بشرطين
بطريقه المعادلات لضعف خبرتي بالماكرو
جعله الله فى ميزان حسناتكم
انتبه من فضلك... مشاركة مكررة , تـــم بالفعل حذف المشاركة الأخرى
شهري.xlsm
أخى الحبيب المتألق دائما // حسين مأمون
والمعطاء بلا حدود
لاأملك سوى دعائى لكم بصلاح الاحوال
والله ياأخى لن أرى إخلاصا سوى إخلاصكم
فأنتم نعم الاخ ونعم الصديق .... جزاكم الله خيرا
عما تقدمه ابتغاء مرضاة الله ... ربنا يبارك فيكم
وفى أولادكم واجعلهم ياربنا قرة عين لك ورزقكم الله تعالى ببرهم
تحياتى لجميع أفراد الاسرة الكريمة منتدى اوفسنا
الاخ العزيز حسين مأمون اريد ان اثقل عليك قليل
اريد ان اضع في الخلايا معادلات بدلا من كود فيجول بيسك في التقرير 1والتقرير2
لاني اريد ان اعدل بعض التغييرات في التقرير 1 والتقرير 2
السلام عليكم ورحمه الله وبركاته
اصدقائي وزملائي في منتدي اوفسنا
ارفق لكم ملف
يوجد به تقريرين
التقرير الاول معادلة يظهر كشف تفصيلي مع الاسم بتاريخ محدد (بتحديد التاريخ )
التقرير الثاني كشف تفصيلي بدون اسم بتاريخ محدد (بتحديد التاريخ )
وجعل الله في ميزان حسناتكم
وتقبل منا ومنكم صيام شهر رمضان المبارك
test.xlsm
اريد تعديل على الكود يا اخواني
عند الضغط عليها تنتقل الى الورقه حسب تاريخ اليوم 12-4 GOTO DATE يوجد في المرفق
يعني لو تاريخ 13-4 اضغط عليها تنتقل الى ورقه رقم13
وضعت هذا الكود وأريد التعديل عليه
Sub Bevel1_Click()
Sheets("12").Select
Range("I6").Select
End Sub
عنوان مخالف تم تعديل عنوان المشاركة ليعبر عن طلبك ... من فضلك انتبه لذلك
وجعل الله في ميزان حسناتكم
وكل عاام وانتم بالف خير
كشف.xlsm