Tarih Gibi Gözüken Veriler Tarihe Çevirme

[baydeniro]

Merhaba Arkadaşlar,
Excel dışı bir kaynaktan indirilen verilerde tarih sorunu hep olurdu, bir şekilde çözüm buluyorduk. Ama bu tarihleri makro ile tarih formatlı verilere dönüştüremedik.
* Bıl Değiştir "." > "." olmadı
* 1 ile Çarp olmadı
* Bu kod ile çözebiliyorduk bazen, olmadı.

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

 

[veyselemre]

Sub tarihYap()
    With Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
        For Each cell In .Cells
            With cell
                .NumberFormat = "dd.mm.yyyy"
                .Value = CDate(Trim(.Value))
            End With
        Next
    End With
End Sub

 

[baydeniro]

Sub tarihYap()
    With Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
        For Each cell In .Cells
            With cell
                .NumberFormat = "dd.mm.yyyy"
                .Value = CDate(Trim(.Value))
            End With
        Next
    End With
End Sub

veyselemre üstadım çok teşekkür ederim. Harika oldu. Çok güzel çalışıyor.
C sütununda da çalışması için kodun neresini değiştirmemiz lazım üstad !

 

[genesis_vision]

A2:A yerine A2:C yazman yeterliolacaktır.

 

[baydeniro]

A2:A yerine A2:C yazman yeterliolacaktır.

Çok teşekkür ederim. Onu denemiştim. Siz yazınca tekrar denedim.
Datada boş hücreler olmazsa A2:C olarak çalışıyor. Boş hücre olunca çalışmıyor.
Boş hücreleri de dikkate alması nasıl sağlanır acaba ?

 

[foxmailhe]

üstadım çok teşekkür ederim. Harika oldu. Çok güzel çalışıyor.

 

[veyselemre]

Datada boş hücreler olmazsa A2:C olarak çalışıyor. Boş hücre olunca çalışmıyor.
Boş hücreleri de dikkate alması nasıl sağlanır acaba ?

Sub tarihYap()
    On Error Resume Next
    With Range("A2:C" & Cells(Rows.Count, 1).End(3).Row)
        For Each cell In .SpecialCells(xlCellTypeConstants)

            With cell
                If IsDate(CDate(Trim(.Value))) Then
                    If Err = 0 Then
                        .NumberFormat = "dd.mm.yyyy"
                        .Value = CDate(Trim(.Value))
                    Else
                        Err = 0
                    End If
                End If
            End With

        Next
    End With
    On Error GoTo 0
End Sub

 

[baydeniro]

Sub tarihYap()
    On Error Resume Next
    With Range("A2:C" & Cells(Rows.Count, 1).End(3).Row)
        For Each cell In .SpecialCells(xlCellTypeConstants)

            With cell
                If IsDate(CDate(Trim(.Value))) Then
                    If Err <> 0 Then
                        .NumberFormat = "dd.mm.yyyy"
                        .Value = CDate(Trim(.Value))
                    End If
                End If
            End With

        Next
    End With
    On Error GoTo 0
End Sub

Üstad ilgine çok teşekkür ederim. Bu son kod çalışmadı ye da ben beceremedim

 

[veyselemre]

Üstad ilgine çok teşekkür ederim. Bu son kod çalışmadı ye da ben beceremedim

Dosya ekleyebilirseniz deneriz.

 

[baydeniro]

Dosya ekleyebilirseniz deneriz.

çok teşekkürler üstadım, 1.mesaja dosya ekledim.

 

[veyselemre]

 If Err = 0 Then

Olacak yanlış olmuş. 7 nolu mesaj güncellendi.

 

[baydeniro]

 If Err = 0 Then

Olacak yanlış olmuş. 7 nolu mesaj güncellendi.

şimdi mükemmel oldu üstadım, emeğinize sağlık, çok teşekkür ederim, sağlıklı günler diliyorum