• DİKKAT

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

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

E

esrefgul44

Katılım
10 Şubat 2008
Mesajlar
21
Excel Vers. ve Dili
Office 2000
Arkadaşlar ekli dosyada istediğim şeyi ilgili hücreye kırmızı renkle yazdım. acilen yardımcı olursaniz sevinirim.
 
aynı suç numarasına sahip isimlerin hepsinin beraber tek bir hücreye yazılması mı istediğiniz ?
 
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 ...
 
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 :D
 
Son düzenleme:
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
 
Son düzenleme:
20 numaralı yaptım dediğiniz dosyayı ekli gönderebilirmisiniz acaba
 
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ğı) 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 :(
 
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
 
esrefgul44' Alıntı:
20 numaralı yaptım dediğiniz dosyayı ekli gönderebilirmisiniz acaba
Genişletmek için tıkla ...

ü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.
 
Merhabalar

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

Kod: 
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.
 
sayın fpc , 3 gündür bu cevabı bekliyordum, emeğinize çok çok teşekkürler....
 
fpc' Alıntı:
Merhabalar

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

Kod: 
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.
Genişletmek için tıkla ...

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 ...
 
Üç ayrı sütun işini anlayamadım.

Örnekler misiniz?
 
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..
 
Elinizdeki tüm kodları siliniz ve aşağıdaki kodları bir modül sayfasına kopyalayınız.

Kod: 
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
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst