Sheets("!").Select kullanmamak hakkında

[serukanu]

Merhaba
bir çalışmamda aşağıdaki kodu kullanıyorum,
fakat aşağıdaki koddan dolayı devamlı veri sayfasında atmaya çalışıyor beni
çalıştığım sayfada kalarak bu kodu çalıştırabilir miyim?

Sheets("Veri").Activate
For i = Cells(65536, "D").End(xlUp).Row To 5 Step -1
    If WorksheetFunction.CountIf(Range("D" & i & ":D3"), Cells(i, "D").Value) > 1 Then
        Range("D" & i).EntireRow.Delete (xlUp)
    End If

 

[serukanu]

Birde mümkünse kodda en son satırı siliyor,
mümkünse üstteki satırı (eski olanı) sildirebilir miyiz?

 

[Korhan Ayhan]

Deneyiniz.

Set S1= Sheets("Veri")
For i = S1.Cells(65536, "D").End(xlUp).Row To 5 Step -1
If WorksheetFunction.CountIf(S1.Range("D" & i & ":D3"), S1.Cells(i, "D").Value) > 1 Then
   S1.Range("D" & i).EntireRow.Delete (xlUp)
End If

 

[serukanu]

Çok iyi oldu teşekkür ederim
son bir sorum daha vardı aynı kodla alakalı, onunla alakalı yardımcı olabilir misiniz ?

 

[Korhan Ayhan]

Siz sorunuzu sorun cevap veren mutlaka olacaktır.

 

[serukanu]

Birde mümkünse kodda en son satırı siliyor,
mümkünse üstteki satırı (eski olanı) sildirebilir miyiz?

sormuştum diye tekrar sormak istemedim

 

[Korhan Ayhan]

Aslında siz yeni sürüm excel kullanıyorsunuz. Döngü yerine Veri menüsünden Yinelenenleri Kaldır seçeneğini kullanabilirsiniz. Hem daha hızlı verecektir.

Dilerseniz örnek dosya paylaşın uyarlamaya çalışalım.