Tarİhe Çevİrmek

[haso_excel]

Merhaba arkadaşlar,
B kolonunda 08121999 gibi sayılardan oluşan bir dolu hücrem var. Amacım, B kolunundaki bu formatdaki hücreleri, "08/12/1999" tarih olarak olarak görebilmek. Bu konuda yardımcı olur musunuz lütfen. Bir makro lütfen

 

[omerceri]

Dosyanızı yedekleyin sonra
İlgili sütunu seçip, Metni Sütunlara çevir işleminde 3. adıma kadar geldikten sonra Sütun veri biçiminde, Tarihi seçip, yanındaki açılan kutudan uygun(Örneğimizde "GAY" Gün-Ay-Yıl) seçeneği işaretleyip, sonlandırdığınıda Sütundaki verilerin 25.01.2007 şeklinde tarih formatına dönüşüyor.

 

[Mahmut Kök]

Merhaba arkadaşlar,
B kolonunda 08121999 gibi sayılardan oluşan bir dolu hücrem var. Amacım, B kolunundaki bu formatdaki hücreleri, "08/12/1999" tarih olarak olarak görebilmek. Bu konuda yardımcı olur musunuz lütfen. Bir makro lütfen

Aşağıdaki kodu deneyiniz. Sütun başlığı olabilir diye B2 hücresinden başlattım.

Sub tarih()
For [B]sat = 2[/B] To [b65536].End(3).Row
g = Left([B]Cells(sat, 2),[/B] 2)
a = Mid(Cells(sat, 2), 3, 2)
y = Right(Cells(sat, 2), 4)
Cells(sat, 2) = DateSerial(y, a, g)
Next
Columns("B:B").NumberFormat = "dd\/mm\/yyyy"
End Sub

 

[haso_excel]

Olmuyor arkadasım ben recort ederek bir şeyler yaptım. Kayıt ederken oluyor fakat makroyu tekrar çalışığımda istediğim kolon "Columns("E:E").EntireColumn.AutoFit
" tarih formatına gelmiyor. Neden acaba ?

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 08/01/2008 by HASAN
'

'
Rows("1:21").Select
Selection.Delete Shift:=xlUp
Rows("3:3").Select
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 4), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1))
Range("E4").Select
Columns("E:E").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Range("L4").Select
End Sub