özel bir birleştirme formülü lazım

[esrefgul44]

Arkadaşlar ekli dosyada istediğim şeyi ilgili hücreye kırmızı renkle yazdım. acilen yardımcı olursaniz sevinirim.

 

[karadami]

aynı suç numarasına sahip isimlerin hepsinin beraber tek bir hücreye yazılması mı istediğiniz ?

 

[esrefgul44]

evet, iki ayrı sayfadaki a sütununun değerleri eşleştiğinde, bir sayfadaki B sütununda aynı suç numaralı kişilerin diğer bir sayfada tek hücreye birleştirerek yazmasını istiyorum, bu saatteki ilginize teşekkürler ...

 

[karadami]

bir sorum daha olacak. kac tane suc dosyası mevcut acaba ? ben suan formullerle 10 taneye gore yapıyorum. eğer çok daha fazla ise macro ile yapmayı deniyeceğim fakat garanti veremem

 

[esrefgul44]

suç dosyası çok ancak suç numarası aralığına göre access den bu excel dosyasına veri atıyorum, yani excel dosyası verileri her seferinde değişiyor, diğer ir deyişle dosyanın her iki sayfasının da a sütunlarındaki suç numaraları ve doğal olarak da diğer tüm bilgiler yenileniyor , bu anlatımlarıma göre mümkünse hücrelerdeki değerleri yani a5 hücresi 2008/0001 olduğunda diğer sayfadaki a2:a20 aralığında 2008/0001 olanlara eşitlendiğinde b1:b20 aralığını birleştir mantığında formül olmaması gerekiyor

işimi görecek olan şu , ayrı iki sayfadaki sütunlarda varolan değerler (farklı satırlarda tekrarlanabilir) aynı ise, bir sayfadaki diğer sütunda yazılı ad soyadlar öbür sayfanın tek hücresine birleştirilerek yazılsın, genel bir formül olmalı ki suç numaraları sürekli değiştiğinde suç numarası ölçütüne bağlı olmasın

 

[esrefgul44]

20 numaralı yaptım dediğiniz dosyayı ekli gönderebilirmisiniz acaba

 

[karadami]

