VBA da Hücreleri Birleştirme

[ultraslan38080]

Arkadaşlar;

Bir excel belgesinde Sayfa 1 de bulunan A1 hücresindeki "İSTANBUL" ile B1 hücresindeki "KARTAL" değerlerini;

Sayfa2 de bulunan C1 hücresine "İSTANBUL İLİ KARTAL İLÇESİ" şeklinde birleştirmek için VBA da nasıl bir kod yazabilirim?

 

[Orion1]

Buyurun.

Sub birles59()
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("C1").Value = s1.Range("A1").Value & " İLİ " & s1.Range("B1").Value & " İLÇESİ"
End Sub

 

[ultraslan38080]

Buyurun.

Sub birles59()
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("C1").Value = s1.Range("A1").Value & " İLİ " & s1.Range("B1").Value & " İLÇESİ"
End Sub

Çok teşekkür ederim. Çok sağolun.

 

[Orion1]

Çok teşekkür ederim. Çok sağolun.

Rica ederim.
İyi çalışmalar.

 

[cihansari3]

aynı sekilde A sutunundaki tüm dolu hücreleri aralarina "," koyarak bir hücreye birleştirebilir miyiz?

Örn: A sutununda
A1 = Elma
A2 = Armut
A3 = Portakal
... şeklinde uzayan isimler olsun. C2 hücresine "Elma,Armut,Portakal" yazdirabilir miyiz?

 

[Korhan Ayhan]

Benzer bir konu;

hücreleri birleştirme

merhaba, aşağıdaki gibi hücredeki veriyi aralarına virgül koyarak tek hücrede nasıl bileştirebilirilim? ali veli selami hayati mehmet ahmet Hüseyin ali, veli,selami.... gibi görünsün istiyorum

www.excel.web.tr