Sıra Numarası Verme

ahmed_ummu

Altın Üye
Katılım
28 Mart 2011
Mesajlar
731
Excel Vers. ve Dili
Excel 2010 Professional Plus 64 Bit
Altın Üyelik Bitiş Tarihi
15-10-2026
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

Altın Üye
Katılım
28 Mart 2011
Mesajlar
731
Excel Vers. ve Dili
Excel 2010 Professional Plus 64 Bit
Altın Üyelik Bitiş Tarihi
15-10-2026
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

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,386
Excel Vers. ve Dili
2019 TR
Merhaba Columns(1).HorizontalAlignment = xlCenter ile A sütununu ortalayabilirsiniz.
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Biçim kodunu döngüden sonra yazmanız gerekir.
Deneyiniz.
Kod:
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

Altın Üye
Katılım
28 Mart 2011
Mesajlar
731
Excel Vers. ve Dili
Excel 2010 Professional Plus 64 Bit
Altın Üyelik Bitiş Tarihi
15-10-2026
Teşekkürler arkadaşlar düzeldi.
 
Üst