Birden fazla veriden yanlızca bir tanesini almak

[jajiyiko]

Merhaba!

Aşağıda örnek olarak verdiğim dosyada anlatamaya çalıştım problemimi yazrak anlatmam zor olacaktı. yardımcı olursanız memnun olurum.

saygılar

 

[karadami]

istediginiz bir sey boyle birsey mi acaba ?degilse lutfen biraz daha aciklama yapin.

 

[Ali]

Sayfa2'deki D6 hücresine istediğiniz sayıyı yazarak her gruba ait kaçıncıları görmek istiyorsanız onlarıda listeletebilirsiniz.

Örnek dosya ektedir.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub AKTAR()
Dim S1, S2 As Worksheet
Dim SUT, SUT2, SON As Integer
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
S1.[A2:A1000].Interior.ColorIndex = xlNone
S2.[E8:G1000].ClearContents
For SUT = 3 To S1.Cells(65536, "A").End(3).Row
For SUT2 = 8 To S2.Cells(65536, "C").End(3).Row
If S1.Cells(SUT, "A") = S2.Cells(SUT2, "C") Then
S1.Cells(SUT, "A").Interior.ColorIndex = S2.Cells(SUT2, "C")
If WorksheetFunction.CountIf(S1.Range("A2:A" & SUT), S1.Cells(SUT, "A")) > 1 Then
S1.Cells(SUT, "A").Interior.ColorIndex = xlNone
End If
End If
Next
Next
For SUT = 3 To S1.Cells(65536, "A").End(3).Row
If S1.Cells(SUT, "A").Interior.ColorIndex <> xlNone Then
SON = SON + 1
S2.Cells(7 + SON, "C") = S1.Cells(SUT, "A").Value
Range(S2.Cells(7 + SON, "E"), S2.Cells(7 + SON, "G")) = Range(S1.Cells(SUT, "C"), S1.Cells(SUT, "E")).Value
End If
Next
Set S1 = Nothing
Set S2 = Nothing
End Sub

 

[jajiyiko]

Sevgili arkadaşlar ilginize çok teşekkür ederim.

Değerli Karadamı!
V.Basic for Applications ve Ali beyin yaptığı örnekler ihtiyacıma kesinlikle cevap veriyor.

Hepinize gerçekten teşekkür ederim. Saygılar sunarım.

 

[jajiyiko]

Problemim sizin sayenizde çözüldü

Sevgili arkadaşlar ilginize çok teşekkür ederim.

Değerli Karadamı!
V.Basic for Applications ve Ali beyin yaptığı örnekler ihtiyacıma kesinlikle cevap veriyor.

Hepinize gerçekten teşekkür ederim. Saygılar sunarım.

 

[jajiyiko]

Ali bey!

Merhaba Ali Bey!

Sizin yaptığınız örnek tam bana göre ama formülleri kendi dosyama kopyalayıp uygulamaya çalıştım fakat olmuyor. Sizin formülü aynen kopyalayıp kullanırsak oluyor ama formülde değişiklik yapınca yani kendi dosyama göre sütunları düzenleyince çalışmıyor.

Yardımcı olursanız memnun olurum.

 

[hurkanpisirici]

"BURAYA GRUP NOSUNU YAZDIĞIMDA AŞAĞIDAKİ HÜCRELERE SAYFA 1 DEKİ GRUP NO YA AİT LİSTEDEKİ SIRA NUMARASI 1 OLAN KİŞİNİN İSMİ GELSİN" dosyanızda ki açıklamada böyle yazıyor karşısında "1" yazanlar gelsin diyor ama yapılan dosyalarda grup nosu 1 olanlar geliyor benmi yanlış anlıyorum? fonksiyonlar ilgimi çektide

 

[Ali]

Dikkat ederseniz formüllerin başınnda ve sonunda { } işaretleri var bunlar dizi formülü olduğunun ifadesidir.

Formülü yazdıktan sonra direk enter tuşuna basmadan CTRL+SHIFT+ENTER tuşlarına birlikte basınız excel formül başına otomatik olarak { } ayıraçlarını ekleyecektir. Şimdi bu formülü aşağı çekerek çoğaltabilirsiniz.

 

[hurkanpisirici]

ali hocam benim soruma cevap vermediniz müsaitseniz ilgilenebilirmisiniz acaba?

 

[jajiyiko]

ALİ BEY!

Çok teşekkür ederim ilginize tam olarak şimdi işimi gördü.

Saygılar kolay gelsin

 

[Ali]

"BURAYA GRUP NOSUNU YAZDIĞIMDA AŞAĞIDAKİ HÜCRELERE SAYFA 1 DEKİ GRUP NO YA AİT LİSTEDEKİ SIRA NUMARASI 1 OLAN KİŞİNİN İSMİ GELSİN" dosyanızda ki açıklamada böyle yazıyor karşısında "1" yazanlar gelsin diyor ama yapılan dosyalarda grup nosu 1 olanlar geliyor benmi yanlış anlıyorum? fonksiyonlar ilgimi çektide

1 grupta olupta 1'nci sırada olanlar,
1 grupta olupta 2'nci sırada olanlar,

7 grupta olupta 3'üncü sırada olanlar gibi...

Bunların llistelenmesi istemiş arkadaşımız.

Sarı renkli alana 3 yazarsanız her grubun üçüncü gelir.

 

[Ali]

ALİ BEY!

Çok teşekkür ederim ilginize tam olarak şimdi işimi gördü.

Saygılar kolay gelsin

İşinizi görmesine sevindim,rica ederim.Saygılar.