Hi,
I have sr. no. in column 'b' and I want to transfer it automatically in column 'ag'. I have inserted a code in sheet code but it's giving wrong output. It transfers the value from column 'c' but I want the value from column 'b' in column 'ag'.
The code is:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Row < 7 Then Exit Sub
Application.EnableEvents = False
If Target.Row > 1 And Not Range(Cells(Target.Row, "c"), Cells(Target.Row, "f")) Is Nothing Then
Set rng = Range(Cells(Target.Row, "c"), Cells(Target.Row, "f"))
With rng
Cells(Target.Row, 34).Value = .Cells(1) & " " & .Cells(2) & " " & .Cells(3) & " " & .Cells(4)
With rng
Cells(Target.Row, 33).Value = .Value
End With
End With
End If
Application.EnableEvents = True
End Sub
Please suggest me a correction.
Thanking you in anticipation.
Sincerely,
Mukesh
Bookmarks