Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Fonksiyonlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Fonksiyonlar Bir fonksiyonun, nasıl işlediğini veya aradığınız bir işleme uygun olup olmadığını bu başlık altında sorabilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 14-05-2015, 16:36   #1
qbilay06
Altın Üye
 
Giriş: 18/02/2009
Şehir: İstanbul
Mesaj: 98
Excel Vers. ve Dili:
Office 2013 Tr
Varsayılan Aynı kişilere ait metinleri birleştirme

Merhaba,

E sütunundaki metin alanına;

A sütunundaki isimlere göre aynı isimlerin karşısındaki metinleri tek hücre içinde

yazdırmak istiyorum.


Birleştir, indis ve kaçıncı formülleri ile yapmaya çalışsam da başarılı olamadım.

İlgilenenlere şimdiden teşekkür ederim.

Sağlıkla kalın.
Eklenmiş Dosyalar
Dosya Türü: xlsx 2015 05 14 BULMA.xlsx (10.1 KB, 16 Görüntülenme)
qbilay06 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-05-2015, 17:07   #2
kuvari
Destek Ekibi
 
kuvari kullanıcısının avatarı
 
Giriş: 04/05/2007
Şehir: İstanbul
Mesaj: 2,633
Excel Vers. ve Dili:
OFİS 2013 TÜRKÇE-İNG. 64 BİT
Varsayılan

Merhaba,

Boş bir modüle ktf kodunu ekleyin,

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Function birles(alan As Range, hedef As Range)

Application.Volatile
For Each x In alan

If x = hedef Then

sonuc = sonuc & " " & x.Offset(0, 1)

End If

Next

birles = VBA.Trim(sonuc)
End Function
kullanımı

=birles(alan;hedef)

alan kısmına isimleri tarayın, hedef kısmına istenendeki tek hücreyi tıklayın ve diğer hücrelere uygulayın.

Yerleşik fonksiyonlarla bir kerede yapmak imkansız, yardımcı sütun kullanmak gerekir.
__________________
Bilgi kadar zenginlik, cehalet kadar yoksulluk yoktur.
(Hz. Ali)
kuvari Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-05-2015, 17:10   #3
qbilay06
Altın Üye
 
Giriş: 18/02/2009
Şehir: İstanbul
Mesaj: 98
Excel Vers. ve Dili:
Office 2013 Tr
Varsayılan

Teşekkür ederim Kuvari,

çözümü fonksiyonlar yardımı ile neticelendirme imkanımız olabilir mi?
qbilay06 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-05-2015, 21:15   #4
bzace
 
bzace kullanıcısının avatarı
 
Giriş: 23/09/2013
Şehir: İstanbul
Mesaj: 1,335
Excel Vers. ve Dili:
Excel 2007 İngilizce - Excel 2010 Türkçe - Excel 2013 Türkçe -
Varsayılan

Merhabalar,
Formüller ile yapmak mümkündür. Gerektiği kadar yardımcı sütun yada bir formülün içerisinde aynı döngüyü döndürmek yeterlidir.

Bu dediklerim harici formüller ile yapılamaz.
__________________
BEDAVA PEYNİR sadece FARE KAPANINDA var!
bzace Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-05-2015, 21:45   #5
veyselemre
Özel Üye
 
veyselemre kullanıcısının avatarı
 
Giriş: 09/03/2005
Şehir: ÇUBUK
Mesaj: 2,238
Excel Vers. ve Dili:
Excel 2003-tr
Varsayılan

Fonkisoyonlarla çözüm istenmiş ama, örnek olması açısından ekledim.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub grupla()
   Range("d3:e" & Rows.Count).ClearContents
    al = Range("A3:B" & Cells(Rows.Count, 1).End(3).Row)
    With CreateObject("scripting.dictionary")
        For i = 1 To UBound(al, 1)
            .Item(al(i, 1)) = Trim(.Item(al(i, 1)) & " " & al(i, 2))
        Next i
        [d3].Resize(.Count).Value = Application.Transpose(.keys)
        [e3].Resize(.Count).Value = Application.Transpose(.items)
    End With
    Erase al
End Sub
__________________
Lütfen yanıtlarla ilgili geri dönüş yapınız. Dönüş yapılmayan veya geç dönüş yapılan sorularla tekrar ilgilenmiyorum.

Usta'ya başarısının sırrını sormuşlar.
-İki kelime demiş:
-Doğru kararlar.
Hepimizden farklı olarak, sürekli doğru kararları nasıl alabildiğini sormuşlar.
-Tek kelime demiş:
-Tecrübe.
İyi de kardeşim bu tecrübe denen şeyin sırrı neymiş? Usta, derin bir iç geçirmiş ve şöyle demiş.
-Yanlış kararlar.
veyselemre Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-05-2015, 00:02   #6
carpediems
 
Giriş: 20/07/2009
Şehir: ank
Mesaj: 183
Excel Vers. ve Dili:
office 2016
Varsayılan

Merhaba. Deneyebilir misiniz?
Eklenmiş Dosyalar
Dosya Türü: xlsx 2015 05 14 BULMA.xlsx (12.3 KB, 11 Görüntülenme)
carpediems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-05-2015, 10:58   #7
qbilay06
Altın Üye
 
Giriş: 18/02/2009
Şehir: İstanbul
Mesaj: 98
Excel Vers. ve Dili:
Office 2013 Tr
Varsayılan

Merhaba,

"bzace", "veyselemre" ve "carpediem" isimli üye arkadaşlara çok teşekkür ederim.

carpediem tarafından eklenen dosyadaki, formülleri kendime göre düzenleyerek sonucu aldım.

Sağlıkla kalın.
qbilay06 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 11:05


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden