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
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 friends, One of my friend lost SSC certificate and applying for duplicate. Required Documents: 1. Police FIR against lost certificat...
Hi everyone, Today I came with Airtel service messages, which can be used by post-paid customers. 1. To start ebill SMS: ...