bir hücerede virgülden sonraki yerleri seçip başka hücrelere kopyalamak???macro :)

[ensark]

ARkadaşlar yardımlarınızı bekliyorum Ekte koyduğum excel dosyasında her hücrenin Date ve Close olan kısımlarını ayrı ayrı hücrelere kopyalamak istiyorum.
Mesela A2 deki verileri date için B2 ye ve Close için C2 ye kopyalamak istiyorum. Bunun için macro yada başka bir uygulama tavsiye edebilir misiniz? teşekkürler..

 

[omerceri]

Anladığım kadarı ile A sütunun daki bilgileri saklamak istiyorsunuz.
Tarih formatını 01.01.2008 şeklinde, ondalik işareti olarakta virgüle çeviriyor.
Kodlar aşağıda
Sub Makro1()

Columns("A:A").Select

Selection.Copy
Columns("B:B").Select

ActiveSheet.Paste
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 5), Array(2, 9), Array(3, 9), Array(4, 9), Array(5, 9), Array(6, 9), _
Array(7, 1)), DecimalSeparator:=".", ThousandsSeparator:=",", _
TrailingMinusNumbers:=True
End Sub

 

[ensark]

Omerceri çok teşekkğr ederim beni büyük bir dertten kurtardın sinema bileti yolliyim sana