Excel'de birden fazla hücredeki metni bir metin kutusuna nasıl birleştirirsiniz?
Birden fazla hücrenin metnini formül kullanarak yeni bir hücreye birleştirmek kolay olabilir. Peki ya bu değerleri bir metin kutusuna (ActiveX Denetimi) nasıl birleştireceğinizi biliyor musunuz? İşte bu makaledeki yöntem, tam da bunu başarmanıza yardımcı olabilir.
Birden fazla hücrenin metnini VBA koduyla bir metin kutusuna birleştirme
Birden fazla hücrenin metnini VBA koduyla bir metin kutusuna birleştirme
Aşağıdaki yöntem, Excel'de birden fazla hücredeki metni tek bir metin kutusunda birleştirmenize yardımcı olur.
1. Birleştirmek istediğiniz hücrelerin bulunduğu çalışma sayfasında, bir metin kutusu eklemek için Geliştirici > Ekle > Metin Kutusu (ActiveX Denetimi) seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. Ardından, çalışma sayfasına bir komut düğmesi eklemek için Geliştirici > Ekle > Komut Düğmesi (ActiveX Denetimi) seçeneğine tıklayın.
3. Eklenen komut düğmesine sağ tıklayın ve bağlam menüsünden Kodu Görüntüle seçeneğini seçin. Ekran görüntüsüne bakın:
4. Microsoft Visual Basic for Applications penceresinde lütfen orijinal kodu aşağıdaki VBA koduyla değiştirin.
VBA kodu: Birden fazla hücrenin metnini bir metin kutusuna birleştirme
Private Sub CommandButton1_Click()
Dim xRg As Range
Dim xCell As Range
Dim xStr As String
On Error Resume Next
Set xRg = Application.Selection
If xRg Is Nothing Then Exit Sub
With Me.TextBox1
.Text = vbNullString
.MultiLine = True
.WordWrap = True
For Each xCell In xRg
xStr = xCell.Value
.Text = Me.TextBox1 & xStr & Chr(10)
Next
End With
End SubNot: CommandButton1, eklenen komut düğmesinin varsayılan adıdır. Lütfen ihtiyacınıza göre güncelleyin.
5. Tasarım Modunu kapatmak için Geliştirici > Tasarım Modu seçeneğine tıklayın.
6. Metinlerini bir metin kutusunda birleştirmek istediğiniz hücreleri seçin ve ardından Komut Düğmesi’ne tıklayın. Böylece, aşağıdaki ekran görüntüsünde gösterildiği gibi, seçili tüm hücre içerikleri anında metin kutusuna birleştirilecektir.
KUTOOLS AI ile Excel'in Sihirli Gücünü Açığa Çıkarın
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsi basit komutlarla çalışan grafikler oluşturun.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca çözmek artık çok daha basit!
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
İlgili makaleler:
- Excel'de bir metin kutusu seçildiğinde içindeki metni otomatik olarak nasıl seçersiniz?
- Excel'de yazarken bir metin kutusunu nasıl otomatik olarak tamamlarsınız?
- Excel'de bir metin kutusuna tıklandığında içeriğini nasıl temizlersiniz?
- Excel'de kullanıcı girişini engellemek için metin kutusundaki düzenlemeyi nasıl devre dışı bırakırsınız?
- H Excel'de bir metin kutusunu yüzde olarak nasıl biçimlendirirsiniz?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar