Tekrarlanan değerleri aratıp listelemek

[thesas]

Selamlar

Belki aynı soru sorulmuştur ancak epeyce aramama rağmen bulamadım, bu sebeple ekli yeni konu açmak zorunda kaldım. Sorumu ekli dosyada belirttim buradan da yineleyeyim ki dosyayı indirmek zorunda kalmayınız.

Yatay ve düşeyde bir sayıyı aratıp misal "12" gibi bu sayının bulunduğu tüm satırları başka bir sayfada veya aynı sayfada listelemek istiyorum. Bunu yapmanın bir yolu var mıdır? Şimdiden yardımcı olacak arkadaşlara teşekkür ederim.

 

[Huseyinkis]

Selamlar

Belki aynı soru sorulmuştur ancak epeyce aramama rağmen bulamadım, bu sebeple ekli yeni konu açmak zorunda kaldım. Sorumu ekli dosyada belirttim buradan da yineleyeyim ki dosyayı indirmek zorunda kalmayınız.

Yatay ve düşeyde bir sayıyı aratıp misal "12" gibi bu sayının bulunduğu tüm satırları başka bir sayfada veya aynı sayfada listelemek istiyorum. Bunu yapmanın bir yolu var mıdır? Şimdiden yardımcı olacak arkadaşlara teşekkür ederim.

Ekli dosyayı incelermisiniz.

 

[hamitcan]

Sub UyanlariGetir()
    [m6:s5000].Clear
    c = 5
    For i = 1 To [a65536].End(3).Row
        If WorksheetFunction.CountIf(Range("c" & i & ":" & "h" & i), [m3]) = 1 Then
            c = c + 1
            Cells(c, "m") = Cells(i, "a")
            Range("n" & c & ":" & "s" & c) = Range("c" & i & ":" & "h" & i).Value
        End If
    Next
    MsgBox "Bitti"
End Sub

 

[thesas]

Ekli dosyayı incelermisiniz.

İnceledim fakat formül göremedim sanırım siz yüklerken bir hata oluşmuş

 

[thesas]

Sub UyanlariGetir()
    [m6:s5000].Clear
    c = 5
    For i = 1 To [a65536].End(3).Row
        If WorksheetFunction.CountIf(Range("c" & i & ":" & "h" & i), [m3]) = 1 Then
            c = c + 1
            Cells(c, "m") = Cells(i, "a")
            Range("n" & c & ":" & "s" & c) = Range("c" & i & ":" & "h" & i).Value
        End If
    Next
    MsgBox "Bitti"
End Sub

Cevabınız için teşekkürler hemen denemeye koyulayım.

 

[Huseyinkis]

İnceledim fakat formül göremedim sanırım siz yüklerken bir hata oluşmuş

12 yazdığınız yerdeki rakamı değiştirin .. M3 hücresi

 

[thesas]

12 yazdığınız yerdeki rakamı değiştirin .. M3 hücresi

Maalesef dosyayı indirdiğimde formül görünmüyor, rakamı değiştirdiğim de değişen bir şey yok. İndirirken bir problem oluşuyor olabilir sanırım.

 

[thesas]

Sayın Hüseyinkis hata benim pc den kaynaklanıyormuş başka pc de deneyince çalıştı. Emeğiniz için teşekkürler

 

[thesas]

Sayenizde hallettim emeği geçen arkadaşlara teşekkürler