Çözüldü Sayıyı Tarihe Çevirme

[gicimi]

Merhaba;

20180802
20180630
20180222
20180731

Yukarıda belirtilen sayı gibi görünen tarihi , Kısa tarihe farklı formatlara nasıl çevirebilirim. Aşağıda görüldüğü üzere....

02.08.2018
30.06.2018
22.02.2018
31.07.2018

 

[turist]

20180802 sayısı A1 hücresindeyse;
B1 hücresine:
=TARİH(SOLDAN(A1;4);PARÇAAL(A1;5;2);SAĞDAN(A1;2))
şeklinde uygulayıp deneyin.

 

[çıtır]

Alternatif olarak 20180802 sayısı A1 hücresindeyse;
B1 hücresine aşağıdaki formülü kopyalayınız aşağı çekerek çoğaltınız.Hücre biçimini tarih olarak ayarlayınız

=METNEÇEVİR($A1;"0000-00-00")+0

 

[gicimi]

Sn. @turist Sn @çıtır teşekkür ederim. Kolaylıklar.

 

[çıtır]

Sn. @turist Sn @çıtır teşekkür ederim. Kolaylıklar.

Dönüş yaptığınız için teşekkür ederim.

 

[turist]

Sn. @turist Sn @çıtır teşekkür ederim. Kolaylıklar.

Sağolun.

 

[schlecht]

Bunu makro ile yapmak mümkün mü?

 

[turist]

Bunu makro ile yapmak mümkün mü?

Tabii ki mümkün; ancak dosyanın şekline ve kullanma yerine ve amacına göre belirlenebilir.

 

[schlecht]

A:A yazılan bütün yyyyaagg formatındaki sayıyı c sütünuna gg.aa.yyyy formatına çevirse

 

[turist]

Aşağıdaki kodu deneyin

Sub TarihYap()
With ActiveSheet.UsedRange.Columns("A").Cells
    .TextToColumns Destination:=.Cells(1, 3), DataType:=xlFixedWidth, FieldInfo:=Array(0, xlYMDFormat)
    .NumberFormat = "dd.mm.yyyy"
End With
With ActiveSheet.UsedRange.Columns("A").Cells
       .NumberFormat = "0"
End With

End Sub

 

[schlecht]

Sayın turist yeni deneme fırsatım oldu teşekkürler. Sorunusuz çalışıyor.

 

[turist]

Sağolun.

 

[Katip36]

İyi günler kolay gelsin.
Bu işlem başka hücreye değilde direk sayının yazıldığı hücreye yapılabilir mi ?
Örneğin : A sütununda herhangi bir hücreye 01032019 yazdığımda onu otomatik 01/03/2019 olarak değiştirecek.

 

[çıtır]

Hücre biçimini,isteğe uyarlanmış.Tür kısmına aşağıdaki kodu kopyalayınız.

00"/"00"/"0000

 

[Katip36]

Teşekkür ederim

 

[çıtır]

Teşekkür ederim

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[cerci]

Hücre biçimini,isteğe uyarlanmış.Tür kısmına aşağıdaki kodu kopyalayınız.
Kod:
00"/"00"/"0000

Çok Teşekkür ederim. Süper oldu.

 

[baydeniro]

Aşağıdaki kodu deneyin

Sub TarihYap()
With ActiveSheet.UsedRange.Columns("A").Cells
    .TextToColumns Destination:=.Cells(1, 3), DataType:=xlFixedWidth, FieldInfo:=Array(0, xlYMDFormat)
    .NumberFormat = "dd.mm.yyyy"
End With
With ActiveSheet.UsedRange.Columns("A").Cells
       .NumberFormat = "0"
End With

End Sub

turist üstadım merhaba, ilginç bir tarih verisi ile karşılaştım. bu kodu uyguladım ama ekteki dosyadaki tarihlerde değişiklik olmadı.