Tarih Formatına Çevirme

[Gold_Savt]

A sütununda bulunan değişik formatlardaki rakamları D sütununa "tarih formatlı" olarak kopyalayıp yapıştırmak istiyorum.
İki gündür uğraştım olmadı.
Yardımlarınızı rica ediyorum.

 

[ÖmerBey]

Merhaba,
Formülle yapmak isterseniz deneyiniz.

=EĞER(EMETİNSE(A1);TARİHSAYISI(A1);A1)

 

[Mdemir63]

Selamlar

Butonunuzdaki kodları aşağıdaki kodlarla değiştiriniz

Private Sub CommandButton1_Click()
Dim son, i As Integer
son = Sheets("tarih").Range("A65000").End(xlUp).Row
For i = 1 To son
    Worksheets("tarih").Range("D" & i) = "=TEXT(SUBSTITUTE(RC[-3],""/"","".""),""gg.aa.yyyy"")"
Next i
End Sub

 

[Gold_Savt]

Ömer Beyin kodlarını, Mdemir63'ün kodlarına ilave ettim. Çok başarılı bir çözümleme oldu. Her iki arkadaşıma da teşekkür ediyorum.

 

[Necdet]

Merhaba,
Seçenek olsun.

• Boş bir hücreye 1 yazın
• bu hücreyi kopyalayın
• A sütunundaki verileri seçin
• Sağ klik
• Özel Yapıştır
• İşlem Çarp
• Tamam
• Seçili Hücreyi Tarih Olarak Biçimlendirin

 

[Gold_Savt]

Teşekkür ediyorum Necdet Bey. Notlarım arasına alıyorum.