أبو العاصم قام بنشر مايو 22, 2010 الكاتب مشاركة قام بنشر مايو 22, 2010 للرفع رابط هذا التعليق شارك More sharing options...
سالم شباني قام بنشر مايو 22, 2010 مشاركة قام بنشر مايو 22, 2010 السلام عليكم حلول في غاية الإحتراف والدقة جزاكم الله خيرا وزادكم علما نافعا رابط هذا التعليق شارك More sharing options...
امان قام بنشر مايو 23, 2010 مشاركة قام بنشر مايو 23, 2010 السلام عليكم اخي ابو عصام جرب ادخل رقم في الخلية B1 Journal Entery vba 5.rar رابط هذا التعليق شارك More sharing options...
أبو العاصم قام بنشر مايو 23, 2010 الكاتب مشاركة قام بنشر مايو 23, 2010 أخى أمان بارك الله فيك على تعاونك معى ولكنك قمت بحذف عدد من الصفوف وانا احتاج الكود مع وجود هذه الصفوف لأننى أطبع الملف وبه رأس وتذييل والرأس يتغير لكل قيد يومية لذلك تعمدت رفع الملف وبه عدد من الصفوف لأضع به الرأس الخاص لكلك قيد فهل من الممكن تعديل الكود وبارك الله فيك رابط هذا التعليق شارك More sharing options...
أبو العاصم قام بنشر مايو 23, 2010 الكاتب مشاركة قام بنشر مايو 23, 2010 أرجو منك أخى أمان ان تشرح لى كيفية عمل هذا الكود وكتابته وما هو الذى يتغير فى الكود وما هو الثابت ليطبق فى ملف اخر فالملف الذى ارفقته لك كان ملف العمل الخاص بى ولكنه مفرغا من بعض البيانات وعندما قمت بادراج الكود لم يفلح معى فهل من الممكن شرحه رابط هذا التعليق شارك More sharing options...
زياد علي قام بنشر مايو 23, 2010 مشاركة قام بنشر مايو 23, 2010 بسم الله السلام عليكم اخي Abo3asem متأسف بشدة أنك انتظرت حل المشكلة كل هذا الوقت ،،، ولكن أعذرني يا أخي فقد اعتقدت أنك قد هُديت إلى الحل،،، عموماً هذا هو الحل مع تغيير طفيف على كود أستاذي الفاضل طارق وقد تم تطبيقه على ملفكم المرفق ،،، تقبل إعتذاري مرة أخرى ،،، مع مودتي وتقديري Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$10" Then Range("$A$11:$p$10621").AutoFilter Field:=2, Criteria1:=Target.Value End If End Sub Journal Entery vba ZZ.rar رابط هذا التعليق شارك More sharing options...
امان قام بنشر مايو 23, 2010 مشاركة قام بنشر مايو 23, 2010 السلام عليكم ورحمة الله أخي الكريم ابو عاصم قام اخي زيادعلي مشكورا بوضع حل يفي بالغرض تماما وأما بالنسبة لطباعة القيد برأس وتذييل الصفحة فيمكن الاستعاضة عنه بوضع صورة الرأس الذي ترغب باظهاره في ورقة الطباعة في خصائص الطباعة عن طريق اتباع التالي : 1- معاينة قبل الطباعة 2- اعداد الصفحة 3- اختيار رأس وتذييل الصفحة 4- اختيار رأس مخصص ثم اضافة الصورة التي ترغب في المكان الذي تريد سواء كان في يمين الصفحة او في وسطها او في اليسار ثم نفس الطريقة في التذييل رابط هذا التعليق شارك More sharing options...
قصي قام بنشر مايو 23, 2010 مشاركة قام بنشر مايو 23, 2010 ActiveSheet.Range("$A$2:$F$36").AutoFilter Field:=1, Criteria1:="201" لو سمحتم Field1 ومامعنى المعيار 201 وليه 201 رابط هذا التعليق شارك More sharing options...
أبو العاصم قام بنشر مايو 24, 2010 الكاتب مشاركة قام بنشر مايو 24, 2010 اللهم بارك للاستاذ زياد على اللهم بارك للاستاذأمان اللهم بارك لجميع الاخوة الذين أعانونى رابط هذا التعليق شارك More sharing options...
sas07 قام بنشر مايو 26, 2010 مشاركة قام بنشر مايو 26, 2010 مشكور على الموضوع بارك الله فيكم رابط هذا التعليق شارك More sharing options...
أبو العاصم قام بنشر مايو 26, 2010 الكاتب مشاركة قام بنشر مايو 26, 2010 عندى مشكلة أخرى فى التصفية وهى عدم ظهور الصف السفلى الخاص بالإجمالى بعد الفلترة وجربت أفك الخلايا المدمجة ولكن دون جدوى وحذفت الصف ده وعملته من جديد ولكن دون جدوى أرجو المساعدة رابط هذا التعليق شارك More sharing options...
أبو العاصم قام بنشر مايو 26, 2010 الكاتب مشاركة قام بنشر مايو 26, 2010 للرفع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان