AUTOMATICALLY COPYING DATA

Closed
setter - Nov 26, 2009 at 05:20 PM
venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 - Nov 26, 2009 at 08:59 PM
Hello,
When I enter the data in the cell in the first worksheet, how can it be automatically copied to the same cell number in the second and third worksheet?

1 response

venkat1926 Posts 1863 Registration date Sunday June 14, 2009 Status Contributor Last seen August 7, 2021 811
Nov 26, 2009 at 08:59 PM
TRY THIS IN AN EXPERINTAL BOOK. yOU CAN ENTER DATA ONLY IN COLUMN A.

right click sheet tab and click view code and in resulting window copy paste thsis
EVENT CODE

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rw As Integer, col As Integer
Application.EnableEvents = False
On Error GoTo errorhandler
If Target.Column <> 1 Then GoTo errorhandler

rw = Target.Row
col = Target.Column
Target.Copy
Worksheets("sheet2").Cells(rw, col).PasteSpecial
 Worksheets("sheet3").Cells(rw, col).PasteSpecial
'Application.EnableEvents = True

errorhandler:
Application.EnableEvents = True
Application.CutCopyMode = False
Exit Sub
End Sub
0