Formatını tespit edip Kesme

[junes]

Merhaba,

A sütunundaki bazı hücreler tarih bazı hücreler ise metin (text) formatlı. Ben bu sütündaki örneğin metin formatlı hücreleri seçip yine örneğin B hücresindeki eşdeğerine kopyalamak istiyorum.

Yani

A1 Metin (Ad Soyad)
A2 Tarih ( 12/10/2003)
A3 Tarih (5/6/2004)
.
.
.
A9 Metin (Ad Soyad)

Buradaki Tarih içeren ve formatı tarih (date) olan hücreleri eşdeğer B sütununa taşımak istiyorum. Yukarıdaki örnekte A2, A3, .. B2, B3,..'e taşınmalı.

Bu konuda bir fikri olan varsa çok sevinirim.

İyi Çalışmalar dilerim.

 

[mehmett]

Fonksiyonlu çözüm;

=E&#286;ER(A1<"01.01.1900";A1;"")

Ya da

=E&#286;ER(ESAYIYSA(A1);A1;"")

 

[junes]

Çok teşekkür ederim, formulu makro'ya da ekledim. İyi Çalışmalar dilerim

 

[mesudiye_052]

Sub kopyalatarih()
Dim sayac As Date
For sayac = 1 To 20
If IsDate(Cells(sayac, 1)) Then
Cells(sayac, 1).Offset(0, 1) = Cells(sayac, 1)
End If
Next sayac
End Sub

 

[Recep İpek]

Bir alternatifde benden olsun.

Sub TarihAktar()
For Each alan In [a2:a50].SpecialCells(xlCellTypeConstants, xlNumbers)
alan.Offset(0, 1).ClearContents
If alan.NumberFormat = "m/d/yyyy" Then
alan.Offset(0, 1).Value = alan.Value
End If
Next
End Sub