My friend had given me a problem in excel of copy row whenever the values changed to another sheet next available row.
I have come-up with this following code
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Target.ActiveSheet.Range("A1:D1")) Is Nothing Then
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.EnableEvents = True
Dim lastrow As Long
lastrow = Sheets("Sheet2").Range("A65536").End(xlUp).Row + 1
Sheets("Sheet2").Range("A" & lastrow & ": D" & lastrow).Value = Sheets("Sheet1").Range("A1:D1").Value
Hope it will help you.
Please share your valuable comments and feedback to email@example.com
August 10, 2018
Microsoft Excel Copy row values to another sheet next available row when the value changes
Subscribe to: Posts (Atom)
Please send your review and feedback to firstname.lastname@example.org
Hi friends, I have updated my Aadhaar details from Aadhaar update center. It is mentioned that within 72 hours, my details will be update...
Hi all, Today, I'll explain how to uninstall completely the openjdk from the RedHat Enterprise Linux (RHEL) machine. Some of the sof...
Hi folks, Today we are going to see, how we can run or deploy the Go (Golang) project in IIS. Development Create your Golang project with w...