makro revize

[murat_fidan]

Sub tarih()
Dim x As Long
Sheets("Sayfa1").Range("I1") = Date

For x = 2 To Range("A65536").End(3).Row
Sheets("Sayfa1").Range("I1") = CDate(Format(Sheets("Sayfa1").Range("I1"), "dd.mm.yyyy"))

Sheets("Sayfa1").Cells(x, 2) = CDate(Format(Sheets("Sayfa1").Cells(x, 2), "dd.mm.yyyy"))
Sheets("Sayfa1").Cells(x, 3) = CDate(Format(Sheets("Sayfa1").Cells(x, 3), "dd.mm.yyyy"))
Next
End Sub

Değerli arkadaşlar 10000 satırlık tarih verilerim bulunmaktadır. Bunların formatını değiştirirken bu makroyu kullanmaktayım. Bu makro işimi görmekte ancak biraz yavaş çalışmaktadır. Bu makroyu hızlandırmak mümkünmüdür acaba

 

[Ziynettin]

Döngü kullanmadan deneyiniz.

With Sheets("Sayfa1")
    .Range("I1") = Date
    son = .Range("A65536").End(3).Row
    With .Range("B2:C" & son)
        .NumberFormat = "dd.mm.yyyy"
        .Value = .Value
    End With
End With

 

[murat_fidan]

Teşekkürler ziynettin bey gayet hızlı sonuç verdi. Örneğin tarihler B2:C aralığında değilde sadece B sütununda olsaydı bu satırı
With .Range("B2:C" & son) nasıl revize edecektik

 

[Ziynettin]

With .Range("B2:B" & son)

 

[murat_fidan]

With .Range("B2:B" & son)

Teşekkürler ziynettin bey Allah razı olsun İyi geceler