hücre içeriği birleştirme

[AKTAY27]

selam arkadaşlar

aktif hücreye A ve T sütununa kadar çizelgem var
çizelgeye veri girmeye "E" sütunundan başlıyorum "T" Sütununa işlem yaptığım zaman "T" ve "E" Sütununu Birleştirerek "A" Sütununa yazmak istiyorum. aşağıda denediğim kodlar var yalnız birleştirmeyi beceremedim. yardımlarınızı bekliyorum teşekkürler.


Sub birleştir()
ActiveCell.Offset(0, -19).Value = Range(ActiveCell.Offset(0, 0)).Value & Range(ActiveCell.Offset(0, -15)).Value
ActiveCell.Offset(0, -18).Value = Range(ActiveCell, ActiveCell.Offset(0, 0) & ActiveCell, ActiveCell, ActiveCell.Offset(0, -15))
ActiveCell.Offset(0, -17).Value = Range(ActiveCell, ActiveCell.Offset(0, -14)).Value
ActiveCell.Offset(0, -16).Value = Range(ActiveCell, ActiveCell.Offset(0, -8)).Value

End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [T:T]) Is Nothing Then Exit Sub
Cells(ActiveCell.Row, "A") = Cells(ActiveCell.Row, "E") & " " & Cells(ActiveCell.Row, "T")
Range("E" & ActiveCell.Row + 1).Select
Son:
End Sub

 

[AKTAY27]

TeŞekkÜrler Necdet YeŞertener
Allah Razi Olsun