ياسر خليل أبو البراء

جدو الحبيب شغال مع أي ملف ..بس متنساش تحدد هوية الضحية جرب الملف التالي ..ملف صورة بامتداد JPG ..أنا جربته وشغال Kill JPG.rar

بسم الله ما شاء الله بارك الله فيك أخي وحبيبي سليم تسلم على الملف الرائع ..بارك الله فيك

أخي وحبيبي في الله أبو عيد الغائب عننا مشكور على مرورك الطيب .. وجزاك الله كل خير

جرب الكود التالي .. Sub Tarhil() Dim WSJan As Worksheet, WSFeb As Worksheet Dim LR As Long Dim MyRange As Range Set WSJan = Sheets("يناير"): Set WSFeb = Sheets("فبراير") LR = WSJan.Cells(Rows.Count, 2).End(xlUp).Row Application.ScreenUpdating = False 'النطاق الأول WSJan.Range("A3:M" & LR).Copy WSFeb.Range("A3").PasteSpecial xlPasteValues 'النطاق الثاني WSJan.Range("S3:W" & LR).Copy WSFeb.Range("S3").PasteSpecial xlPasteValues 'النطاق الثالث WSJan.Range("Y3:AD" & LR).Copy WSFeb.Range("Y3").PasteSpecial xlPasteValues 'النطاق الرابع WSJan.Range("AH3:AH" & LR).Copy WSFeb.Range("AH3").PasteSpecial xlPasteValues Application.ScreenUpdating = True End Sub

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

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

الأخ الفاضل أكرم بعد دخول محرر الأكواد Alt + F11 ستجد الكود Sub KillSpecificFile() 'اكتب اسم الملف المراد حذفه بالامتداد KillProperly (ThisWorkbook.Path & "/FileToBeKilled.xlsx") End Sub اسم الملف FileToBeKilled استبدله باسم الملف الذي تريد حذفه ، ولا تنسى أن يكون اسم الملف مصحوب بالامتداد

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

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

أخي الحبيب ..نصيحة مني .. لكي تجد المساعدة من الأخوة الأعضاء أفضل أن تكون الطلبات واحداً تلو الآخر .. حيث أن كثرة الطلبات تنفر الأعضاء من الموضوع .. فكن ذكياً وابدأ في التعامل مع طلب طلب ، حتى إذا اكتمل الطلب كما تريد بالضبط تنتقل لطلب آخر وهكذا إلى أن يتم الأمر .. تقبل تحياتي

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

ارفق ملفك أخي الفاضل ليسهل على الأخوة الأعضاء مساعدتك

أستاذي الكبير طارق محمود اسمح لي بهذه المشاركة جرب الكود التالي : Sub CopyFilter() Dim rng As Range Dim rng2 As Range Dim WS As Worksheet, SH As Worksheet Set WS = Sheets("الارشف"): Set SH = Sheets("كشف حساب") WS.Range("C4:O" & WS.Cells(Rows.Count, 5).End(xlUp).Row).AutoFilter Field:=4, Criteria1:=SH.Range("F3") With WS.AutoFilter.Range On Error Resume Next Set rng2 = .Offset(1, 0).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible) On Error GoTo 0 End With If rng2 Is Nothing Then MsgBox "لا يوجد بيات للنسخ" Else SH.Range("C6:N10000").Clear Set rng = WS.AutoFilter.Range rng.Offset(1, 0).Resize(rng.Rows.Count - 1).Copy Destination:=SH.Range("C6") End If WS.ShowAllData End Sub

الحمد لله أخي الكريم أن تم حل المشكلة يمكنك تحديد المشاركة رقم 2 كأفضل إجابة ، حتى تظهر للأعضاء أن الموضوع مجاب ..

الأخ الغالي محمود ضع المعادلة التالية في الخلية F3 =IF(E3="","",MONTH(E3)) ثم اسحب المعادلة نزولاً .. سيتم تلافي المشكلة إن شاء الله بالنسبة لسبب المشكلة أن الخلية الفارغة يقرأها الإكسيل إذا تم تنسيق الخلية كتاريخ على انها 0/1/1900 .. ولذلك تعمل المعادلة على ذلك ..

الأخ الحبيب أبا الحسن والحسين إليك الملفين على رابط واحد لموقع رفع .. بس مش عارف هتنزلهم إزاي إذا كان التنزيل متوقف لديك http://up.top4top.net/downloadf-top4top_60ebf5f88c1-rar.html

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

أخي الفاضل جرب الملف التالي ..تم الاستغناء عن الدالة واستخدام الكود ليؤدي نفس الغرض .. يمكن التعديل في الكود ليشمل نطاق أكبر Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("B2")) Is Nothing Then Target.Offset(, 1) = Target: Target.Offset(, 2) = Target: Target.Offset(, 3) = Target End If If Not Intersect(Target, Range("C2")) Is Nothing Then Target.Offset(, 1) = Target: Target.Offset(, 2) = Target End If If Not Intersect(Target, Range("D2")) Is Nothing Then Target.Offset(, 1) = Target End If End Sub Worksheet_Change Instead Of REPT Function.rar

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

بسم الله ما شاء الله يا مختار يا مبدع هو دا الكلام ..عايزين كل يوم من ده لا تحرمنا من إبداعاتك المميزة تقبل تحياتي

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. أقدم لكم اليوم (الملف القاتل .. Killer File) .. حلو العنوان وجذاب ، بيفكرني بالحوت القاتل .. Killer Whale الآن أصبح بمقدورك استئجار ملف للتخلص من ملف آخر .. الملف القاتل سيقتل الضحية في هدوووووووووووء وبدون إزعاج ، لأنه سيستخدم الكود الصامت .. معنا اليوم مصنف يحوي كود ، يمكنك من خلال الكود كتابة اسم الملف الضحية (الملف المراد حذفه) ، ولا تنسى أن تحدد هوية الضحية من خلال كتابة الامتداد أيضاً ..حتى تساعد الملف القاتل على إنجاز المهمة بشكل صحيح .. في الملف المرفق : الملف القاتل اسمه Killer File ، والملف الضحية اسمه FileToBeKilled وأترككم الآن بعد فك الضغط مشاهدة حادثة القتل العمد .. كان معكم مصمم الملف القاتل أبو البراء (وربنا يكفينا شر القتل) Killer File.rar

بارك الله أخي محمود على الكود ولكن على رأي المثل خير الأكواد ما قل وحل ..

قم بالإطلاع على التنسيق الشرطي من التبويب Home

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

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