Sıra Numarası Verme

[ahmed_ummu]

Merhaba arkadaşlar.

Aşağıdaki kod ile hızlı bir şekilde sıra numarasını veriyor. Fakat sıra numarasını hücreye ortalaması için kırmızı renkteki kod satırını ekleyince çok yavaş sıra numarası veriyor. Nasıl hızlandırabilirim. Yardımcı olabilir misiniz.

Tüm satırlar her yeni bir liste oluşturulurken son satırdan başlayıp yukarıya doğru silindiğinden, hücre biçiminde ortalansa bile bir sonraki listeleme yapıldığından eski haline dönüyor.

For i = 7 To Range("b65000").End(3).Row
On Error Resume Next
If (Range("b" & i).Value <> "") Then
Range("a" & i) = i - 6
Range("a" & i).HorizontalAlignment = xlCenter
End If
Next i

 

[ahmed_ummu]

Silme işlemini hızlandırmak için Muzaffer beyin verdiği aşağıdaki kodu uyarlamaya çalıştım ama bu kez de tüm sütunları ortaladı. Sadece "A" sütununu oratlaması gerekiyor.

SonSatirsil = sh2.Cells(Rows.Count, "b").End(3).Row
sh2.Rows("7:" & SonSatirsil).HorizontalAlignment = xlCenter

 

[AdemCan]

Merhaba Columns(1).HorizontalAlignment = xlCenter ile A sütununu ortalayabilirsiniz.

 

[Ömer]

Merhaba,

Biçim kodunu döngüden sonra yazmanız gerekir.
Deneyiniz.

For i = 7 To Range("b65000").End(3).Row
On Error Resume Next
If (Range("b" & i).Value <> "") Then
Range("a" & i) = i - 6
End If
Next i
Range("a7:a" & i).HorizontalAlignment = xlCenter

 

[ahmed_ummu]

Teşekkürler arkadaşlar düzeldi.