• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sondan başa doğru yazdırma

  • Konbuyu başlatan Konbuyu başlatan turgayzeynep
  • Başlangıç tarihi Başlangıç tarihi
T

turgayzeynep

Misafir
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
 
Merhaba,
İşinizi görür mü, bilemedim,
B40 a
Kod:
=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
 
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
Kod:
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.
 
Merhaba,
B40 a
Kod:
=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.
 
Hocam herkesin eline emeğine sağlık Çok sağ olun Çok teşekkür ediyorum Allah razı olsun
 
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
 
Merhaba,
Buyrun
Kod:
=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))
 
Geri
Üst