انشاء رقم مرجعي من عدة بيانات

[amenbkr]

السلام عليكم

لدي الجدول للموظفين فيه رقم الموظف وفي الاعلى الشهر والسنة واريد ان اضع الى جانب كل اسم موظف رقم مرجعي يكون مجمع رقم الموظف ثم الشهر والسنة ثم حرفين

مثال "21000710820PS"   حيث رقم 2100071 هو رقم الموظف ثم الشهر 08 ثم السنة 20 ثم حرفين PS  ارجو المساعدة ولكم جزيل الشكر

01.xlsx

[حسين مامون]

استعمل هذا الكود

Sub test()
Dim lr, x
lr = Cells(Rows.Count, 1).End(3).Row
For x = 4 To lr
Cells(x, "d") = Cells(x, "a") & Format(Range("c2"), "mmyyyy") & "PS"
Next x

End Sub

01.xlsm

[amenbkr]

الاخ حسين كيف ان نطيف ذلك على الجدول المرفق شكرا جزيلا  

[حسين مامون]

01.xlsm

[amenbkr]

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

[حسين مامون]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim lr, x
lr = Cells(Rows.Count, 1).End(3).Row
If Not Intersect(Target, Range("a4:a" & lr)) Is Nothing Then
For x = 4 To lr
Cells(x, "d") = Cells(x, "a") & Format(Range("c2"), "mmyyyy") & "PS"
Next x
End If
End Sub

01.xlsm

[amenbkr]

شكرا لك الاخ حسين على الحل ولكن لدي سؤال لو سمجت هل يمكنني ان اقوم بهذا الاجراء ولكن لدي مشكلة في تنسيق التاريخ لا يظهر بشكل صحيحح ارجو المساعدة

[حسين مامون]

الحل في مشاركتي الاخيرة انسخ الكود الى ملفك

[سليم حاصبيا]

استاذ محسن

مرة ثانية و بدون حلقات تكرارية

Option Explicit
Dim lr
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
lr = Cells(Rows.Count, 1).End(3).Row
If lr < 4 Then GoTo exit_Me
    If Target.Address(0, 0) = "C2" And _
      IsDate(Target) And Target.Count = 1 Then
      Cells(4, 4).Resize(lr - 3).ClearContents
       With Cells(4, 4).Resize(lr - 3)
         .Formula = "=A4&TEXT($C$2,""DMMYYYy"")&""PS"""
         .Value = .Value
       End With
     End If
exit_Me:
 Application.EnableEvents = True
End Sub

 

 

amenbkr.xlsm

[amenbkr]

شكرا لكم جميعا على المساعدة وجواكم الله خيرا