Exvelin tek bir hücresinde yer alan metnin her 6 karakterinde bir virgül nasıl ekleyebilirim arkadaşlar?
Yani şunu;
064121065300062500
Şu hale;
064121,065300,062500
nasıl getirebilirim? Yine tek hücrede olmasını ama her 6 karakterde bir virgül eklenmesini istiyorum.
Şimdiden teşekkürler.
Text-to-Columns özelliği ile 6 karakterlik parçalara bölüp, aradaki sütunlara virgül ekleyip, sonra Concatenate formülü ile hepsini bir sütunda birleştirebilirsin.
PARÇAAL ve BİRLEŞTİR formüllerini kullanarak yapabilirsiniz.
=parçaal(a1;1;6)&","&parçaal(a1;7;6).......
parça al ya da text to columns çalışıyor evet ama elimde yaklaşık 1200 karakterlik 6'li hale bölünmesi gereken hücre içeriği var :(
başka bir yolu daha olsa keşke?
her bir satır 1200 karakterli bir metin ise macro yazman gerekir
aşağıdaki macroyu yazıp sonra, örneğin A1 hücresinde text varsa B1 hücresine =fnSplit(A1;5;",") yazarsak çalışacaktır.
Public Function fnSplit(ByVal MyString As String, ByVal StringLen As Integer, ByVal Delimiter As String) As String
newStr = ""
For I = 1 To Len(MyString) Step StringLen
newStr = newStr & Mid$(MyString, I, StringLen) & Delimiter
Next
If Right(newStr, 1) = Delimiter Then
newStr = Left(newStr, Len(newStr) - 1)
End If
fnSplit = newStr
End Function
Şu makroyu çalıştır:
Sub Macro1()
Dim metin As String
metin = Cells(1, 1)
Cells(2, 1) = Left(metin, 6) & ","
For i = 1 To 200
Cells(2, 1) = Cells(2, 1) & Mid(metin, 6 * i + 1, 6) & ","
Next i
End Sub
sonuç: eksiup.com 
değişmesi gereken metin A1 hücresinde, sonucun yazılacağı hücre ise B1 hücresi olmalı. Eğer farklı hücreler istiyorsan makroyu ona göre değiştirmen lazım.
A1 ve B1 hücrelerinin biçimi 'Metin' olarak seçilmeli.
edit: virgülden sonra boşluk olsun istersen "," olan yerleri ", " olarak değiştirebilirsin. ya da makroyu çalıştırdıktan sonra excel'de Ctrl+H ile tüm virgülleri virgül+boşluk olarak değiştirebilirsin.
makrolar için çok teşekkür ederim! oldu. gerçekten çok çok sağolun :)
a kolonunu seçip hücre biçimlendirmeyi seçin, sol en atta "isteğe uyarlanmış" var onu seçin, sağ tarafta tür yazan yere ######,######,###### şunu yazın ve tamam a basın
@pislick0
öyle olmuyor.
himmet dayi bir mesaj gönderdim. mümkünse bakar mısın?
baktım ve cevapladım.
Cells(2, 1) = Cells(2, 1) & Mid(metin, 6 * i - 1, 6) & ","
kısmını şöyle düzelttim:
Cells(2, 1) = Cells(2, 1) & Mid(metin, 6 * i + 1, 6) & ","
evet yaptı valla. solved!
tikle bari millet o kadar uğraştı senin için
evet ben de tik istiyorum :D