Copies and saved in a different column
Closed
emtee
-
Aug 18, 2015 at 02:51 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen January 16, 2023 - Aug 18, 2015 at 12:14 PM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen January 16, 2023 - Aug 18, 2015 at 12:14 PM
Related:
- Copies and saved in a different column
- Save as pdf and xps - Download - Other
- Power saving mode in computer - Guide
- How do i stop getting multiple copies of the same email? - Guide
- How to save a webpage as a pdf on mac - Guide
- How to save ping report in text file - Guide
1 response
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
January 16, 2023
549
Aug 18, 2015 at 12:14 PM
Aug 18, 2015 at 12:14 PM
Hi Emtee,
You can use the code below by right-clicking on your sheets tab and selecting View Code. Then paste the code in the big white field that appears in a new window.
The following code will do as requested:
Best regards,
Trowa
You can use the code below by right-clicking on your sheets tab and selecting View Code. Then paste the code in the big white field that appears in a new window.
The following code will do as requested:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Range("B1") <> vbNullString And Range("B2") <> vbNullString And _
Range("B1").End(xlDown).Row = Rows.Count Then Exit Sub
If Range("B1").Value = vbNullString Then
Range("B1").Value = Target.Value
Else
Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = Target.Value
End If
End Sub
Best regards,
Trowa
