kodu ayırma

[bursacem]

00250.004.Z.01800.HAM.PES.T.PR

Sayın Üstadlar yukarıda yazılan kodu hücrelere

00250
004
z
01800
ham

vb. gibi noktalardan ayırmak istiyorum. nasıl yapabilirim?

 

[çıtır]

Veri sekmesi ,metni sütunlara dönüştür,sınırlandırılmış,ileri,Diğer seceneğine . koy ileri tamama.

 

[ridvanucok]

Merhaba,

A1 hücresinde yer alan . lı ifadeleri aşağıdaki kod ile istediğiniz formata getirebilirsiniz.

Sub NOKTA_AYIRMA()
'
' NOKTA_AYIRMA Macro
' NOKTALARA GÖRE AYIRIR
'

'
Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=".", FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, _
2), Array(6, 2), Array(7, 2), Array(8, 2)), TrailingMinusNumbers:=True
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(-1, 0).Rows("1:1").EntireRow.Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
ActiveCell.Select
End Sub