Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


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

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 28-04-2011, 20:00   #1
Piroglu
 
Giriş: 24/03/2011
Mesaj: 4
Excel Vers. ve Dili:
2010 TR
Varsayılan Tek bir hücrede metin birlestirme

Merhabalar,

Calışma sayfasında hücre referanslarını bildigim iki hucre arasındaki metinleri nasıl tek hucrede toplayabilirim acaba ?

Ornegin A1:A27 arasındaki daha sonra A27:A54 arasındakileri gibi

Simdiden cok tesekkurler.

Saygılarımla.
Piroglu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-04-2011, 20:09   #2
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,000
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Merhaba,

Birebir birleştirme mi olacak;

A1:A27 ve A27:A54 deki tüm hücreleri B1 de birleştir gibi.

Yoksa karşılaştırmalı birleştirme mi olacak;

A1 ile A27 yi, A2 ile A28 i gibi...

.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-04-2011, 20:11   #3
excel_ance
 
Giriş: 12/11/2008
Şehir: Bursa
Mesaj: 240
Excel Vers. ve Dili:
2010-2013
Varsayılan

=birleştir(b1;" ";c1;" ";d1;" ";e1) hangi hücrede birleştirmek isterseniz o hücreye girmeniz durumunda işlemizi görecektir. Iyi akşamlar
excel_ance Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-04-2011, 11:22   #4
Piroglu
 
Giriş: 24/03/2011
Mesaj: 4
Excel Vers. ve Dili:
2010 TR
Varsayılan Sorumun tam tarifi

Cevaplarınız için çok teşekkür ederim, mesajımı yazarken cok sıkısık bir zamanda oldugum icin detaylı olarak anlatamamıstım, problemin aslı suydu;

Hucre referanslarını bildigim 2 hucre arasındaki tum metinleri bu referansları kullandırarak tek bir hucrede toplamak istemiştim;

Ekteki excel de acıklamaya calıstım...

Cevaplarınız icin cok tesekkur ederim...
Eklenmiş Dosyalar
Dosya Türü: xls Bir Soru.xls (24.5 KB, 43 Görüntülenme)
Piroglu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-04-2011, 11:26   #5
Piroglu
 
Giriş: 24/03/2011
Mesaj: 4
Excel Vers. ve Dili:
2010 TR
Varsayılan

Omer Bey, cok tesekkurler,

Birebir birleştirme olacak, daha detaylı olarak tekrar tarif etmeye calıştım biraz once...

Saygılar
Piroglu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-04-2011, 11:38   #6
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,641
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Selamlar,

Bu işlem için aşağıdaki kullanıcı tanımlı fonksiyonu kullanabilirsiniz.


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Option Explicit
 
Function VERİLERİ_BİRLEŞTİR(Aralık As Range, Optional Sembol As String = ";") As String
    Dim Hücre As Range
    
    Application.Volatile True
    
    For Each Hücre In Aralık
        If Hücre.Value <> "" Then
            VERİLERİ_BİRLEŞTİR = IIf(VERİLERİ_BİRLEŞTİR = "", Hücre.Value, VERİLERİ_BİRLEŞTİR & Sembol & Hücre.Value)
        End If
    Next
End Function

Hücrede kullanım şekli;
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=VERİLERİ_BİRLEŞTİR(Hücre_Aralığı;Birleştirici_Sembol)


Birleştirici_Sembol opsiyoneldir. Boş bıraktığınızda ";" sembolü ile birleştirme yapılır.

Yani aşağıdaki şekilde kullanabilirsiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=VERİLERİ_BİRLEŞTİR(A1:A10;";")
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=VERİLERİ_BİRLEŞTİR(A1:A10)
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=VERİLERİ_BİRLEŞTİR(A1:A10;"-")
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=VERİLERİ_BİRLEŞTİR(A1:A10;"/")
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=VERİLERİ_BİRLEŞTİR(A1:A10;"+")
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=VERİLERİ_BİRLEŞTİR(A1:A10;" ")

Ekteki örnek dosyayı incelermisiniz.
Eklenmiş Dosyalar
Dosya Türü: rar ÖRNEK.rar (8.6 KB, 110 Görüntülenme)
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-04-2011, 13:22   #7
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,000
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Alternatif olsun.

Module kopyalarak çalıştırınız. Belirttiğiniz bölgerde birleştirme gerçekleşecektir.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 
Option Explicit
 
Sub GrupBirlestir()
 
Dim sOns As Long, i As Long, sAt As Long, oPrtr As String
 
sOns = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
 
Range("F1:F" & sOns).ClearContents
 
For i = 1 To sOns
 
    If Cells(i, "A") <> "" And Cells(i + 1, "A") = "" Then
        sAt = i
    Else
        sAt = Cells(i, "A").End(xlDown).Row
    End If
 
    If Cells(sAt, "F") = "" Or Cells(i, "A") = "" Then
        oPrtr = ""
    Else
        oPrtr = "/" 'Birleştirme ayırıcacını değiştirebilirsiniz.
    End If
 
    Cells(sAt, "F") = Cells(sAt, "F") & oPrtr & Cells(i, "A")
 
Next i
Application.ScreenUpdating = True
End Sub
.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-04-2011, 13:58   #8
Piroglu
 
Giriş: 24/03/2011
Mesaj: 4
Excel Vers. ve Dili:
2010 TR
Varsayılan Tesekkur

Yardımcı olan herkese cok tesekkur ederim, ne kadar faydası oldu bilemezsiniz...

Saygılarımla
Piroglu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-12-2013, 13:48   #9
kayserciyes
Altın Üye
 
Giriş: 21/03/2008
Şehir: kayseri
Mesaj: 192
Excel Vers. ve Dili:
2013
Varsayılan textden alınanverileri hücrede belirtilen uzunluk kadar sutun birleştirme

hocam yukardaki kodlara baktım ama kendime uyarlayamadım
ekde örnek dosyayı yolluyorum

text dosyasından aldığım veriler var optikden aldığım öğrencinin sınav kodlamaları
yani
numara 6 hane
Adı 12
Soyadı 12
numara AI2 den AN2 ye kadar 6 hane
Sayfa1 den bunları alıp Sayfa3'de Numara yazan tekbir Sutuna birleştirecek

Sayfa2 de de hangi alan Nerden başlıyor Nerde bitiyor onlar yazıyor


yani sayfa birde her sutunda bir Harfin Yer aldığı veriler Sayfa3 De düzenlenmiş bir şekilde olacak

yardımlarınız için şimdiden teşekkür ederim
yardımcı olursanız sevinirim
Eklenmiş Dosyalar
Dosya Türü: xlsm hücrelerde veri birleştirme.xlsm (166.6 KB, 17 Görüntülenme)
kayserciyes Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-12-2013, 23:44   #10
kayserciyes
Altın Üye
 
Giriş: 21/03/2008
Şehir: kayseri
Mesaj: 192
Excel Vers. ve Dili:
2013
Varsayılan

iyi geceler ömer hocam benim dosyaya bir bakmanız mümkün mü
kayserciyes Ç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 04:29


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-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden