Verileri tarihe ve finansal değere çevirmek ?

[hakanaslan78]

Merhaba Arkadaşlar,

Örnek olarak eklediğim dosyada yapmak istediklerimi aşağıda özetliyorum. Yardımlarınız için için şimdiden çok teşekkür ederim.

1. A sütünün deki değerleri kısa tarihe çevirmek ( örnek. 28.11.2020 ) değer tarih olarak gözükse de, verinin alındığı kaynaktan tarih özelliği ile gelmiyor.

2. F sütünün deki değerleri finansal değere çevirmek ( örnek. 2.500,00 TL ) değer sayı olarak gözükse de, verin alındığı kaynaktan sayı özelliği ile gelmiyor.

NOT : Değerler sürekli değişkenlik gösterdiğin den dolayı, bu istediklerimi makro ile yapmak istiyorum.

Tekrar dan çok teşekkür ederim.

 

[Haluk]

A sütunundaki verileri tarih olarak düzenlemek için; A sütununu seçin, sonra Data >> Text to columns (Veri >> Metni sütunlara dönüştür) menüsünü çalıştırın. Ekrana gelen pencerede bir şey yapmadan Next > Next > Finish (İleri > İleri > Bitir). Verilerin düzenlenmiş olması gerekir.

Aynı işi F sütünu için de yaparsanız, onlar da düzelir.

.

 

[hakanaslan78]

A sütunundaki verileri tarih olarak düzenlemek için; A sütununu seçin, sonra Data >> Text to columns (Veri >> Metni sütunlara dönüştür) menüsünü çalıştırın. Ekrana gelen pencerede bir şey yapmadan Next > Next > Finish (İleri > İleri > Bitir). Verilerin düzenlenmiş olması gerekir.

Aynı işi F sütünu için de yaparsanız, onlar da düzelir.

.

Haluk bey merhaba,

Veriler yenilendiğinde maalesef eski düzenine geri dönüyor.

Teşekkür ederim vakit ayırdığınız için.

Saygılarımla,

 

[Haluk]

Bahsettiğim işlem için makro kaydet yöntemiyle elde ettiğim kodlar aşağıdadır.

Siz verileri yeniledikten sonra, bu kodu çalıştırabilirsiniz....

Sub Macro1()
'
' Macro1 Macro
'

'
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Columns("F:F").Select
    Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
End Sub

.

 

[hakanaslan78]

Bahsettiğim işlem için makro kaydet yöntemiyle elde ettiğim kodlar aşağıdadır.

Siz verileri yeniledikten sonra, bu kodu çalıştırabilirsiniz....

Sub Macro1()
'
' Macro1 Macro
'

'
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Columns("F:F").Select
    Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
End Sub

.

Malasef bu da işe yaramadı