ابوحمزه المصرى

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

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

الحمد لله مَن الله على و تشجعت وتجرأت وتقدمت للتعديل فتوصلت الى هذة النتيجة الطويله التيله ارجوا التدخل السريع للانقاذ واختصار هذا التهور منى اخى الفاضل Sub Tarhil() Dim WS As Worksheet, SH As Worksheet Dim strCrt As String Dim I As Long, X As Long X = 6 Set WS = RawData: Set SH = ClientSheet strCrt = SH.Range("T1").Value Application.ScreenUpdating = False SH.Range("A6:R135").ClearContents With WS .Range("$A$5:$R$4001").AutoFilter Field:=1 .Range("$A$5:$R$4001").AutoFilter Field:=2 .Range("$A$5:$R$4001").AutoFilter Field:=3 .Range("$A$5:$R$4001").AutoFilter Field:=4 .Range("$A$5:$R$4001").AutoFilter Field:=5 .Range("$A$5:$R$4001").AutoFilter Field:=6 .Range("$A$5:$R$4001").AutoFilter Field:=7 .Range("$A$5:$R$4001").AutoFilter Field:=8 .Range("$A$5:$R$4001").AutoFilter Field:=9 .Range("$A$5:$R$4001").AutoFilter Field:=10 .Range("$A$5:$R$4001").AutoFilter Field:=11 .Range("$A$5:$R$4001").AutoFilter Field:=12 .Range("$A$5:$R$4001").AutoFilter Field:=13 .Range("$A$5:$R$4001").AutoFilter Field:=14 .Range("$A$5:$R$4001").AutoFilter Field:=15 .Range("$A$5:$R$4001").AutoFilter Field:=16 .Range("$A$5:$R$4001").AutoFilter Field:=17 .Range("$A$5:$R$4001").AutoFilter Field:=18 For I = 6 To .Cells(4000, 1).End(xlUp).Row If .Cells(I, "S").Value = strCrt Then .Range(.Cells(I, "A"), .Cells(I, "R")).Copy SH.Range("A" & X).PasteSpecial xlPasteValues X = X + 1 End If Next I End With Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

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

بارك الله فيك اخى ابو البراء وجزاك كل خير ممكن شرح الكود مع اضافة الغاء كافة الفلتره عند اختيار عميل فى شيت ClientSheet لأنه لو لغيت الفلتر يدوى بيرجع تانى بعد اختيار العميل فى ClientSheet أما الزووم انا اقصد الزووم الخاص بالشيت ClientSheet فى خلايا S1,S2,S3

شكرا على كلام كالطيب و تشجيعك لى أخى الكريم مختار حسين وربنا يزيدك من العلم النافع

يارب تتعلم السواقة , وتشترى عربية ... هههه مع ان السواقه اسهل من الكود

السلام عليكم وحمة الله وبركاته .. أخوانى اعضاء المنتدى العملاق "أوفيسنا" يوجد كود بالملف المرفق لترحيل البيانات من شيت RawData الى شيت ClientSheet حسب ثلاثة خلايا هم S1,S2,S3 فى شيت ClientSheet وبعد استخدامى للكود يوجد مشكلتان .. الأولى لو عملت فلتر لعميل فى شيت RawData ثم اختيار عميل آخر فى ClientSheet ستجد ان البيانات لا ترحل بالكامل وبعد استخدامى للشيت وزيادة البيانات فعملية الترحيل لا تتم بالكامل فى هذه الحالة فقط فانا مرتبط بمراجعة الفلتره فى RawData قبل اختيار العميل فى ClientSheet .. المشكلة الثانية أن كود الزوم المرتبط بشيت ClientSheet فى خلايا S1,S2,S3 لا يعمل بعد تصميم كود الترحيل فما الحل كشف حساب جديد.rar

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

ما شاء الله زادك الله علماً نافعاً أخى الفاضل ياسر

السلام عليكم وحمة الله وبركاته .. أخى الفاضل ياسر جزاك الله كل خير بعد الاستخدام للكود يوجد مشكلتان .. الأولى لو عملت فلتر لعميل فى RawData بتظهر نفس المشكلة جرب تعمل فلتر لعميل RawData واختر عميل آخر فى ClientSheet ستجد ان البيانات لا ترحل بالكامل وبعد استخدامى للشيت وزيادة البيانات فعملية الترحيل لا تتم بالكامل فى هذه الحالة فقط فانا مرتبط بمراجعة الفلتره فى RawData قبل اختيار العميل فى ClientSheet .. المشكلة الثانية أن كود الزوم المرتبط بشيت ClientSheet فى خلايا اللسته لا يعمل فما الحل

شكرا بارك الله فيك

ثم بعد ذلك ماذا افعل

أخى الحبيب اجعل نسخة من الايصال بالقدر المطلوب وقم بترقيمهم فى اسم الشيت من 1 : 100 وبعد مابتختار القيم لكل ايصال اضغط على الايصال 1 على اسم الشيت ثم shift مع الضغط على الايصال وحفظ كملف PDF وسيوفر هذا الكثير من الوقت معك إما انك تريد حلا برمجيا وذلك الحل فأنا اتركه لمن هو أهل له فى هذا المنتدى الرائع ايصال دفع.rar تحياتى

جزاكم الله كل خير على المرور الطيب اخوانى الكرام لكن اخى سليم ما الطريقة لكى اطبقها على ملفاتى

السلام عليكم إخوانى أعضاء المنتدى الأروع على الإطلاق منتدى ( أوفيسنا ) هل من طريقة لجعل الخلية لا تقبل قيم موجبة أو صفريه أى لا يتم الكتابة بها إلا القيم السالبة ..... المثال شيت فارغ 2010

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

ياخى حرام عليك كفايه ارحمنى هههههههه والله الذى لا اله الا هو لم اقصد ايذائك ولا بشق كلمة لا يشكر الله من لا يشكر الناس

لو ان الموضوع مش مقبول ارجو حذف الموضوع واعتذر إن كان خاننى التعبير

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

شكراً لك أخى وحبيبى ياسر من كل أعماق قلبي على عطائك الدائم

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

آخر طلب من الأخ الكريم ياسر ممكن شرح الكود اسأل الله أن تستقبل السؤال بصدر رحب

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

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