Aralara virgül koymak

[blackakin]

Arkadaşlar Merhaba benim şöyle bir sorunum var

Örneğin A1 hücresinde

"Essentials of Corporate Finance" ifadesi var ben bunu yine A1 hücresinde aralarında virgül koyarak nasıl yapabilirim:

Essentials, of, Corporate, Finance


Bilgisi olan varsa paylaşabilir mi acaba? Teşekkürler....

 

[asi_kral]

Arkadaşlar Merhaba benim şöyle bir sorunum var

Örneğin A1 hücresinde

"Essentials of Corporate Finance" ifadesi var ben bunu yine A1 hücresinde aralarında virgül koyarak nasıl yapabilirim:

Essentials, of, Corporate, Finance


Bilgisi olan varsa paylaşabilir mi acaba? Teşekkürler....

Merhaba
Boş bir module Kopyalayın ve deneyin.

Option Explicit
Sub değiştir_1967()
'Konu       :   Kelimelerin Arasına Virgül
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Range("A1") = Replace(Range("A1"), " ", ", ")
MsgBox "İşlem Tamamlandı", vbInformation, "asi_kral_1967"
End Sub

 

[Orion1]

Buyurun.
=YERİNEKOY(A1;" ";", ")

 

[blackakin]

Her ikinize de teşekkür ederim arkadaşlar. Webden ve excel den çok anlamam buna rağmen meta keywords yapayım dedim tek tek virgül koymak delice geldi yardımlarınız için çok teşekkür ederim

 

[asi_kral]

Her ikinize de teşekkür ederim arkadaşlar. Webden ve excel den çok anlamam buna rağmen meta keywords yapayım dedim tek tek virgül koymak delice geldi yardımlarınız için çok teşekkür ederim

Kolay Gelsin.