Soru makro ile tarih ve rakamın arasına girme

[sirkülasyon]

B2 hücresinde 06/12/2019 25632541 şekli mevcut

Makro ile 06/12/2019 tarihinin ardına (Tarihli ve ) 25632541 sayısının ardına da (Sayılı yazınız) nasıl yapabilirim.
Hücrede ki görünümü 06/12/2019 tarihli ve 25632541 sayılı yazınız olacak.

Rica etsem yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Merhaba.
Değerin A1 de yazdığını var sayarsak.

=SOLDAN(A1;BUL(" ";A1))&"Tarihli "&SAĞDAN(A1;UZUNLUK(A1)-BUL(" ";A1))&" sayılı yazınız"

 

[sirkülasyon]

kardeşim benim bunun makro hali varsa onuda yazabilirmisin bana

 

[Muzaffer Ali]

Buyurun.

Range("B1") = Left(Range("A1"), WorksheetFunction.Find(" ", Range("A1"))) & "Tarihli " & Right(Range("A1"), Len(Range("A1")) - WorksheetFunction.Find(" ", Range("A1"))) & " sayılı yazınız"

 

[Muzaffer Ali]

Alternatif

Range("B2") = WorksheetFunction.Substitute(Range("A1"), " ", " Tarihli ") & " sayılı yazınız."

=YERİNEKOY(A1;" ";" Tarihli ")&" sayılı yazınız"

 

[sirkülasyon]

teşekkür ederim sağ olasınız

 

[Muzaffer Ali]

Rica ederim kolay gelsin.