aynı isme ait beş veriyi tek hücrede toplama

[peleryn]

Herkese Merhabalar;

Ek'li dosyamda bir sayfada bulunan isimlerin her birinden 5 er tane mevcut.Ve bu 5 ismin her birine atanmış 5 ayrı sayısal değer var.Bir başka sayfaya her ismi bir tane alıp sağındaki hücrede de bu isme ait sayısal değerleri birleştirmek istiyorum.

İlgilenecek olanlara şimdiden çok teşekkür ederim.

 

[halit3]

Herkese Merhabalar;

Ek'li dosyamda bir sayfada bulunan isimlerin her birinden 5 er tane mevcut.Ve bu 5 ismin her birine atanmış 5 ayrı sayısal değer var.Bir başka sayfaya her ismi bir tane alıp sağındaki hücrede de bu isme ait sayısal değerleri birleştirmek istiyorum.

İlgilenecek olanlara şimdiden çok teşekkür ederim.

bunu denermisiniz.

Sub aktar()
Sheets("SMS").Range("A2:C65000").ClearContents
sat = 2
For r = 1 To Worksheets("Sayfa2").[b65536].End(3).Row
aranan1 = Sheets("Sayfa2").Cells(r, 2).Value
say1 = ""
say2 = ""
son = 0
If Sheets("Sayfa2").Cells(r, 2).Value <> "" Then
If WorksheetFunction.CountIf(Worksheets("Sayfa2").Range("B1:B" & r), aranan1) = 1 Then
For i = r To Worksheets("Sayfa2").[b65536].End(3).Row
aranan2 = Sheets("Sayfa2").Cells(i, 2).Value
If aranan2 = aranan1 Then
If say1 = "" Then
ekle = ""
Else
ekle = " , "
End If
If say2 = "" Then
ekle2 = ""
Else
ekle2 = " , "
End If
son = son + 1
If son > 5 Then
son = 0
say2 = say2 & ekle2 & Sheets("Sayfa2").Cells(i, 3).Value & ":" & Sheets("Sayfa2").Cells(i, 1).Value
Else
say1 = say1 & ekle & Sheets("Sayfa2").Cells(i, 3).Value & ":" & Sheets("Sayfa2").Cells(i, 1).Value
End If
End If
Next i
Sheets("SMS").Cells(sat, 1).Value = Sheets("Sayfa2").Cells(r, 2).Value
Sheets("SMS").Cells(sat, 2).Value = say1
Sheets("SMS").Cells(sat, 3).Value = say2

sat = sat + 1
End If
End If
Next r
MsgBox "işlem tamam"
End Sub

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Private Sub CommandButton1_Click()
Sheets("sms").Range("a1:b65536").ClearContents
For i = 1 To Range("a65536").End(xlUp).Row Step 5
For j = 0 To 4
veri = veri & " / " & Cells(i + j, 3).Text & ":" & Cells(i + j, 1).Value
Next j
k = k + 1
Sheets("sms").Cells(k, 1) = Cells(i, 2).Text
Sheets("sms").Cells(k, 2) = veri
veri = ""
Next i
End Sub

 

[peleryn]

Halit3 ve uzmanamele hocalarım çok teşekkür ediyorum.İkisi de sorunumu çözüyor.Yalnız sayın uzmanamele sizin kodlarınızda 4 kod'u almış KOD E:... kısımları alınmamış hallederim dedim ama denedim yapamadım malesef..

 

[uzmanamele]

Halit3 ve uzmanamele hocalarım çok teşekkür ediyorum.İkisi de sorunumu çözüyor.Yalnız sayın uzmanamele sizin kodlarınızda 4 kod'u almış KOD E:... kısımları alınmamış hallederim dedim ama denedim yapamadım malesef..

merhaba

haklısınız, dikkat etmemişim.
syn halit3'ün kodlarına alternatif olsun.
kodu revize ettim, deneyiniz.

 

[Korhan Ayhan]

Selamlar,

Gerçi siz sorunuzu makrolar bölümüne sormuşsunuz ama örnek dosyanızı inceleyince bende formüllerle bir çözüm hazırladım. Alternatif olarak incelermisiniz.

Sayfa2 de D sütunu yardımcı sütun olarak kullanılmıştır.

 

[peleryn]

merhaba

haklısınız, dikkat etmemişim.
syn halit3'ün kodlarına alternatif olsun.
kodu revize ettim, deneyiniz.

uzmanamele hocam revize ettiğiniz kodlrı uyguladım gayet güzel çalışıyor teşekkür ederim.

Korhan hocam tam bir formül fuarı olmuş inşallah oturup fırsat bulursam uzun uzadıya inceleyeceğim kurduğunuz sistemi.Teşekkür ederim ellerinize sağlık..

 

[halit3]

