Hi,
I had a different scenario, based on the list selection in the excel sheet 1 the entire row has to be copied to the sheet 2. so i planned my algorithm like this
1. Find out last entered row in sheet 2 and copy the data from sheet 1 to the next row
so for the baove point i used below code as
Sheets("sheet2").Range(Sheets("sheet2").UsedRange.EntireRow.Address).Value = Target.EntireRow.Value
Actually i need to do the above copy based on the condition, please find the attached excel
But every time the value is copying in the same row in sheet 2. i tried to increment the address but i failed. Please find the enclosed attached sheet for my exact scenario. I had mentioned my validations in the excel too
Regards
Bhuvan
Last edited by BhuvanRam; 02-01-2012 at 06:42 AM. Reason: Changed Excel Sheet
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value = "Grpaes" Then Target.EntireRow.Copy Sheets("sheet2").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) End If End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Reply With Quote
Bookmarks