it was me
Merhaba,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,062500nasıl getirebilirim? Yine tek hücrede olmasını ama her 6 karakterde bir virgül eklenmesini istiyorum.Şimdiden teşekkürler.
Merhaba,
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.
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.
0
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.
0
PARÇAAL ve BİRLEŞTİR formüllerini kullanarak yapabilirsiniz.
=parçaal(a1;1;6)&","&parçaal(a1;7;6).......
=parçaal(a1;1;6)&","&parçaal(a1;7;6).......
0
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?
başka bir yolu daha olsa keşke?
0
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
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
0
Ş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.
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.
0
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
0
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) & ","
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) & ","
0
