CountIf kullanım hatası

[recdan]

döngüdeki hata veren kısım mor renkle gösterilmiştir. hata olarak "run time error 1004" olarak veriliyor.bu kodu nasıl düzeltebilirim. yada benzer bir kod nasıl olur.

şimdiden teşekkürler

Sub veriler_karşılaştır()

'toplu sayfasındaki dolu hücreleri birbirleriyle karşılaştırır. Aynı olursa satırı komple siler.

Dim q, j As Long
Dim i As Integer



ulaş2:

'toplu sayfasındaki en son veriyi içeren satırı bulur.
For q = 1 To 500000
If Worksheets("toplu").Cells(q, 1).Value <> "" Then


ElseIf Worksheets("toplu").Cells(q, 1).Value = "" Then
GoTo var
End If

Next q

var:


'toplu sayfasındaki a sütünündaki hücreleri karşılaştırır.
For i = 2 To q - 1

If WorksheetFunction.CountIf(Worksheets("toplu").Range(Cells(i, 1), Cells(q, 1)), Worksheets("toplu").Cells(i, 1)) > 1 Then

Worksheets("toplu").Rows(i).Select
Selection.Delete Shift:=xlUp

GoTo ulaş2

ElseIf WorksheetFunction.CountIf(Worksheets("toplu").Range(Cells(i, 1), Cells(q, 1)), Worksheets("toplu").Cells(i, 1)) = 1 Then

GoTo ulaş1

End If

ulaş1:

Next i
Worksheets("toplu").Select
Cells.Select
Selection.Copy

'BU MAKRO BİTTİ!!!
'BU MAKRO BİTTİ!!!
'BU MAKRO BİTTİ!!!
'BU MAKRO BİTTİ!!!
'BU MAKRO BİTTİ!!!
'BU MAKRO BİTTİ!!!
End Sub

 

[mancubus]

foruma hoş geldiniz.
bir merhaba deseniz, forumu çok beğendiğinizi, üyelerin birbirlerine yardım etmesinin çok güzel olduğunu söyleseniz klavyenize mi yapışır yani

A sütununda bir değer kendinden önceki satırlarda yer aldı ise o satır silinecek.

Sub veriler_karşılaştır()
    Dim sonsat As Long, i As Long
    With Worksheets("toplu")
        sonsat = .Range("A" & .Rows.Count).End(xlUp).Row
        For i = 2 To sonsat
            If Application.CountIf(.Range(Cells(i, 1), Cells(sonsat, 1)), .Cells(i, 1)) > 1 Then
                .Rows(i).Delete
            End If
        Next i
    End With
End Sub

bundan sonrası için not: cevap panelinde üstteki # butonuna tıklayarak kod etiketlerinin çıkmasını sağlayınız ve kodlarınızı arasına kopyalayınız.

 

[recdan]

merhabalar marcubus umarım özrümü kabul edersiniz. sizlere saygısızlık etmek istemezdim. ben forumunuzu 2005 yılından bu yana düzenli aralıklarla takip ediyorum. yardımınız için teşekkür ederim. öneriniz için teşekkür ederim. çözüm almış olmasam da konuya farklı bir bakış açısı kazandım. biraz daha uyraşayım bakalım çözebilecekmiyim. çözüm bulamazsam sizlerin yardımına tekrar başvurabilirim.

saygısızca anlaşınacak bir giriş yaptıysam tekrar tekrar kusuruma bakmayın.

saygılarımı sunarım

 

[mancubus]

merhabalar marcubus umarım özrümü kabul edersiniz. sizlere saygısızlık etmek istemezdim. ben forumunuzu 2005 yılından bu yana düzenli aralıklarla takip ediyorum. yardımınız için teşekkür ederim. öneriniz için teşekkür ederim. çözüm almış olmasam da konuya farklı bir bakış açısı kazandım. biraz daha uyraşayım bakalım çözebilecekmiyim. çözüm bulamazsam sizlerin yardımına tekrar başvurabilirim.

saygısızca anlaşınacak bir giriş yaptıysam tekrar tekrar kusuruma bakmayın.

saygılarımı sunarım

takıldım sadece

 

[mancubus]

Sub veriler_karşılaştır()

'toplu sayfasındaki dolu hücreleri birbirleriyle karşılaştırır. Aynı olursa satırı komple siler.

çözüm almış olmasam da...

ilk mesajda belirtilen konuya dönük bir çözümdür. farklı bir husus var ise detay verin.