İkinci Sütundaki veriyi birinci sütnunun altına eklemek

[gundogdu42]

Arkadaşlar mrb.

Ekteki dosyada B satırındaki veriyi A satırındaki verinin altına nasıl ekleyebiliriz.
Tek tek eklemek yerine kodlarla halledilebilirmi. Yani A satırına Alt+Enter Yapmış gibi eklemek istiyorum. Bütün satırları bu şekilde yapmak istiyorum.
çünkü yüzlerce satır var

İlginiz için şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub DÜZENLE()
    For X = 1 To [A65536].End(3).Row
    Cells(X, 1) = Cells(X, 1) & Chr(10) & Cells(X, 2)
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[gundogdu42]

Korhan bey öncelikle ilginiz için teşk.
Kodlar çalışıyor tam istediğim gibi
fakat B sütunundaki verileri silerek veya keserek de ekleyebilirmiyiz.

 

[Necdet]

Merhaba,
Korhan Bey'in kodlarına şu eklemeyi yapınız.

Sub DÜZENLE()
[B][COLOR=black]Application.ScreenUpdating = False
[/COLOR][/B]For X = 1 To [a65536].End(3).Row
    Cells(X, 1) = Cells(X, 1) & Chr(10) & Cells(X, 2)
Next
 [COLOR=red][B]   Columns(2).Delete
[/B][/COLOR]MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub