Haftanın Günlerini Silme

[Korhan Ayhan]

Bu konuda 20 mesaj sayısına ulaşıldı.

Bence net çözüm için sorunlu tarihleri içeren örnek dosyanızı paylaşınız.

 

[btanju]

Çıkıyor Hocam sizin attığınız kodu kopyalayım yapıştırdım karşıma o hata gelmektedir.

 

[btanju]

Cikmaz...ben deneyip de yazdim mesaji

.

Hocam başka dosyada yapınca oldu kodlarınızdaki anlamlar nedir?
Sub Test()
Dim myRng As Range
For Each myRng In Range("A1:A30")
myRng.Value = Format(CDate(Replace(myRng, Split(myRng)(3), "")), "dd.mm.yyyy")
Next
End Sub

3 Ne işe yaıyor acaba