Aynı satırda yinelenen değerleri işaretleme

[sympathic]

Koşullu biçimlendirme altında hücre kurallarını vurgula sekmesini kullanarak yaptığım zaman daha önceki içeriği de aklında tuttuğu için sadece aynı satırdakileri işaretlemiyor üstte benzer varsa alttaaki hücrelerde tekrar etmişse de işaretliyor benim istediğim sadece belirli bir alan için o satırdaki tekrarları bulması nasıl yapabilirim?

Örnek :

83,60 82,40 81,20
40,10 45,20 40,10 ( burada 40,10 ları bi şekilde işaretlemesi gerek)
85,20 83,60 86,20 ( benim denediğimde 83,60 işaretliyor oysa bu satırda bi tekrar yok)

sanırım anlatabilmişimdir...

Şimdiden öneriler için teşekkür ederim...

 

[ÖmerBey]

Koşullu biçimlendirme yapmak istediğiniz sütunları seçtikten sonra koşullu biçimlendirmenin formül kısmına aşağıdaki formülü uygulayınız. Verileriniz A sütunundan değil de başka bir sütundan başlıyorsa başvuruyu dosyanıza göre değiştiriniz.

=EĞERSAY(1:1;[COLOR="Red"]A[/COLOR]1)>1

 

[sympathic]

Yapamadım sanırım bu kod ile, ya da ben istediğimi eksik anlatmış olabilirim

gibi işaretli olsun istiyorum dediğim gibi koşullu biçimlendirme altından hücre kulları vurgula > yinelenen değerler dediğim de ise ;

oluyor burda ise hata şu ki tamam tekrar edenleri buluyor ama sadece o 3 lü satırda tekrar edenleri işaretlemesini istiyorum. İçeriği okuyup bütün sütunda taramasını istemiyorum. 2. örnekte mesela 5.87 yi de işaretlemiş o altta başka bi 5.87 geçtiği için işaretlenmiş oysa o satırda hepsi benzersiz...

 

[ÖmerBey]

Gönderdiğiniz 1. resme göre yazıyorum.

• B, C, ve D sütunlarını seçin.
• Koşullu biçimlendirme > Yeni Kural > Biçimlendirme için formül kullan dedikten sonra
• Formül kısmına aşağıdaki formülü uygulayın
• Biçim ayarlarından istediğiniz ayarı seçin.

=EĞERSAY(1:1;B1)>1

İyi çalışmalar...

 

[kemalist]

sayın mucit77 ekli dosyada açıklamaya çalıştığım soruma bakabilirmisiniz?

 

[sympathic]

Sanırım gerçekten beceremiyorum diye düşünürken şöyle bir hata yaptığımı fark ettim; aynı satırın devamında başka hücreler de doluymuş o yüzden bana rastgele işaretlenmiş gibi gelen alanlar aslında doğru uyarıymış çok ama çok teşekkürler tekrar...

 

[ÖmerBey]

Ekli dosyada açıklamaya çalıştığım soruma bakabilirmisiniz?

Aşağıdaki kodu deneyiniz...

Sub KOD()
Dim A8 As Range, A10 As Range, A12 As Range, A14 As Range
For a = 8 To 258
    If Cells(a, "F") <> "" And WorksheetFunction.CountIf(Range("G8:G258"), Cells(a, "F")) > 0 Then
        If A10 Is Nothing Then Set A10 = Cells(a, "F") Else Set A10 = Union(A10, Cells(a, "F"))
    ElseIf Cells(a, "F") <> "" And WorksheetFunction.CountIf(Range("G8:G258"), Cells(a, "F")) = 0 Then
        If A8 Is Nothing Then Set A8 = Cells(a, "F") Else Set A8 = Union(A8, Cells(a, "F"))
    End If
    
    If Cells(a, "G") <> "" And WorksheetFunction.CountIf(Range("F8:F258"), Cells(a, "G")) = 0 Then
        If A12 Is Nothing Then Set A12 = Cells(a, "G") Else Set A12 = Union(A12, Cells(a, "G"))
    End If
    
    If Cells(a, "G") <> "" And WorksheetFunction.CountIf(Range("H8:H258"), Cells(a, "G")) = 0 Then
        If A14 Is Nothing Then Set A14 = Cells(a, "G") Else Set A14 = Union(A14, Cells(a, "G"))
    End If
Next

Range("A8").Copy
A8.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Range("A10").Copy
A10.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Range("A12").Copy
A12.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Range("A14").Copy
A14.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False
End Sub

 

[kemalist]

sayın mucit77 4 nolu şart yani "G sütunundaki isimlerden H sütununda yoksa A14 daki gibi olsun"
G sütunundaki isimlerden hem F sütununda hemde H sütununda yoksa A14 daki gibi olsun
şeklinde değiştirebilirmisiniz?İlginiz için teşekkür ederim.

 

[veyselemre]

sayın mucit77 4 nolu şart yani "G sütunundaki isimlerden H sütununda yoksa A14 daki gibi olsun"
G sütunundaki isimlerden hem F sütununda hemde H sütununda yoksa A14 daki gibi olsun
şeklinde değiştirebilirmisiniz?İlginiz için teşekkür ederim.

sayın mucit77 çok güzel kod yazmış, bazı kontrolleri kaldırdım biraz daha hızlı çalışabilir.

Sub KOD()

    Dim A8 As Range, A10 As Range, A12 As Range, A14 As Range

    Set A8 = Range("A8")
    Set A10 = Range("A10")
    Set A12 = Range("A12")
    Set A14 = Range("A14")

    fSon = Cells(Rows.Count, "F").End(3).Row
    gSon = Cells(Rows.Count, "G").End(3).Row
    
    Set f = Range("f8:f" & fSon)
    Set g = Range("g8:g" & gSon)
    Set h = Range("h8:h" & Cells(Rows.Count, "H").End(3).Row)

    Set wF = WorksheetFunction
    
    For a = 8 To fSon
        If Cells(a, "F") <> "" Then
            If wF.CountIf(g, Cells(a, "F")) = 0 Then
                Set A8 = Union(A8, Cells(a, "F"))
            Else
                Set A10 = Union(A10, Cells(a, "F"))
            End If
        End If
    Next
    
    For a = 8 To gSon
        If Cells(a, "G") <> "" Then
            If wF.CountIf(f, Cells(a, "G")) = 0 Then
                If wF.CountIf(h, Cells(a, "G")) = 0 Then
                    Set A14 = Union(A14, Cells(a, "G"))
                Else
                    Set A12 = Union(A12, Cells(a, "G"))
                End If
            End If
        End If
    Next

    Range("A8").Copy
    A8.PasteSpecial Paste:=xlPasteFormats

    Range("A10").Copy
    A10.PasteSpecial Paste:=xlPasteFormats

    Range("A12").Copy
    A12.PasteSpecial Paste:=xlPasteFormats

    Range("A14").Copy
    A14.PasteSpecial Paste:=xlPasteFormats

    Application.CutCopyMode = False

End Sub

 

[kemalist]

Teşekkürler veyselemre tam istediğim gibi olmuş...