prasadk
11-06-2021, 05:36 AM
I need this code can you modify this code as per my
Private Sub Worksheet_Change(ByVal Target As Range)
Const columns As String = "$A/$B/$C"
Dim rw As Long, var As Variant
If InStr(1, columns, Left$(Target.Address, 2), vbTextCompare) Then
rw = Target.Row
var = Split(columns, "/")
Range("d" & Target.Row) = Range(var(0) & rw) & vbCrLf & Range(var(1) & rw) & vbCrLf & Range(var(2) & rw)
End If
End Sub
If I type in
Col A vamsi Col B prasad Col C reddy
Then in Col D vamsi prasad reddy
I want like this if I type first middle last name in col A col B col C then add full name in col D automatically
Private Sub Worksheet_Change(ByVal Target As Range)
Const columns As String = "$A/$B/$C"
Dim rw As Long, var As Variant
If InStr(1, columns, Left$(Target.Address, 2), vbTextCompare) Then
rw = Target.Row
var = Split(columns, "/")
Range("d" & Target.Row) = Range(var(0) & rw) & vbCrLf & Range(var(1) & rw) & vbCrLf & Range(var(2) & rw)
End If
End Sub
If I type in
Col A vamsi Col B prasad Col C reddy
Then in Col D vamsi prasad reddy
I want like this if I type first middle last name in col A col B col C then add full name in col D automatically