Sondan başa doğru yazdırma

[turgayzeynep]

Hocam kolay gelsin İyi akşamlar
A40 Hücresinde bu şekilde yazıyor

Turgay CANDAN
J.Asb.Üçvş.
Asyş.Tim.K.

B 40 hücresine
Asyş.Tim.K. J.Asb.Üçvş.T. CANDAN

olarak yazdırmak istiyorum rıca etsem yardımcı olurmusunuz

 

[Tevfik_Kursun]

Merhaba,
İşinizi görür mü, bilemedim,
B40 a

=PARÇAAL(A40;MBUL("Asyş";A40)-1;UZUNLUK(A40)-MBUL("Asyş";A40)+2)&" "&PARÇAAL(A40;MBUL("J.";A40)-1;UZUNLUK(A40)-MBUL("Asyş";A40)+2)&" "&SOLDAN(A40;1)&". "&PARÇAAL(A40;MBUL(" ";A40);MBUL("J.";A40)-MBUL(" ";A40))

yazınız.
İyi çalışmalar
Profilinize kullandığınız excel versiyonunu yazın lütfen

 

[Tasarım]

Hocam kolay gelsin İyi akşamlar
A40 Hücresinde bu şekilde yazıyor

Turgay CANDAN
J.Asb.Üçvş.
Asyş.Tim.K.

B 40 hücresine
Asyş.Tim.K. J.Asb.Üçvş.T. CANDAN

olarak yazdırmak istiyorum rıca etsem yardımcı olurmusunuz

Sub Yaz()
Sheets("Sayfa1").Range("B40").Value = "Asyş.Tim.K. J.Asb.Üçvş.T. CANDAN"
End Sub

Hocam bu işlemi makro ile çok kolay yapabilirsiniz. Alt+F11 tuşlarıyla vba bölümüne geçin ve bir modül ekleyin. İçerisine bu kodu ekleyin. Sona F5 tuşuna basın.

 

[Tevfik_Kursun]

Merhaba,
B40 a

=PARÇAAL(A40;MBUL(DAMGA(10);A40;MBUL(DAMGA(10);A40)+1)+1;UZUNLUK(A40)-MBUL(DAMGA(10);A40;MBUL(DAMGA(10);A40)+1))&" "&PARÇAAL(A40;MBUL(DAMGA(10);A40)+1;MBUL(DAMGA(10);A40;MBUL(DAMGA(10);A40)+1)-MBUL(DAMGA(10);A40))&" "&SOLDAN(A40;1)&". "&PARÇAAL(A40;MBUL(" ";A40);MBUL(DAMGA(10);A40)-MBUL(" ";A40))

yazınız.

 

[turgayzeynep]

Hocam herkesin eline emeğine sağlık Çok sağ olun Çok teşekkür ediyorum Allah razı olsun

 

[turgayzeynep]

Turgay CANDAN
J.Asb.Üçvş.
Asyş.Tim.K.

Hocam size zahmet bir de şu şekilde yapabilir miyiz Rica etsem
J.Asb.Üçvş. Turgay CANDAN

B40 HÜCRESİNE OLACAK ŞEKİLDE

 

[Tevfik_Kursun]

Merhaba,
Buyrun

=PARÇAAL(A40;MBUL(DAMGA(10);A40)+1;MBUL(DAMGA(10);A40;MBUL(DAMGA(10);A40)+1)-MBUL(DAMGA(10);A40))&" "&SOLDAN(A40;MBUL(DAMGA(10);A40))

 

[turgayzeynep]

Merhaba,
Buyrun

=PARÇAAL(A40;MBUL(DAMGA(10);A40)+1;MBUL(DAMGA(10);A40;MBUL(DAMGA(10);A40)+1)-MBUL(DAMGA(10);A40))&" "&SOLDAN(A40;MBUL(DAMGA(10);A40))

Teşekkür ederim çok sağ olun İyi geceler