benzer olanlar...

[karakayalı]

sütunları karşılaştırıp aynı olanları K sütununa yazdırmak istiyorum...kolay gelsin...dosya ektedir

 

[hergelex]

sütunları karşılaştırıp aynı olanları K sütununa yazdırmak istiyorum...kolay gelsin...dosya ektedir

benzer olanlardan kastınız nedir her sütunda ortak olan sayıları sıralı olarak k sütununa mı yazdırmak istiyorsunuz?

eğer öyleyse 30 tüm sutunlarda yok sadece 3 sütundan mevcut, detaylı bilgi verebilir misiniz ve kullanım amacını açıklarsanız daha iyi çözüm üretmeye çalışabiliriz...

 

[karakayalı]

sütunları karşılaştırıp ortak olanlaı bulmak istiyorum, a sütunu ile h sütunu arasındaki benzer kayıtları listelenmesini istiyorum...30 sayısını h sütununa kadar devam ettirebiliriz...

 

[leumruk]

Merhaba,

Sub benzer()
Sat = 1
For Each x In Range("a1:h11")
If WorksheetFunction.CountIf(Range("a1:h11"), x) > 1 And _
WorksheetFunction.CountIf(Range("k1:k" & [k65536].End(3).Row), x) = 0 Then
Cells(Sat, "k") = x
Sat = Sat + 1
End If
Next
End Sub

 

[karakayalı]

syn leumruk, yeni bir dosya ekledim...kolay gelsin..

 

[Ömer]

Merhaba,

Formülle çözüm işinize yararsa aşağıdaki gibi kullanabilirsiniz..

J1 hücresine,

=TOPLA.ÇARPIM(--(EĞERSAY($B$1:$D$100;$A$1:$A$100)>=3))

yazdıktan sonra K1, hücresine aşağıdaki formülü yazarak alt hücrelere kopyalayınız..

=EĞER(SATIR(A1)>$J$1;"";İNDİS($A$1:$A$100;KÜÇÜK(EĞER(EĞERSAY($B$1:$D$100;$A$1:$A$100)>=3;SATIR($A$1:$A$100));SATIR(A1))))

Bu formül Dizi formülüdür. Formülü hücreye yazdıktan sonra ctrl shift enter ile girişini tamamlayınız..

.

 

[karakayalı]

syn ömer. makro ile yazabilirmiyiz...kolay gelsin

 

[Ömer]

syn ömer. makro ile yazabilirmiyiz...kolay gelsin

Sayın leumruk'un yazdığı kodları aşağıdaki gibi değiştiriniz..

Sub benzer()
Sat = 1
[K:K].ClearContents
For Each x In Range("A1:A100")
If WorksheetFunction.CountIf(Range("B1:D100"), x) >= 3 Then
Cells(Sat, "k") = x
Sat = Sat + 1
End If
Next
End Sub

.

 

[tuana26]

3
2
2
3
3
3
1
3
3
2
3
3
0
2
2
2
3
1
0
0
3
3
5
5
?
benim sorum sütundaki sayılardan sadece 3 olan rakamların adetini verebilecek formül önerebilirmisiniz.

 

[Ali]

=eğersay(a1:a100;3)

 

[tuana26]

teşekkür ederim Ali bey

 

[karakayalı]

teşekkürler ömer bey...