• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

EĞER VE ile yapamadım

Merhaba

A1 hücresine yapıştırıp aşağı doğru çoğaltın
=EĞER(EĞERSAY($B$1:$B$13;B1)>1;"x";"")

B sütunundaki değerin yanına "x" koymak yerine dolgu rengini değiştirmek daha doğru olmaz mı? Mükerrer kayıtlar diye arama yaparsanız örnek bulabilirsiniz.
 
mersilen' Alıntı:
Merhaba

A1 hücresine yapıştırıp aşağı doğru çoğaltın
=EĞER(EĞERSAY($B$1:$B$13;B1)>1;"x";"")

B sütunundaki değerin yanına "x" koymak yerine dolgu rengini değiştirmek daha doğru olmaz mı? Mükerrer kayıtlar diye arama yaparsanız örnek bulabilirsiniz.
Genişletmek için tıkla ...

desteğiniz için teşekkürler ama amacım mükerer olanları bulmak değil.
ben bir veriyi işartelersem o sütündaki aynı verilerin işaretlenmesini istiyorum.
verdiğiniz formül dolayısyla benim içimi görmüyor
 
Bu kodu deneyin.
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
son = Cells(Rows.Count, "B").End(3).Row
If Intersect(Target, Range("A1:A" & son)) Is Nothing Then Exit Sub
If Cells(Target.Row, "A") = "x" And WorksheetFunction.CountIf(Range("B1:B" & son), Cells(Target.Row, "B")) > 1 Then
deger = Cells(Target.Row, "B")
  For Each hucre In Range("B1:B" & son)
  If hucre = deger Then Cells(hucre.Row, "B") = deger & "   x  "
  Next
End If
End Sub
 
malesef olmadı arkadaşım.
gönderdiğim dosya üzerinde yapsanız belki ordan aktarabiliirm
 
A sütununa işlem yaptırmak istediğimde devamlı hata aldım. İşareti A sütununda belirledikten sonra , aynı olanlar için C sütununa işaret koymasını isterseniz.

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

Dim k As Range, adr As String
If Target.Column <> 1 Then Exit Sub
son = Cells(Rows.Count, "b").End(3).Row
Set k = Range("b1:b" & son).Find(Target.Offset(0, 1).Value, Cells(Target.Row, Target.Column + 1), xlValues, xlWhole)
If Not k Is Nothing Then
    adr = k.Address
    Do
   'If Cells(Target.Row, Target.Column + 1).Address = k.Address Then Exit Sub
   
        Range(k.Address).Offset(0, 1).Value = Target.Value
        Set k = Cells.FindNext(k)
        
    Loop While Not k Is Nothing And adr <> k.Address
End If


End Sub
 
merhaba
İnceleyin
 

Ekli dosyalar

mersilen' Alıntı:
merhaba
İnceleyin
Genişletmek için tıkla ...

Dosyayı zorbey üye sayesinde indirdim, inceledim.

Sizin yaptığınız çözüm verileri X ile birleştirmek olmuş. Sanırım hem A sütununa veri girişi yapmak hem de orda sonuç almak zor. Onun yerine şöyle bir pratik durum da benim işimi çözer

veriler C sütununda olsun
A sütuna işaret koyduğum satırda bulunan verilerden aynısı varsa B sütununda yanına X konsun.

yine gönderdiğim dosya üzerinde yaparsanız memnun olurum.

https://mega.co.nz/#!L80AzT5I!mkHhI8C8lo8ShlXMt0QsM_gxHd6_NE3zQV_Vyl_P4TU
 
ilgilenen yok mu acaba? Üstadlar biraz ilgilendi ama sonrası gelmedi.
Sorun hala çözülmedi, teşekkürler
 
malesef bu çözüm işimi görmüyor. "kavun" yazılan veriler "kavun x" olarak birleşmiş. Bu durum benim işimi çözmüyor. makronun atadığı o "x" işaretinin verinin sağındaki veya solundaki (farketmez) satırda olması gerekiyor.
Bence birleştirmek daha zordu, onu yaptığınıza göre bunu daha kolay yaparsınız. Selamlar, saygılar
 
Benim yukarıda gönderdiğim kod işinizi görecektir.A sutununa ısaret koyun c sutununda aynı degerlerı ısaretleyecektır.
 
teşekkürler Kuvari bey,
acaba kodu

B sütununa işaret konulunca A sütunu işaretlensin şeklinde güncelleyebilir misiniz?
Ben yapmaya çalıştım, çorba gibi oldu başaramadım

veriler C sütununda
Ben işareti B sütununa koyuyorum
Makro "x" ları A sütununa koysun

selamlar, saygılar
 
alternatif olsun c sutununa göre

Kod: 
Sub xle()
Range("a:a").ClearContents
Application.ScreenUpdating = False
    For i = 1 To Range("c65536").End(3).Row
        If Cells(i, 2) = "x" Then
            For y = 1 To Range("c65536").End(3).Row
                If Cells(i, 3) = Cells(y, 3) Then
                    Cells(y, 1) = "x"
                End If
            Next y
        End If
    Next i
Application.ScreenUpdating = True
End Sub
 
Sayın meleklerim Dosyayı değiştirdim
tekrar denermisiniz lütfen.
 
Son düzenleme:
ZorBey_' Alıntı:
Sayın meleklerim Dosyayı değiştirdim
tekrar denermisiniz lütfen.
Genişletmek için tıkla ...

süper, tüm işimi gördü. çok teşekkürler yardımcı olduğunuz için.
tek bir hatası var
bir hücreyi x yapınca diğer hücrelerde x oluyor AMA o hücredeki x i silince diğer hücreler de x kalmaya devam ediyor.

onun için bir ek satır yapılabilir se çok güzel olacak yoksa bu haliyle hatalı işaretlememeye çalışırım
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst