Üç sütünü hücreye yazdırma

[pc_kopatts]

İyi çalışmalar arkadaşlar sizlerden birşey rica edeceğim eğer mümkünse gönderdiğim ekte A-B-C sütünlarında farklı farkı isimler var ben bunu tek bir hücreye yazdırmak isiyorum.Ama yazdığı vakit alt alta yazmasını isiyorum.bu mümkğnmü F sütünda ki gibi olacak o örnek olarak ben yaptım ama tabiki elle yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod kısmına uygulayınız. C sütununa veri girişini tamamladıktan sonra çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Column <> 3 Then Exit Sub
    If Target.Column = 3 Then
    Target.Offset(0, 2).Formula = Target.Offset(0, -2) & Chr(10) & Target.Offset(0, -1) & Chr(10) & Target
    End If
End Sub

 

[pc_kopatts]

Kardeş yaptım ama olmadı birde benim isteğim veri girişi olarak eğil zaten 20000 kayıt var üzerinde uygulayacağım. örenk üzerinde uygulasan olurmu yardımını bekliyorum..

 

[Recep İpek]

Aşağıdakini deneyebilirmisiniz?

Sub Birleştir()
Range("A1").Select
son = Cells(65536, 1).End(3).Row    ' A Kolonu
For i = 1 To son
ActiveCell.Offset(0, 3).Formula = ActiveCell.Value & Chr(10) & ActiveCell.Offset(0, 1).Value & Chr(10) & ActiveCell.Offset(0, 2).Value
ActiveCell.Offset(1, 0).Select
Next i
MsgBox "Bitti"
Range("A1").Select
End Sub