-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Satırları Tek Hücrede Birleştirme
- Konbuyu başlatan Electro
- Başlangıç tarihi
- Katılım
- 26 Eylül 2007
- Mesajlar
- 9,420
- Excel Vers. ve Dili
- excel 2010
merhaba
ek dosyayı inceleyiniz
ek dosyayı inceleyiniz
- Katılım
- 10 Mayıs 2007
- Mesajlar
- 1,395
- Excel Vers. ve Dili
- 2007 Türkçe
a@hotmail.com; b@hotmail.com diye istiyorsunuz dimi sayın electro
Sn Uzmanamele #AD? şeklinde hata veriyor sizin yapmış olduğunuz tablonuzda.Benim bilgisayarımda mi düzgün olarak çıkmıyor acaba?
Sn.Hrknp İlk 100 mail adresinin tek hücrede aralarına virgül konarak birleştirmesini istiyorum.
Yani amacım 100 tanıdığıma aynı anda mail atmak için mailler arasında virgül ile mail adreslerini ayırmaktır.
Teşekkürler.
Sn.Hrknp İlk 100 mail adresinin tek hücrede aralarına virgül konarak birleştirmesini istiyorum.
Yani amacım 100 tanıdığıma aynı anda mail atmak için mailler arasında virgül ile mail adreslerini ayırmaktır.
Teşekkürler.
- Katılım
- 26 Eylül 2007
- Mesajlar
- 9,420
- Excel Vers. ve Dili
- excel 2010
merhaba
BİRLEŞTİRA formülünü büyük harf ile tekrar yazın. ktf'da formülün çalışması için tekrar tetiklenmesi gerekir.
BİRLEŞTİRA formülünü büyük harf ile tekrar yazın. ktf'da formülün çalışması için tekrar tetiklenmesi gerekir.
- Katılım
- 10 Mayıs 2007
- Mesajlar
- 1,395
- Excel Vers. ve Dili
- 2007 Türkçe
sayın electro anladım mail yollarken noktalı vürgül ve boşluk bırakmak gerekiyor bende onunla uğraşıyoırum şu anda
- Katılım
- 26 Eylül 2007
- Mesajlar
- 9,420
- Excel Vers. ve Dili
- excel 2010
merhaba
sanırım birleştirilmiş verileri kullanamadınız.
=BİRLEŞTİRA(B2:B101) ile tüm mail adreslerini birleştirin, sonra hücreyi kopyalayıp başka biryerde değerleri yapıştırın.
sanırım birleştirilmiş verileri kullanamadınız.
=BİRLEŞTİRA(B2:B101) ile tüm mail adreslerini birleştirin, sonra hücreyi kopyalayıp başka biryerde değerleri yapıştırın.
- Katılım
- 21 Ekim 2005
- Mesajlar
- 17,093
- Excel Vers. ve Dili
- Excel, 365 - İngilizce
Public Function BİRLEŞTİRA(ALAN As Range, Optional sALAN As String = " ") As String
Dim sonuc As String, c As Range
On Error GoTo Hata
For Each c In ALAN
If c <> Empty Then sonuc = sonuc & c.Value & "," & sALAN
Next c
sonuc = Left(sonuc, Len(sonuc) - Len(sALAN))
BİRLEŞTİRA = sonuc
On Error GoTo 0
Exit Function
Hata:
BİRLEŞTİRA = "#Error#"
End Function
Kodlarını dosyanızda bir modülün içine kopyalayın.
.
Dim sonuc As String, c As Range
On Error GoTo Hata
For Each c In ALAN
If c <> Empty Then sonuc = sonuc & c.Value & "," & sALAN
Next c
sonuc = Left(sonuc, Len(sonuc) - Len(sALAN))
BİRLEŞTİRA = sonuc
On Error GoTo 0
Exit Function
Hata:
BİRLEŞTİRA = "#Error#"
End Function
Kodlarını dosyanızda bir modülün içine kopyalayın.
.
Sn.Uzmanamele dediğinizi yaptım ama olmadı.Ben mi yanlış anlıyorum acaba?
Sn.Yurttaş bu yazdıklarınızı dediğiniz şekilde kopyalamak isterim ama modülün ne olduğunu bilmiyorum.Hücre içerisine kopyaladım bu yazdıklarınızı ama olmadı.
Sizden ricam şudur:Lütfen benim vermiş olduğum ilk tabloda açıklamayı yazmış olduğum kısımda bunu yapıp koymanızdır.Tabi mümkünse.Çok teşekkürler.
Sn.Yurttaş bu yazdıklarınızı dediğiniz şekilde kopyalamak isterim ama modülün ne olduğunu bilmiyorum.Hücre içerisine kopyaladım bu yazdıklarınızı ama olmadı.
Sizden ricam şudur:Lütfen benim vermiş olduğum ilk tabloda açıklamayı yazmış olduğum kısımda bunu yapıp koymanızdır.Tabi mümkünse.Çok teşekkürler.
- Katılım
- 21 Ekim 2005
- Mesajlar
- 17,093
- Excel Vers. ve Dili
- Excel, 365 - İngilizce
Alt+F11 tuş kombinasyonuyla Visual Basic'i açıyor.Orada da sizin yazdığınız kodlar gözüküyor da benim istediğim birleştirilmiş kısma nasıl ulaşacağım onu anlayabilmiş değilim.Bakıyorum bildiklerimi deniyorum ama ulaşamadım.Bu mail adreslerinin aralarında virgül konmuş şekilde listesini nasıl görebilirim?
Teşekkürler.
Teşekkürler.
- Katılım
- 26 Eylül 2007
- Mesajlar
- 9,420
- Excel Vers. ve Dili
- excel 2010
#AD hatasından kurtulmak için ktf'yi tetikleyecek büyük harfle yazın demiştim ama sanırım anlaşılmadı. tetiklendikten sonra zaten küçük harfle yazılmış =birleştira(B2:B101) formülünü göreceksiniz.
sonrası, kopyala değerleri yapıştır.
syn yurttaş'ın çok kullanışlı ktf'u, eline sağlık.
'kodları yazan: Yurttaş
Public Function BİRLEŞTİRA(ALAN As Range, Optional sALAN As String = " ") As String
Dim sonuc As String, c As Range
On Error GoTo Hata
For Each c In ALAN
If c <> Empty Then sonuc = sonuc & c.Value & "," & sALAN
Next c
sonuc = Left(sonuc, Len(sonuc) - Len(sALAN))
BİRLEŞTİRA = sonuc
On Error GoTo 0
Exit Function
Hata:
BİRLEŞTİRA = "#Error#"
End Function
Hazır Dosya
Arkadaşlar Merhabalar,
Sizin yazdıklarınızı inanın anlamadım kendim yaptım.Yardımlarınız için teşekkürler.Belki başka arkadaşların da işine yarar diye buraya koyuyorum.Dosya ektedir.
Dosyanın kullanımı:
1-İstediğiniz mail adreslerini (maksimum 100 adet olmak üzere)dosyadaki mail adreslerini silerek onların yerine yapıştırın)
2-Maillerin virgüllü şekilde çıktığı hücreyi kopyalayıp başka bir hücreye özel yapıştır-verileri diyerek yapıştırın.
3-Sadece sondaki 3 adet fazladan virgül atıyor.Onları silip kullanabilirsiniz.(Bu sondaki 3 haneyi nasıl atacağımı hangi fonksiyonla atabileceğimi bilmiyorum.Bilsem onları da atacaktım)
Arkadaşlar Merhabalar,
Sizin yazdıklarınızı inanın anlamadım kendim yaptım.Yardımlarınız için teşekkürler.Belki başka arkadaşların da işine yarar diye buraya koyuyorum.Dosya ektedir.
Dosyanın kullanımı:
1-İstediğiniz mail adreslerini (maksimum 100 adet olmak üzere)dosyadaki mail adreslerini silerek onların yerine yapıştırın)
2-Maillerin virgüllü şekilde çıktığı hücreyi kopyalayıp başka bir hücreye özel yapıştır-verileri diyerek yapıştırın.
3-Sadece sondaki 3 adet fazladan virgül atıyor.Onları silip kullanabilirsiniz.(Bu sondaki 3 haneyi nasıl atacağımı hangi fonksiyonla atabileceğimi bilmiyorum.Bilsem onları da atacaktım)
- Katılım
- 8 Ocak 2012
- Mesajlar
- 1
- Excel Vers. ve Dili
- 2007 Türkçe
Ek İndirme
Merhaba Arkadaşlar,
Foruma henüz üye oldum,
Sn Electro arkadaşımızın yaptığı dosyayı indirmek istiyorum ama nasıl indireceğim?
Linli tıklayınca boş bir attachement sayfası açılıyor. Birşeyleri yanlış mı yapıyorum?
Bilgilendirirseniz sevinirim.
Tşk.
Merhaba Arkadaşlar,
Foruma henüz üye oldum,
Sn Electro arkadaşımızın yaptığı dosyayı indirmek istiyorum ama nasıl indireceğim?
Linli tıklayınca boş bir attachement sayfası açılıyor. Birşeyleri yanlış mı yapıyorum?
Bilgilendirirseniz sevinirim.
Tşk.