اضافة محتوى خلية نصية لمحتوي خلية بها تاريخ

[عاطف عبد العليم محمد]

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

شهركم مبارك

اريد كود به يضاف للخلية مثلا c3   يجمع الخلية c2  التي تحتوى على نص  و الخلية c1 التي تحتوى على تاريخ 

مثلا خلية c2 فيها  النص ( سحب نقدي )  و الخلية c1  فيها 2023/01/01    اريد الخلية c3   تصبح ( سحب نقدي بتاريخ 2023/01/01 ) 

كود وليس معادلة

مع جزيل الشكر 

تم تعديل مارس 23, 2023 بواسطه عاطف عبد العليم محمد

[lionheart]

Sub Test()
    Dim s As String
    s = Range("C2").Value & Space(1)
    s = s & Join(Array(Chr(200), Chr(202), Chr(199), Chr(209), Chr(237), Chr(206)), Empty) & Space(1)
    s = s & Format(Range("C1").Value2, "yyyy/mm/dd")
    Range("E1").Value = s
End Sub

 

[محي الدين ابو البشر]

Just for fun

 

Sub test2()
Range("E1") = Range("C2") & " بتاريخ " & Range("C1")
End Sub

 

تم تعديل مارس 26, 2023 بواسطه محي الدين ابو البشر

[عاطف عبد العليم محمد]

 

lionheart

جزاك الله خيرا

وفقك الله

 

محي الدين ابو البشر

جزاك الله خيرا

وفقك الله

كنت حاولت بهذه الطريقة ولم تفلح معي

انا كتبت الطلب بصورة مبسطة  والواقع انه اصعب قليلا

شكرا لك