ترحيل شيت الى شيت

[amjad_ahf]

الاخوة الكرام ارجو التكرم بالمساعدة في ترحيل بيانات شيت ملف حامض الفسفوريك الى عدة ملفات اكسل بأسماء السائقين وكمثال عليه ارفق ملف سائق باسم كشف كشف اكراميات 09-2022.xlsاكراميات

ومشكلة اخرى في ملف حامض الفسفوريك يوجد شيت تعريفات ( السائق مع السيارات التي يقودها ) هل يوجد طريقة للبحث عن السائق في شيت شهر 9-2022 ومن ثم اختيار السيارة التي يقودها

مع فائق الاحترام لكم جميعا

حامض فسفوريك9- 2022.rar

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى  وبركاته

بالنسبة للطلب الثاني ماذا تقصد ( باختيار السيارة التي يقودها ) حاول توضيح طلبك أكثر أو وضع عينة للنتيجة المتوقعة 

بالتوفيق....

تم تعديل نوفمبر 5, 2022 بواسطه Mohamed Hicham

[amjad_ahf]

في خانة تعريفات السائق له رقم وظيفي والرقم الوظيفي مرتبط بسيارة واحدة فقط 

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

بالمختصر احاول عمل رقم وظيفي واحد مرتبط مع اكثر من سيارة عند البحث عنه في خانة السائق

 

حامض فسفوريك9- 2022.xls

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته

تفضل اخي ....في حالة كانت عندك على الجهاز نسخة اوفيس 2016 او ما قبل يمكنك استخدام المعاداة التالية في الخلية ("G14") مع الظغط  على المفاتيح     Ctrl+ Shift+ Enter

مع سحب المعادلة الى الاسفل

=SI(E9="";"";SIERREUR(@Singlecellextract(F9;تعريفات!$B$2:$C$1000;2);""))

 

ثم التوجه الى المطور واضافة هدا الكود في  module

Function SingleCellExtract(Lookupvalue As String, LookupRange As Range, ColumnNumber As Integer)
Dim i As Long
Dim Result As String
For i = 1 To LookupRange.Columns(1).Cells.Count
    If LookupRange.Cells(i, 1) = Lookupvalue Then
    Result = Result & " " & LookupRange.Cells(i, ColumnNumber) & ","
    End If
Next i
SingleCellExtract = Left(Result, Len(Result) - 1)
End Function

 اما في حالة كنت تمتلك نسخة 2019 وما فوق يمكنك استخدام المعادلة التالية في الخلية ("G14") مع الظغط  على المفاتيح   Ctrl+ Shift+ Enter

=JOINDRE.TEXTE(", ";VRAI;SI(F4=تعريفات!$B$2:$B$1000;تعريفات!$C$2:$C$1000;""))

على العموم قم بتحميل الملفات من المرفقات بما انني استخدم اوفيس فرنسي  احاول عدم  اعادة صيغة المعادلات تفاديا للاخطاء .

بالتوفيق

 

فوسفور _VBA.xlsm نسخ حديثة.xlsx

تم تعديل نوفمبر 5, 2022 بواسطه Mohamed Hicham
g

[amjad_ahf]

جاري التحميل جزاك الله كل خير وفي ميزان حسناتك اخ محمد

 

اخ محمد ما في مجال نعمل الطلب الاول

الا وهو ترحيل من حامض الفسفوريك الى اكثر من شيت حسب اسم السائق في ملف كشف الاكراميات

دمتم بخير

ملاحظة : ترحيل فقط الاعمدة المشتركة بين ملف الفسفوريك وملف الاكراميات

حامض فسفوريك9- 2022.xls كشف اكراميات 09-2022.xls