İsimler 5 den fazla olsa ne olacak birde isimler listenin karışık satırlarında olsa doğru sonuç verirmi.?

 

[peleryn]

İsimler 5 den fazla olsa ne olacak birde isimler listenin karışık satırlarında olsa doğru sonuç verirmi.?

Halit hocam anladığım kadarıyla soru bana değil.Ama tam bu arada sizlere teşekkür mahiyetinde bir konuyla araya girmek istiyorum.

Bizler soru sorarken önümüze takılan ilk engeli düşünüp nasıl aşabileceğimizi soruyoruz.Ancak siz uzmanlarımız çok profesyonelce bir yaklaşımla sorumuza ileriyi ön görerek kendi sorularınızı katıp ortaya çıkacak olası problemleri de ön gören çözümler üretiyorsunuz.Bu kesinlikle hayranlık verici.Kendi adıma bu duruma karşı duyduğum hayranlığı ve teşekkürü iletmeyi borç bilirim.

 

[halit3]

2 nolu mesajdaki kodu yeniden düzenledim isimler 5 den fazla olursa fazlasını C sütununa aktaracak. diğer taraftan sıralama rasgele bile olsa bulduğu ilk 5 ismi değerlendirmeye alacaktır.

 

[Korhan Ayhan]

Selamlar,

Halit bey soruda sabit değerler verildiği için formüllerle çözüm hazırladım. Tabiki sizin çözümünüz daha esnek. Tablo karışık sıralamada olursa formüllerle yine çözüm bulunabilir fakat yardımcı sütunlar kullanmak gerekebilir. Bu da çoğu kimsenin tercih etmediği bir durumdur. Ben sadece makrolara alternatif olması açısından böyle bir çözüm sundum.

Kolay gelsin.

 

[halit3]

Korhan Bey alternatif çözümler her zaman iyidir değişik fikirler verir ben yanlızca soruyu soran Sayın Peleryn' e yönetmiştim sorumu. Umarım çözümler kendisine yararlı olur

İYİ ÇALIŞMALAR DİLİYORUM.

 

[peleryn]

Halit Hocam sorduğunuz soruda çok haklısınız.Üstüme almadım ilk önce ama banaymış sorunuz.Elbetteki tartışılmaz bir biçimde bu son haliyle çok daha işlevsel oldu.Bir isimden sıralı olarak 6 tane bir başka isimden de 6.yı en sona yazarak denedim sonuç mükemmel.
Dosyam şu anda Korhan Hocam'ında algıladığı gibi veri biçiminin sabit olduğu eklendiği gibi bir sisteme sahip.Ama sizin sağladığınız esneklik dosyayı çok daha işlevsel bir hale getiriyor.Çok teşekkür ediyorum ellerinize sağlık.

 

[uzmanamele]

Halit Hocam sorduğunuz soruda çok haklısınız.Üstüme almadım ilk önce ama banaymış sorunuz.Elbetteki tartışılmaz bir biçimde bu son haliyle çok daha işlevsel oldu.Bir isimden sıralı olarak 6 tane bir başka isimden de 6.yı en sona yazarak denedim sonuç mükemmel.
Dosyam şu anda Korhan Hocam'ında algıladığı gibi veri biçiminin sabit olduğu eklendiği gibi bir sisteme sahip.Ama sizin sağladığınız esneklik dosyayı çok daha işlevsel bir hale getiriyor.Çok teşekkür ediyorum ellerinize sağlık.

merhaba
5. mesaj syn halit3'ün kodlarına alternatif olsun derken; esasında isimlerin karışık ve farklı sayıda olduğu durumlar için Halit beyin kodlarını kullanın demek istemiştim.
yoksa Halit beyde 5-10 satırlık kod ile hallederdi.
bu gibi durumlarda acaba aradaki fark nedir diye sorgulamanızda fayda var.

 

[peleryn]

merhaba
5. mesaj syn halit3'ün kodlarına alternatif olsun derken; esasında isimlerin karışık ve farklı sayıda olduğu durumlar için Halit beyin kodlarını kullanın demek istemiştim.
yoksa Halit beyde 5-10 satırlık kod ile hallederdi.
bu gibi durumlarda acaba aradaki fark nedir diye sorgulamanızda fayda var.

Hocam haklısınız ancak "alternatif bir çözüm" olarak nitelendirildiğinde aynı işi yapan bir başka yol olduğu düşüncesi haliyle ağır basıyor.Bu bağlamda daha uzman olan kişilerin aradaki farklara dikkat edilmesini sağlayacak yönlendirmeler yapması sanırım konuya çok hakim olmayan bizlerin böyle ayrıntıları kaçırma olasılığını azaltacaktır.

Bu konudaki destekleriniz için size Halit ve Korhan hocalarıma çok teşekkür ediyorum.