İşlem Saatler Sürüyor

[mrs303]

Selamlar, Kurban Bayramınız Kutlu Olsun arkadaşlar...

Excel 2007 de aşağıdaki kodu yaklaşık 300-400 satırlık bir veri aralığındaki sayıları ayırmak için kullanıyorum. Fakat CPU kullanımı %100 e çıkıyor ve işlem saatler sürüyor. PC hızlı acaba nerede hata yaptım, kodu nasıl hızlandırabilirim. Şimdiden teşekkürlerimi sunarım.
-----------------------------------------------------
Sub ayir()
Dim i As Integer
sat = Cells(65536, "D").End(xlUp).Row
For i = 3 To sat
Cells(i, "N").Value = Mid(Cells(i, "G").Value, 2, 1)
Cells(i, "O").Value = Mid(Cells(i, "G").Value, 6, 1)
Next i
End Sub
--------------------------------------------------------

 

[Ömer]

Merhaba,

Bu sorunu yaşadığınız dosyayı eklemeniz mümkün mü?

.

 

[mrs303]

Dosya Devlet dairesine ait, özel ve gizli içerik taşıyor, o yüzden eklemem mümkün değil malesef.
Fakat Şöyle açıklayabilirim. Ayırmak istenilen sayıların arasında 8-8 , 9-9, 9-8, 7-7 gibi devam ediyor.

 

[Ömer]

8-8
9-9

gibi verilerin "-" simgesinin sağındaki ve solundaki veriler farklı sütunlaramı aktarmak istiyorsunuz..

.

 

[mrs303]

Evet, sayıları farklı sütünlara yazdırmak için kullanıyorum bu kodu.

 

[Ömer]

Evet, sayıları farklı sütünlara yazdırmak için kullanıyorum bu kodu.

Bu şekilde denermisiniz..

Sub ayir()
Dim sat As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
    sat = Cells(Rows.Count, "D").End(xlUp).Row
    Range("N3:O" & sat).ClearContents
    Range("G3:G" & sat).TextToColumns Range("N3"), Space:=True, Other:=True, OtherChar:="-"
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

.

 

[mrs303]

Sn, Ömer Bey,

Öncelikle geç yazdığım için özür dilerim, fakat Bayram nedeniyle şehir dışındaydım ve PC yoktu çevremde bakamadım.

Çözümünüze gelince; Çalıştırınca 5-10 dk. gibi bir sürede tamamlanır diye düşünürken 1 saniyeninde altında 5000 satırlık bir veriyi tam istediğim şekle getirdi. Öne rüya görüyorum sandım fakat bir kaç kez daha deneyince gerçek olduğnu gördüm. Gerçekten de kod harika çalışıyor çok çok teşekkür ederim. Süpersiniz. Benim için en güzel Bayram hediyesi bu olsa gerek. Saatlerce süren işlemlerin 1 sn den de kısa sürede bitmesi inanılmaz.

Tekrar Bayramınızı kutlar teşekkürlerimi sunarım.