View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Akash Akash is offline
external usenet poster
 
Posts: 125
Default Sheet1 Data Autometically Uploaded in Sheet2

On Mar 8, 1:52 pm, "NOPIK" wrote:
On 8 อมา, 10:33, "Akash" wrote:

Hi,


I have a Querry regarding Macros.


I have Two Sheets
In Sheet 1 i have Three Columns


A1. Item Name
B1. Item Qty
C1. Item Price


In Sheet 2 i have 4 Columns


A1. Item Name
B1. Item Qty
C1. Item Price
D1. Calculations


Now i want that as soon as the user enters the Data in Sheet1 it
should autometically gets uploads in the Sheet2.


Right Now i am using the following Formula in Sheet2.
=TRIM('Sheet1'!A1)
=TRIM('Sheet1'!B1)
=TRIM('Sheet1'!C1)


Try Worksheet events, like:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column < 5 Then 'Assume, that you have 4 columns from A to D
Range(Worksheets("Sheet1").Range("A" & Format(Target.Row) & ":C" &
Format(Target.Row))).Copy Worksheets("Sheet2").Range("A" &
Format(Target.Row) & ":C" & Format(Target.Row)) 'You can use "A:C"
Range or, walk thru all .Areas
Range(Worksheets("Sheet2").Range("D" & Format(Target.Row))).Copy
Worksheets("Sheet1").Range("D" & Format(Target.Row)) 'If you want to
return your calculations in Column D. Use "D:D" again to avoid .Areas
processing
End If
End Sub



Hi,

As per the solution suggests, the colde is not working.

I just copied the code and paste it into the View Code Area of Sheet2.

But its not working.

What should i do in this regard.

Akash