Tarihe çevir makrosu

[NADİR YILDIZ]

Arkadaşlar merhaba
formülle C ve D Sütunlarında yazan gün ve ay A2 sütunundaki yıl ile tarihe çeviriyorum
bu işlemi makro ile nasıl yapabilirim

teşekkürler

 

[Necdet]

Merhaba,
Deneyiniz, biraz arraylarla uğraştım, bunlara da alışmak gerek.
Dosyanızda ay olarak belirlenen sütunu siz gün olarak yapmışsınız, ben de ona göre yaptım.
Yanlış olursa değiştirirsiniz artık.

Public Sub tarihecevir()

Dim arr As Variant
Dim i   As Long
Dim yil As Long

i = Sayfa1.Cells(Rows.Count, "C").End(3).Row
yil = Sayfa1.Range("A2")

arr = Range("A4:D" & i).Value

For i = 1 To UBound(arr, 1)
    arr(i, 1) = DateSerial(yil, arr(i, 4), arr(i, 3))
Next i

Sayfa1.Range("A4").Resize(UBound(arr, 1), UBound(arr, 2)) = arr

End Sub

 

[NADİR YILDIZ]

Necdet bey öncelikle teşekkürler
örnek dosyamda çalıştı ancak
sizin gönderdiğiniz kodları orjinal dosyamda uygulayacağım sayfanın ismi FİŞ KONTROL olarak değiştirdiğimde hata veriyor

nereden kaynaklıdır acaba ?

 

[Necdet]

doğrudan FİŞ KONTROL diye kullanamazsınız Sheets("FİŞ KONTROL") demelisiniz.

Ben kodda sayfa indisini kullandım, bunun avantajı kullanıcı sayfa adını değiştirse bile kod çalışır.

 

[NADİR YILDIZ]

Necdet bey teşekkürler

iyi çalışmalar