tarih ayıracı acil..

[alperen37]

sorunum şu: a sutununda 100 adet araya . konulmadan yazılmış tarihler var.10042008 gibi. bunu makro kullanarak 10.04.2008 haline nasıl dönüştürebiliriz.tşk.

 

[Necdet]

Merhaba,

sayıların hepsi 8 uzunluğunda mı?

 

[alperen37]

evet 8 buna göre düşünün ama eksik girilen olsaydı ne yapardık onun hakkındada bilgi verirseniz sevinirim

 

[parsley2]

tarihmakro

örneği incelerseniz sorunuza çözüm olur sanırım. a sütunundaki değerleri istediğiniz şekilde b sütununa çeviriyor

 

[Seyit Tiken]

Bu şekilde bir deneyin.

Sub Makro2()
[a1:a200].NumberFormat = "00\.00\.0000"
End Sub

 

[parsley2]

ben ısrarla benim yöntemi tavsiye ediyorum. Çünkü 8 basamaktan küçük sayı ile karşılaşma durumunda bu yöntemle, yönlendirme uyarma, 8 basamağa sıfır koyarak çıkarak çevirme ilave edilebilir. benimki orjinal saf makro. Sizinki sanırım format.==))

 

[Necdet]

Merhaba,

Bir çözümde benden, uzunluk 7 yada 8 ise çalışır.
Değerlerin A sütununda olduğu varsayılarak aşağıdaki kodları deneyebilirsiniz.

Public Sub Tarih()
Application.ScreenUpdating = False
For i = 1 To [A65536].End(3).Row
    If Len(Cells(i, "A")) = 8 Then
        Cells(i, "A") = DateSerial(Right(Cells(i, "A"), 4), Mid(Cells(i, "A"), 3, 2), Left(Cells(i, "A"), 2))
    ElseIf Len(Cells(i, "A")) = 7 Then
        Cells(i, "A") = DateSerial(Right(Cells(i, "A"), 4), Mid(Cells(i, "A"), 2, 2), Left(Cells(i, "A"), 1))
    End If
Next i
End Sub

 

[alperen37]

ilgilenen herkese çok teşekkür ederim