iki sütunu tek sütunda birleştirme

[yakup123]

arkadaşlar merhaba E ve C kolonlarımda şu şekilde veriler var

C E

Ali Hasan
Veli Ali
Ayşe Mehmet

ben bu iki kolonu tek kolon olarak H kolonundabirleştirmek istiyorum şu şekilde
H

Ali
Veli
Ayşe
Hasan
Ali
Mehmet

diye yazdığım kod aşağıda ama çok bekliyor birleştirirken nerede hata var sizce

Sheets("Referans").Range("H2:H2000").ClearContents
Dim d As Long
For d = 2 To Sheets("sheet1").Range("c65536").End(xlUp).Row
Sheets("Referans").Cells(d, "H").Value = Sheets("sheet1").Cells(d, "C").Value
Next

For dw = 2 To Sheets("sheet1").Range("E65536").End(xlUp).Row
Sheets("Referans").Cells(Sheets("Referans").Range("H65536").End(xlUp).Row + 1, "H").Value = Sheets("sheet1").Cells(dw, "E").Value
Next

saygılarımla

 

[antonio]

arkadaşlar merhaba E ve C kolonlarımda şu şekilde veriler var

C E

Ali Hasan
Veli Ali
Ayşe Mehmet

ben bu iki kolonu tek kolon olarak H kolonundabirleştirmek istiyorum şu şekilde
H

Ali
Veli
Ayşe
Hasan
Ali
Mehmet

diye yazdığım kod aşağıda ama çok bekliyor birleştirirken nerede hata var sizce

Sheets("Referans").Range("H2:H2000").ClearContents
Dim d As Long
For d = 2 To Sheets("sheet1").Range("c65536").End(xlUp).Row
Sheets("Referans").Cells(d, "H").Value = Sheets("sheet1").Cells(d, "C").Value
Next

For dw = 2 To Sheets("sheet1").Range("E65536").End(xlUp).Row
Sheets("Referans").Cells(Sheets("Referans").Range("H65536").End(xlUp).Row + 1, "H").Value = Sheets("sheet1").Cells(dw, "E").Value
Next

saygılarımla

Sadece şöyle yazın:

Sheets("Referans").Range("H2:H2000").ClearContents
Dim d As Long
For d = 2 To Sheets("sheet1").Range("c65536").End(xlUp).Row
Sheets("Referans").Cells(d, "H").Value = Sheets("sheet1").Cells(d, "C").Value _
[B][COLOR="Red"]& space(1) & Sheets("sheet1").Cells(d, "E").Value[/COLOR][/B]
Next

 

[yakup123]

hocam şöyleki bu kod biraz daha hızlı çalıştı ama şöyle yaptı

ali
ayşe
hasan
ali ayşe
hasan
veli ayşe

gibi

ben sadece 2 kolonu tek kolonda birleştirmek istiyorum adı soyadı birleştirme gibi DEĞİL şöyle olacak

Ali
Ayşe
Fatma
Hasan
Hüseyin

Gibi

 

[antonio]

hocam şöyleki bu kod biraz daha hızlı çalıştı ama şöyle yaptı

ali
ayşe
hasan
ali ayşe
hasan
veli ayşe

gibi

ben sadece 2 kolonu tek kolonda birleştirmek istiyorum adı soyadı birleştirme gibi DEĞİL şöyle olacak

Ali
Ayşe
Fatma
Hasan
Hüseyin

Gibi

Tahmin ettiğiniz gibi ben ad soyad birleştirme gibi anladım. Ne yazık ki sizin söylemek istediğinizi ise hala anlamış değilim. Anlayan arkadaşlar hemen devreye girerse sevinirim.

 

[systran]

veriniz çoksa screenupdating =false size hız kazandıracaktır.

ss1=Sheets("sheet1").Range("c65536").End(xlUp).Row
application.screenupdating=false
application.calculation=xlcalculationmanual

For i = 2 To  ss1
Sheets("Referans").range("H" & i).value = Sheets("sheet1").Range("C"& i).Value  & " " & Sheets("sheet1").Range("E" & i).Value
Next

ss2=Sheets("sheet1").Range("E65536").End(xlUp).Row
for j=i+1 to ss1+ss2+1
Sheets("Referans").range("H" &j).value = Sheets("sheet1").Range("C"& j).Value  & " " & Sheets("sheet1").Range("E" & j).Value
next j
application.calculation=xlcalculationautomatic
application.screenupdating=true

 

[Korhan Ayhan]

Alternatif olarak aşağıdaki kodu deneyiniz.

Sub Birlestir()
    Range("H:H").Clear
    Range("C1:C" & Cells(Rows.Count, 3).End(3).Row).Copy Range("H1")
    Range("E1:E" & Cells(Rows.Count, 5).End(3).Row).Copy Cells(Rows.Count, 8).End(3).Offset(1, 0)
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[yakup123]

Korhan hocam çok teşekkür ederim tam istediğim gibi
saygılarımla