التعديل على كود فلوكاب

[أبو قاسم]

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

اساتذتنا الكرام 

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

نموذج.xlsm

[محمد هشام.]

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

بما ان البيانات من على النمودج ثابثة  باستثناء( نوع الطلبية _ والوقت _ و رقم الطلبية) يمكنك محاولة ادراج  ملخص الطلبية مباشرة بدون الاعتماد عليه

جرب هدا الحل ربما يناسبك  

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Exitsub
If Target.Row > 1 And Target.Column < 17 Then
Dim lr As Long, r As Long
Set WS = Sheet1
lr = WS.Range("i" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
With WS.Range("r2:r" & lr)
    .Formula = "=IF(I2<>"""",""في تمام الساعة( ""&CONCATENATE(TEXT(L2,""HH:mm"")&"" ) ""&""تم طلب "")&I2&"" ""&""منطقة (""&A2&"") "" &""وصول""&"" ""&"" ""&I2&"" ""&""الساعة""&"" ( ""&CONCATENATE(TEXT(N2,""HH:mm"")&"")""&"" ""&"" رقم الطلبية ( "")&F2&"") "","""")"
    .Value = .Value
End With
For r = 2 To WS.Cells(Rows.Count, "r").End(xlUp).Row
    If WS.Range("i" & r).Value = "" Then WS.Range("r" & r).Value = ""
Next r
   End If
Exitsub:
End Sub

 

نموذج V1.xlsm

تم تعديل فبراير 20 بواسطه محمد هشام.

[أبو قاسم]

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

[محمد هشام.]

https://streamable.com/812u1n

 ربما عليك التاكد  من اعدادات لغة النظام لديك والتحقق من اظافة اللغة العربية 

حاول مراجعة الرابط التالي :

https://sigma-4pc.com/5175/solve-problem-arabic-language

 

تم تعديل فبراير 20 بواسطه محمد هشام.