Benzer Olanları listeleme

[metin_0606]

Sub listele()
Dim hcr As Range, j2 As Integer
'On Error Resume Next
For i = 1 To [A65536].End(xlUp).Row
  x = Columns("B:B").Find(Cells(i, "A"), lookat:=xlWhole).Row
    If Err.Number <> 0 Then
  
      Err.Clear
        Else
          j2 = j2 + 1
        
          Cells(j2, "F").Value = Cells(i, "A")
    End If
Next
End Sub

Değerli arkadaşlar bu makroyu siteden buldum. Benzer A ve B sütunu karşılaştırıp benzer olanları F sütununa listeliyor. Benzer olanları F1 de başlık olacağı için sayfamda F2 den itibaren nasıl listeletebiliriz.

 

[Ömer]

Merhaba

'On Error Resume Next
Satırından sonra

j2=1

ekleyerek deneyin.

 

[metin_0606]

Merhaba

'On Error Resume Next
Satırından sonra

j2=1

ekleyerek deneyin.

Çok teşekkür ederim Ömer bey sağolun

 

[assenucler]

Değerli Dostlar;


Hayırlı Ramazanlar ve pazarlar ile sağlıklı günler dilerim.

Arkadaşın açtığı konuyu görünce, bende yeni bir başlık açmak istemedim. Bir sorun görülürse, yeni bir başlık açabilirim.

Yapmak istediğim: Ekstrede olup kayıtlarda olmayan, ya da kayıtlarda olup Ekstre'de olmayan B2:B45 ve D2: D45 aralığındaki metin ya da sayıları; koşullu biçimlendirme ile farklı renklerde göstermek; 2 saate yakın uğraşmama karşın bir türlü yapamadım. Malûm Ramazan, 2 saatin sonrasında da pes ettim.

Koşullu ya da farklı çözüme ilişkin yardımınızı rica edebilir miyim?

   
    

 

[Ömer]

Merhaba,

B3: B45 aralığı koşullu biçimlendirme formül: =EĞERSAY($D$3:$D$45;B3)=0

D3: D45 aralığı koşullu biçimlendirme formül: =EĞERSAY($B$3:$B$45;D3)=0

 

[assenucler]

Sayın @Ömer,

Yardımınız için teşekkürler. Sağ olun, var olun.
Saygılar,