لزهر مدلل

أخي الكريم مشكور جدا جدا و أعذرني ظهرت مشكلة في ترحيل عمود التاريخ من بداية التاريخ 02/11/2021 إلى غاية 10/11/2021 حول اليوم إلى الشهر و الشهر إلى اليوم مثلا 02/11/2021 حولها إلى 11/02/2021 حتى في تنسيق الخلية التاريخ مظبوط و القيمة تغيرت أنظر المرفق و معذرة مرة أخرىVente-4.xlsm

السلام عليكم أخي محي الدين ابو البشير مشكور على مجهودك لكن هناك إشكالية أرجو أن يتسع صدركم لي و هي أن يكون الترحيل في "Sheet3" في السطور الفارغة لا أن يمسح البيانات في السطور التي فيها بيانات لآن ورقة vente متغيرة أنظر الملف المرفق مثلا عندي بيانات قديمة حتى السطر 52 الترحيل يجب أن يكون إبتداء من السطر 53 و هكذا بارك الله فيكم إخوتي الكرامVente.xlsm

السلام عليكم أخي حليم ناصر مشكور على الجهد لكن أنا لا أريد ترحيل كل الأعمدة الأعمده المراد ترحيلها هي : A,B,E,F,S و الترحيل يكون على النحو التالي ترحيل العمود A يرحل إلى العمود A في الورقة الأخرى ترحيل العمود B يرحل إلى العمود D في الورقة الأخرى ترحيل العمود E يرحل إلى العمود B في الورقة الأخرى ترحيل العمود F يرحل إلى العمود C في الورقة الأخرى ترحيل العمود S يرحل إلى العمود G في الورقة الأخرى بارك الله فيكم

أخي حليم ناصر إحذف الفلترة في العمود G و H سوف تظهر جميع البيانات على العموم سوف أرفقه من جديد من دون فلترة الخلايا باللون الاخضر هي الشرط الذي يجب ان يتوفر للترحيل مشكور و بارك الله فيكم Vente.xlsx

السلام عليكم أريد ترحيل بيانات من أعمدة متباعدة من ورقة عمل إلى أخرى بشروط و هي الأعمده المراد ترحيلها هي : A,B,E,F,S و الترحيل يكون على النحو التالي A>A B>D E>B F>C S>G و أن تكون القيمة في العمود H هي 2 و العمود G هي من 22 إلى 35 ترحيل البيانات يكون في السطور الفارغة فقط لعدم مسح بانات قديمة عدم تكرار ترحيل البيانات المرحلة مسبقا بناء على العمود A أي إذا وجد القيمة في العمود A موجودة مسبقا فلا يقوم بترحيل السطر. معذرة على الإطالة الملف المرفق به المطلوبVente.xlsx

مشكور أخي الكريم سوف أقوم بالتجربة

أخي الكريم عند إضافة هذا الشرط تخرج رسالة خطأ هي بالفرنسية لأن الأوفيس فرنسي إذا أردت أن أرفقها هذه القديمة =SIERREUR(INDEX(BLF!$B$2:$B$7684;PETITE.VALEUR(SI(BLF!$A$2:$A$7684=$C$7;SI(BLF!$D$2:$D$7684=$F$10;LIGNE($A$2:$A$300)-LIGNE($A$2)+1));LIGNES($C$13:C13)));"") و هذه التي أريدها الإضافة ضاهرة بالاسود =SIERREUR(INDEX(BLF!$B$2:$B$7684;PETITE.VALEUR(SI(BLF!$A$2:$A$7684=$C$7;SI(BLF!$D$2:$D$7684=$F$10;SI(BLF!$F$2:$F$7684="P";LIGNE($A$2:$A$300)-LIGNE($A$2)+1));LIGNES($C$13:C13)));"")

السلام عليكم حدث لي خطأ أثناء إضافة شرط آخر في معادلة الملف في المرفقات بارك الله فيكم Créances.xlsm

بارك الله فيك أخي الكريم

بارك االله فيك أخي الكريم محي الدين ابو البشر هناك مشكلة صغيرة قمت بإستبدال العمود a ب e في الكود فوقع مشكل أرجوا حله Suivi des Créances1.xlsm

أخي Ali Mohamed Ali هل يمكن أن يكون كود بدل معادلة يكون أفضل

السلام عليكم أريد إدراج قيم في خلايا معينة آليا بمجرد إدخال قيمة في العمود A الملف في المرفق Suivi des Créances.xlsx

مشكور أخي الكريم

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

بارك الله فيكما أخواي الكريمين

السلام عليكم أريد تصحيح خطأ في معادلة بحث بحيث أن النتيجة تكون خاطئة إبتداءا من السطر السابع الملف في المرفقات Ordre de Travaux.xlsx

أخي ali mohamed ali و إخوتي الكرام هناك مشكلة عند حذف سطر من الورقة BLF تتغير المعادلة و لا تعمل إلا إذا أضفت سطر و إذا حذفت سطرين يجب إضافة سطرين و هكذا رقم 1000 يتغير كلما حذفت سطر كما في المثال أي المعادلة تعمل إلا إذا كان الرقم 1000 أدخل الملف عند الورقة BLF و أضغط على suprimer =SIERREUR(INDEX(BLF!$D$2:$D$999;PETITE.VALEUR(SI(BLF!$A$2:$A$999=$C$7;SI(BLF!$C$2:$C$999=$D$11;LIGNE($A$2:$A$1000)-LIGNE($A$2)+1));LIGNES($C$13:C13)));"") RECU_05.xlsm

بارك الله فيك أخي الكريم

مشكور أخي إبراهيم هل هذا الكود أضعه في sheet1 أو thisWorkbook

السلام عليكم أريد أن أحذف بيانات في جدول بشرط التاريخ , مثلا أريد حذف البيانات التي تاريخها تجاوز 45 يوما الملف في المرفقاتClasseur1.xlsx

السلام عليكم قمت بتغيير بسيط بنقل الكود إلى ورقة BLF و لكن لم يعمل Private Sub Worksheet_Change(ByVal Target AsRange) Application.ScreenUpdating = False If Target.Column = 5 And Target.Row > 5 Then ÝÑÒÊäÇÒáí End If Application.ScreenUpdating = True End Sub Sub ÝÑÒÊäÇÒáí() Range("A10:F100").Select ActiveWorkbook.ActiveSheet("Créances").Sort.SortFields.Clear ActiveWorkbook.ActiveSheet("Créances").Sort.SortFields.Add Key:=Range("E10:E100"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.ActiveSheet("Créances").Sort .SetRange Range("A9:F100") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A7").Select End Sub

السلام عليكم قمت بتنزيل كود VBA من المنتدى للأخ ali mohamed ali و قمت بتعديله على حسب معطيات الملف الخاص بي بحيث يقوم بترتيب تصاعدي تلقائي في عمود معين عند تغير في أي خلية فيه لكن الخلايا في هذا العمود بها معادلات و قيمتها تتغير على حسب ورقة أخرى و الكود لا يعمل إلا إذا قمت بالتغيير يدويا , لذلك أرجوا تعديله ليعمل مع المعادلات أو يعمل على المتغير في الورقة "BLF" بارك الله فيكم الملف في المرفقات SGC.xlsm

بارك الله فيك أخي ali mohamed ali

السلام عليكم المطلوب هو البحث عن أصغر قيمة معينة بأكثر من شرط الملف في المرفقات RECU.xlsx

بارك الله فيك أخي الكريم