Ayın değere sahip hücrelerin arasına satır ekleme

[confidant5]

Arkadaşlar,

Aynı verilere sahip hücrelerin arasına, forumda verilen aşağıdaki kodu kullanıyorum:

"Sub SatEkle()

Dim sat As Long

For sat = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
If Cells(sat, "A") <> Cells(sat - 1, "A") Then Rows(sat).EntireRow.Insert
Next sat

End Sub"

Fakat, yüzbine yakın satır olunca, bilgisayarı ciddi anlamda kasıyor. Bu kodu, daha hızlı hale getirmenin bir yolu var mıdır acaba?

Saygılarımla,

 

[Erhan Üstünel]

Sub SatEkle()

Dim sat As Long

For sat = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
If Cells(sat, "A") <> Cells(sat - 1, "A") Then Rows(sat).EntireRow.Insert
Next sat

End Sub

merhaba, verdiğiniz kod benim işime yarayacak fakat ;

bu kodu uygulayacağımız sayfada 4. satırdan başlatarak D sutunundaki aynı verilerin altına satır ekletmek istersek ne şekilde revize etmek gerekir acaba

birde D sutununu değiştirmek istersek pratik bi çözümü bulunabilirmiki ?

 

[confidant5]

Merhaba,

D sütunu için, "A" ları değiştireceksiniz. 4. satır için ise "To 2" kısmını değiştireceksiniz.

Bu arada, bu kodu daha da hızlandırmanın bir yolu yok galiba?

 

[Erhan Üstünel]

verdiğiniz bilgiler için teşekkür ediyorum, umarım sizde probleminizi giderirsiniz..