Farklı numara olması durumunda

[1903emre34@gmail.com]

Merhabalar,

aşağıdaki kod ile B sutündaki eski ve yeni numara farklı durum olursa, numaralar arasında iki satır arası açıyor, yalnız büyük satırlarda çok fazla zaman alıyor, bunun kısaltma imkanı var mı?

Sub AralıkAç()
Dim R As Long
Application.ScreenUpdating = False
For R = Cells(Rows.Count, "B").End(xlUp).Row To 3 Step -1
If Cells(R, "B") <> Cells(R - 1, "B") Then
Cells(R, "B").EntireRow.Insert Shift:=xlUp
Cells(R, "B").EntireRow.Insert Shift:=xlUp
End If
Next R
Application.ScreenUpdating = True
End Sub

 

[Ömer BARAN]

Merhaba.

For...Next döngüsüyle, satır-satır işlem yapıldığı için satır sayısının çokluğuna göre bir miktar yavaşlama normaldir.

Eğer makronun işlem yaptığı sayfada formül yoğunluğu varsa;
kod'un ilgili satırlarına mavi renklendirdiğim kısımları ekleyerek dener misiniz?
.

[FONT="Arial Narrow"][COLOR="Blue"]Application.Calculation = xlCalculationManual: [/COLOR]Application.ScreenUpdating = False
........
[COLOR="blue"]Application.Calculation = xlCalculationAutomatic: [/COLOR]Application.ScreenUpdating = True[/FONT]

 

[1903emre34@gmail.com]

Merhaba,

Yukarıdaki önerinizi, dün kasım aya ait yevmiye kayıtlarında (97400 satır) uygulanıp, bir nebze de olsa süre kısaldı. Teşekkürler

İyi çalışmalar