o zaman dediğim gibi macro ile yapılması uygun olur. fakat az önce de dediğim gibi macro le yapmak benim için biraz(bayağ&#305 zor olacak. yinede yapmaya çalışacağım fakat uzman arkadaşlarımızın benden çok daha hızlı ve fazla yardımcı olabilecekleri görüşündeyim. yani kısaca benden fazla ümitlenmeyin

 

[esrefgul44]

ilginize teşekkürler, dün excel e yeni başlayanlar alanından gönderdim, 2 gündür sizden başka ilgilenen olmadı, forum a dün üye oldum, pek kullanmasını da bilmiyorum diğer uzman arkadaşlara sorunumu siz iletebilirseniz çok sevnirim hayırlı geceler

 

[karadami]

20 numaralı yaptım dediğiniz dosyayı ekli gönderebilirmisiniz acaba

üzgünüm fakat mesajı okuduktan sonra boyle olmayacak diyerek silmiş bulundum. ama kısaca anlatayım. ekli dosyadaki örneği mağdurlar sayfasında (ek satırlar kullanarak) uyarlayıp daha sonra suç defteri sayfasında birleştir komutuyla yapmıştım.

 

[esrefgul44]

Arkadaşlar ekli dosyada istediğim şeyi ilgili hücreye kırmızı renkle yazdım. acilen yardımcı olursaniz sevinirim.

LÜTFEN YARDIMCI OLURMUSUNUZ ?

 

[Orion1]

LÜTFEN YARDIMCI OLURMUSUNUZ ?

Ekli dosyayı inceleyiniz.

 

[Ferhat Pazarçevirdi]

Merhabalar

Aşağıdaki kodları, standart bir modül sayfasına kopyalayınız.

Function Magdurlar(sucno As String)
Dim sh As Worksheet
Dim metin As String
Set sh = Sheets("MAĞDURLAR")
For i = 2 To sh.Cells(65536, 1).End(xlUp).Row
    If sh.Cells(i, 1) = sucno Then: metin = sh.Cells(i, 2) & ", " & metin
Next i
Magdurlar = Mid(metin, 1, Len(metin) - 2)
Set sh = Nothing
End Function

Daha sonra; H5 hücresine aşağıdaki formülü yazıp, aşağıya doğru kopyalayınız.

=Magdurlar(A5)

veya ekteki dosyayı inceleyiniz.

 

[esrefgul44]

sayın fpc , 3 gündür bu cevabı bekliyordum, emeğinize çok çok teşekkürler....

 

[Orion1]

sayın fpc , 3 gündür bu cevabı bekliyordum, emeğinize çok çok teşekkürler....

Bize teşekkür yokmu?

 

[esrefgul44]

Bize teşekkür yokmu?

ne demek sevinçten sizin msj görememişim özür dilerim , bu forumda bilgisini paylaşan tüm arkadaşların emeğine saygım sonsuz, hepinize teşekkürler ....

 

[Orion1]

ne demek sevinçten sizin msj görememişim özür dilerim , bu forumda bilgisini paylaşan tüm arkadaşların emeğine saygım sonsuz, hepinize teşekkürler ....

Rica ederim.
İyi çalışmalar.

 

[esrefgul44]

Merhabalar

Aşağıdaki kodları, standart bir modül sayfasına kopyalayınız.

Function Magdurlar(sucno As String)
Dim sh As Worksheet
Dim metin As String
Set sh = Sheets("MAĞDURLAR")
For i = 2 To sh.Cells(65536, 1).End(xlUp).Row
    If sh.Cells(i, 1) = sucno Then: metin = sh.Cells(i, 2) & ", " & metin
Next i
Magdurlar = Mid(metin, 1, Len(metin) - 2)
Set sh = Nothing
End Function

Daha sonra; H5 hücresine aşağıdaki formülü yazıp, aşağıya doğru kopyalayınız.

=Magdurlar(A5)

veya ekteki dosyayı inceleyiniz.

SN. fpc

3 ayrı sütun için bu modülden 3 tane yaptım

bu karşılaştırma modülü neticesi değer bulnamadağında hücreye hatalı değer göründüğünden bana ayrıca ;
1 sütunum için bu hücreye " K.H. " yazmasını
ve
2 ile 3 sütunlarım için de hata-değer göstermeyip boş olmasını da ekleyebilirmisiniz, şimdiden ilgi emeğinize teşekkürler ...

 

[Ferhat Pazarçevirdi]

Üç ayrı sütun işini anlayamadım.

Örnekler misiniz?

 

[esrefgul44]

sn. fpc

sizin önerdiğiniz makroyu modul1 modul2 modul3 olarak ayrı ayrı H, I, J sütunları için uyguladım, güzel de oldu ekte tekrar gönderiyorum

iki sayfa arasındaki karşılaştırma neticesi bir suç numarasının diğer sayfada mağduru yoksa birleştirme yapamadığı için *´#DEĞER! hatasını görüntülemekte olması nedeniyle şimdi ihtiyacım olan şey birleştirme değeri bulamayan hücrede

1. H sütunundaki hücreler için; K.H. metnini yazmasını
2. I ve J sütunlarındaki hücrelerin ise tamamen boş görüntülenmesi

tşk..

 

[Ferhat Pazarçevirdi]

Elinizdeki tüm kodları siliniz ve aşağıdaki kodları bir modül sayfasına kopyalayınız.

Function [B]Magdurlar[/B](sucno As String)
Dim sh As Worksheet
Dim metin As String
Set sh = Sheets("Müştekiler")
Application.Volatile (True)
For i = 2 To sh.Cells(65536, 1).End(xlUp).Row
    If sh.Cells(i, 1) = sucno Then: metin = sh.Cells(i, 2) & ", " & metin
Next i
If metin = Empty Then
   Magdurlar = "K.H"
Else
   Magdurlar = Mid(metin, 1, Len(metin) - 2)
End If
Set sh = Nothing
End Function
 
Function [B]MagdurBabalar[/B](sucno As String)
Dim sh As Worksheet
Dim metin As String
Set sh = Sheets("Müştekiler")
Application.Volatile (True)
For i = 2 To sh.Cells(65536, 1).End(xlUp).Row
    If sh.Cells(i, 1) = sucno Then: metin = sh.Cells(i, 3) & ", " & metin
Next i
If metin = Empty Then
   MagdurBabalar = ""
Else
   MagdurBabalar = Mid(metin, 1, Len(metin) - 2)
End If
Set sh = Nothing
End Function
 
[B]Function MagdurTC[/B](sucno As String)
Dim sh As Worksheet
Dim metin As String
Set sh = Sheets("Müştekiler")
Application.Volatile (True)
For i = 2 To sh.Cells(65536, 1).End(xlUp).Row
    If sh.Cells(i, 1) = sucno Then: metin = sh.Cells(i, 4) & ", " & metin
Next i
If metin = Empty Then
   MagdurTC = ""
Else
   MagdurTC = Mid(metin, 1, Len(metin) - 2)
End If
Set sh = Nothing
End Function