• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Data copying with range and individual

tushark

New Member
Hi,

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

>>> use code - tags <<<
Code:
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
        Sheet2.Cells(intLastRow + 1, "A") = Target.Value

ElseIf Target.Address = Range("C3").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 i want two things

1. Whenever 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.
2. Also save the data for the range F2:F7 and T2:U7 in different sheet same as where C2 and C3 getting saved starting from column C (Like F2 data goes to C, F3 data goes to D so on).

Thanks in Advance.
 
Last edited by a moderator:
Back
Top