iki sutun karşılaştırma

[aherab]

arkadaşlar iki sutunu karşılaştırıcam aynısı varsa silecek fakat çalışmıyor
şu a1 den a sutunun sonuna kadar
c1 den c sutunun sonuna kadar olan kısmı karşılaştırıcak aynı varsa
a sutunundan silecek

Private Sub CommandButton1_Click()
For i = 1 To 7
For j = 1 To 8
Next i
Next j
If Cells(i, "a") = Cells(j, "c") Then Rows(i).Delete
End Sub

acaba hatam nerde yardım ederseniz sevinirim

 

[Ömer]

Merhaba,

Satırın tamamını sileceksiniz sanırım. Bu şekilde bana fazla mantıklı gelmedi.

Örnek

A sütunu ..... B sütunu

5 ................ 6
7 ................ 5
4 ................ 2
6 ................ 9
7 ................ 7

bu veriye göre eşleşen son satır yani 7 ye 7 silinecekse sorun olmaz fakat ilk satırdaki 5 değeri A sütununda, bu değer B sütununda 2. satırda bulunuyor sizin söylediğinize göre 1. ve 2. satırdamı silinecek. Bu şekilde olursa mantıksız olmaz mı?

Sorunuzu daha detaylı açıklayınız.

.

 

[aherab]

A SÜTUN B SÜTUN
13 12
1 3
567 0
12 4

ŞİMDİ SATIR DEDİĞİNİZ GİBİ MANTIKSIZ OLACAKTIR , B SÜTUN DEĞERLERİNİ A SÜTUNUNDA VARSA ONLARI A DAN SİLECEKTİR , AMA BUNU HÜCRE BAZLI YAPILACAK DEDİĞİNİZ MANTIKLI
Private Sub CommandButton1_Click()
For i = 1 To 7
For j = 1 To 8
Next i
Next j
If Cells(i, "a") = Cells(j, "c") Then Cells(i,"a").Delete
End Sub

olsa çalışmaz mı ?

 

[Ömer]

Bu şekilde olur. Fakat A sütunundaki mi silecek B sütunundaki mi silinecek.

Sorularınızı açıklarken konuyu hiç bilmiyormuşuz gibi detaya inerek açıklarsanız cevap daha kısa ve net olur.

.

 

[aherab]

a da silinecek

bu kod hata veriyor

Private Sub CommandButton1_Click()
For i = 1 To 16
For j = 1 To 16
Next i
Next j
If Cells(i, "a") = Cells(j, "c") Then Cells(i, "a").Delete
End Sub

 

[Ömer]

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
    For i = 1 To [A65536].End(3).Row
        If WorksheetFunction.CountIf(Range("C:C"), Cells(i, "a")) > 0 Then
            Cells(i, "a").ClearContents
        End If
    Next i
End Sub

.

 

[aherab]

Sağolun kod çalışıyor teşekkürler