• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Benzersizleri Bulma

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
hakki83

hakki83

Yeni Üye
Katılım
9 Ağu 2021
Mesajlar
767
Çözümler
3
Aldığı beğeni
234
Excel V
Office 2016 TR
Konu Sahibi
Merhaba

Ekteki sürekli kullandığım mükerrerleri bulan kodlar değerli hocamız İbrahim Görgülü hocamıza aittir.

Bunun tam tersini yani Benzersizleri bulacak şekilde kodu düzenleyebilir miyiz?
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
Bu şekilde değiştirebilirsiniz.

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
muygun' Alıntı:
Merhaba;
Kodlarınızı aşağıdaki şekilde revize ederek deneyin.
İyi çalışmalar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:A1000]) Is Nothing Then Exit Sub
For x = 2 To 1000
If WorksheetFunction.CountIf(Range("a2:a" & x), Cells(x, "a")) = 1 Then
Sheets("VERİLER").Cells(x, 1).Interior.Color = 255
Else
Sheets("VERİLER").Cells(x, 1).Interior.Pattern = xlNone
End If
Next
End Sub
Genişletmek için tıkla...
Muygun hocam emeğinize sağlık, her bir ismin bir tanesini işaretledi. Ama bu kod da her zaman ihtiyaç olur. Farklı bir kodumuz daha oldu. Teşekkürler.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
İbrahim Görgülü' Alıntı:
Bu şekilde değiştirebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:A1000]) Is Nothing Then Exit Sub
For x = 2 To 1000
If Application.WorksheetFunction.CountIfs(Range("A2:A1000"), Cells(x, 1)) = 1 Then
Sheets("VERİLER").Cells(x, 1).Interior.Color = 255
Else
Sheets("VERİLER").Cells(x, 1).Interior.Pattern = xlNone
End If
Next

End Sub
Genişletmek için tıkla...
İbrahim hocam emeğinize sağlık.

Kaç tane deneme yaptım.
<1 yaptım olmadı
1 olmadı
Genişletmek için tıkla...
0 lı yaptım olmadı.
-1
+1
-2
<= yaptım yine olmadı.
=1 yapmak aklıma gelmedi :)
İşte tecrübe.
Teşekkürler değerli hocamız. Konumuz çözülmüştür.

(Başlığı da yanlış yazmışım, düzeltemedim)
 
Olumlu oy 0 Negatif oyla
hakki83' Alıntı:
İbrahim hocam emeğinize sağlık.

Kaç tane deneme yaptım.
<1 yaptım olmadı

0 lı yaptım olmadı.
-1
+1
-2
<= yaptım yine olmadı.
=1 yapmak aklıma gelmedi :)
İşte tecrübe.
Teşekkürler değerli hocamız. Konumuz çözülmüştür.

(Başlığı da yanlış yazmışım, düzeltemedim)
Genişletmek için tıkla...
Rica ederim iyi çalışmalar.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst