tchankich

السلام عليكم إخواني جزاكم الله خيرا على الردود السريعة الملف بالمرفقات للتعديل عليه Mouvement d'article.rar

السلام عليكم ورحمة الله أرجو المساعدة أبحث عن حل إليكم الصورة أريد عمل فيلتر خاص لمجموع الخلايا التي تحتوي على AA22 سواء في اليمين او يسار الجدول الأول والحصول على مجموع AA22 جزاكم الله خيرا

جزاك الله أخي خيرا على الرد الجميل أجريت تعديل ونجح الامر Sub Ajouter_journal() Range(Range("$H$4"), Range("$A$4:$A$10").End(xlDown)).Select Range(Range("$H$4"), Range("$A$4:$A$10").End(xlDown)).Copy If Cells(22, 1) = "" Then Range("$A$22").Select Range("$A$22").PasteSpecial (xlPasteValues) Range("$A$4:$C$10").ClearContents Range("$E$4:$E$10").ClearContents Range("$G$4:$H$10").ClearContents Range("$A$4").Select Else Range("$A$22:$A$65000").End(xlDown).Select Selection.Offset(1, 0).PasteSpecial (xlPasteValues) Range("$A$4:$C$10").ClearContents Range("$E$4:$E$10").ClearContents Range("$G$4:$H$10").ClearContents Range("$A$4").Select End If End Sub

السلام عليكم ورحمة الله حياكم الله إخواني من فضلكم أريد أن تقولون لي ما الخطأ في هذا الكود على الصورة جزاكم الله خيرا مع العلم أنا استعمل إكسل 2010 Sub Ajouter_journal() Range(Range("$H$4"), Range("$A$4:$A$10").End(xlDown)).Select Range(Range("$H$4"), Range("$A$4:$A$10").End(xlDown)).Copy If Cells(22, 1) = "" Then Range("$A$22").Select Range("$A$22").PasteSpecial (xlPasteValues) Range("$A$4:$C$10").ClearContents Range("$E$4:$E$10").ClearContents Range("$G$4:$H$10").ClearContents Range("$A$4").Select Else Range("$A$22:$A$65000").End(xlDown).Offset(1, 0).Select Range("$A$22:$A$65000").End(xlDown).Offset(1, 0).PasteSpecial (xlPasteValues) Range("$A$4:$C$10").ClearContents Range("$E$4:$E$10").ClearContents Range("$G$4:$H$10").ClearContents Range("$A$4").Select End If End Sub

نعم هذا هو المطلوب جزاك الله خيرا اخي PMembers-1

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