Range of data to be copied in another sheet

[Tushark]

Hi,

I have this code which helps me in saving data for two cells in different sheet.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("M2").Address Then
Dim intLastRow As Long
intLastRow = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row
Sheet2.Cells(intLastRow + 1, "B") = Target.Value

ElseIf Target.Address = Range("M3").Address Then
Dim intLastRow2 As Long
intLastRow2 = Sheet2.Cells(Sheet2.Rows.Count, "B").End(xlUp).Row
Sheet2.Cells(intLastRow2 + 1, "B") = Target.Value
End If
End Sub

With this code working i want to save the data for the range P2:P7 and AC2:AC7 in different sheet. They should be saved in different columns (Like P2 data goes to C, P3 data goes to D so on) so that i can do comparison later.

Thanks in Advance.

 

[Fluff]

Hi & welcome to MrExcel.
Which sheet should those ranges be saved to, is it the same sheet as M2 & M3?

 

[Tushark]

Hi & welcome to MrExcel.
Which sheet should those ranges be saved to, is it the same sheet as M2 & M3?

Yes fluff in sheet 2 starting from column C.

 

[Tushark]

Yes fluff in sheet 2 starting from column C.

Also can we do one more thing as the M2, M3 and these ranges will be saving a lot of data so it might make the excel sheet heavy is their any possibility we should just record the values till 5-10 records and then it keeps rewriting on those records.

 

[Tushark]

One more problem that came up is the data in M2 and M3 stops pasting in another sheet not sure why might be when i tested it, M2 and M3 was taking data from the same and now they are pulling up the data from another sheet.

Let me attach the sheet with the code.

I am using this code

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("M2").Address Then
Dim intLastRow As Long
intLastRow = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row
Sheet2.Cells(intLastRow + 1, "A") = Target.Value

ElseIf Target.Address = Range("M3").Address Then
Dim intLastRow2 As Long
intLastRow2 = Sheet2.Cells(Sheet2.Rows.Count, "B").End(xlUp).Row
Sheet2.Cells(intLastRow2 + 1, "B") = Target.Value
End If
End Sub

 

[Tushark]

I have notice one thing it records the first value in sheet 2 when connecting but after that it does not.

 

[Tushark]

Also when ever i press F2 and enter on column C2 it shows the value in sheet 2 not sure how to make it working continuously without doing it.

 

[Tushark]

Just a small update the code i have gave in the first post in place of M2 it's C2 and M3 will be C3 as per the excel image that i have sent.

 

[RoryA]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Range of data to be copied in another sheet
If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[Tushark]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Range of data to be copied in another sheet
If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

Apologies for that i have posted this in two places

Range of data to be copied in another sheet

Hi, I have this code which helps me in saving data for two cells in different sheet. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("C2").Address Then Dim intLastRow As Long intLastRow = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row...

www.excelforum.com

Data copying with range and individual

Hi, I have this code which helps me in saving data for two cells in different sheet. >>> use code - tags

chandoo.org