Merhabalar,
Tablonun satır sayısı çok fazla değilse;
=BİRLEŞTİR(
işinizi görektir.
yok, binden fazla satır var.
tablonuza
adana
ankara
samsun
van
diyelim.
adananın yanındaki hücreye =A1 deyin
ankaranın yanındaki hücreye = B1&A1 deyin
adanaankara olacak.
B2ye yazdığınız bu formülü tutun aşağıya çekin, veya tüm hücrelere kopyalayın. en alttaki hücrede istediğiniz düz yazı oluşacak (adanaankarasamsunvan), eğer doğru anladıysam..
O vakit kullanıcı tanımlı fonksiyon ile yapabilirsiniz.
Öncelikle excel dosyanızda alt+f11 ile vba'ya geçiş yapın. Daha sonra İnsert>modüle seçtiğinizde yeni bir model eklemiş olursunuz. Buraya aşağıdaki kodu kopyalayın
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
ekranı kapatıp sayafaya dönün. Artık
=VERİLERİ_BİRLEŞTİR(
gibi bir fonskiyonumuz oldu.
Buraya ilk önce =VERİLERİ_BİRLEŞTİR(G11:G22;"-") veri aralığını daha sonra da birleştirilen metinlerin arasında nasıl bir simge ve ya boşluk isterseniz onu yapabilirisiniz.
Kolay gelsin
worde attıktan sonra da değiştirebilirsiniz. bul&değiştir penceresinde bul kısmına ^p yazın, değiştir kısmına da bir boşluk bırakın.
@kül dediğin yöntemle olmadı.
@balporsuğu evet oldu teşekkürleer
@bagcivan bal porsuğunun işlemi daha kısa olunca onu uyguladım,
allah allah, niye olmadı ki? tabloyu düz metin olarak yapıştırdınız, değil mi?
neyse yahu, çözüldüyse problem yok :)
@kül sadece bir tane en sonda buluyordu