sütunlar arasına işaret koyarak birleştirme

[last-shoot]

Sütunları birleştirirken acaba arada boşluk yerine x koyabilirmiyiz

B ve C sütundaki değerleri D sütununda arsında bir boşluk bırakarak listeler.

Sub birlestir()
For i = 1 To Cells(65536, "B").End(xlUp).Row
    Cells(i, "D").Value = Cells(i, "B").Value & " " & Cells(i, "C").Value
Next
MsgBox "Hücreler birleştirildi."
End Sub

bu kodu kullanarak mesela araya boşluk yerine x işareti nasıl koyarız

kod için orion ustaya teşekkürler.

 

[Orion1]

Sütunları birleştirirken acaba arada boşluk yerine x koyabilirmiyiz
bu kodu kullanarak mesela araya boşluk yerine x işareti nasıl koyarız

kod için orion ustaya teşekkürler.

Aşağıdaki kırmızı ile belirttiğim gibi.

Sub birlestir()
For i = 1 To Cells(65536, "B").End(xlUp).Row
    Cells(i, "D").Value = Cells(i, "B").Value & "[B][COLOR="Red"]x[/COLOR][/B]" & Cells(i, "C").Value
Next
MsgBox "Hücreler birleştirildi."
End Sub

 

[captan]

Sub birlestir()
For i = 1 To Cells(65536, "B").End(xlUp).Row
  if Cells(i, "B")<>empty then
    Cells(i, "D").Value = Cells(i, "B").Value & "x" & Cells(i, "C").Value
  end if
Next
MsgBox "H&#252;creler birle&#351;tirildi."
End Sub

Kusura bakmayın sn Orion2. Cevabını görmemiştim...

 

[last-shoot]

Pek sütun sayısını üçe çıkarırsak nasıl olur ? ilk soru için teşekkürler

 

[Orion1]

F sütununu eklerseniz.

Cells(i, "D").Value = Cells(i, "B").Value & "x" & Cells(i, "C").Value [B][COLOR="Red"]& "x" & cells(i,"F").value[/COLOR][/B]

 

[last-shoot]

Yardımlarınız için teşekkürler bi sorum daha olacak

http://www.loadtr.com/k-175026-excel.jpg

Yukarıdaki resimde gösterdiğim gibi mesela HONDA INTEGRA yazısı B sütununa kopyalanacak ama HONDA INTEGRA yazısı bittiğinde HONDA CRX geldiğinde B Sütununa HONDA CRX kopyalanacak ve bu böyle devam edecek