makro revize

[metin_0606]

Sub ayır()
On Error Resume Next
For i = 2 To 8000
    Cells(i, 14) = Format(Cells(i, 14), "### ### ## ##")
Next
MsgBox "işlem tamam"
End Sub

Bu makroyu telefon numaralarını ayırmada kullanıyorum. Makro 8000 satırlık veride çok yavaş çalışıyor bunu hızlandırmamız mümkünmü acaba Ayrıca döngü son dolu satırı görecek şekilde revize edilebilirmi saygılar

 

[hmtstc]

deneyiniz, hızlandırır mı bilmem ama son satırı alır

Sub ayır()

application.screenupdating=false

On Error Resume Next

For i = 2 To cells(rows.count,14).end(xlup).row

    Cells(i, 14) = Format(Cells(i, 14), "### ### ## ##")

Next

MsgBox "işlem tamam"

End Sub

 

[ÖmerFaruk]

Sub TelefonNumarasıFormat()
   Range("N2:N8000").NumberFormat = "### ### ## ##"
End Sub

 

[metin_0606]

her iki makro içinde teşekkürler işimi gördü