#1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 30
Default Cell entry

Want to input data A1, B1 & C1 on sheet 1, which will be save / store on
sheet 2 at A1,B1, and C1, again I want to input new data on sheet 1 at A1,B1
and C1 which will be automatically save / store on Sheet 2 at A2, B2, and C2,
repeatedly I want to input another new data on sheet 1 at A1, B1, & C1, whcih
will be again save on sheet 2 at A3, B3, & C3 and so on.
Means input cell (A1) on sheet 1 will be same but output data on sheet 2
will be A1,A2,A3 and so on.

Rdgss........Sudipta
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 896
Default Cell entry

Press ALT+F11 to get to VBA
in Project - VBAProject window double click on Sheet1
select Worksheet_Change event (or paste the following code)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Worksheets("Sheet2").Range("A" &
WorksheetFunction.CountA(Worksheets("Sheet2").Rang e("A:A")) + 1) =
Target.Value
ElseIf Target.Address = "$B$1" Then Worksheets("Sheet2").Range("A" &
WorksheetFunction.CountA(Worksheets("Sheet2").Rang e("A:A")) + 1) =
Target.Value
ElseIf Target.Address = "$C$1" Then Worksheets("Sheet2").Range("A" &
WorksheetFunction.CountA(Worksheets("Sheet2").Rang e("A:A")) + 1) =
Target.Value
End If
End Sub


On 25 Lis, 10:16, Sudipta Sen
wrote:
Want to input data A1, B1 & C1 on sheet 1, which will be save / store on
sheet 2 at A1,B1, and C1, again I want to input new data on sheet 1 at A1,B1
and C1 which will be automatically save / store on Sheet 2 at A2, B2, and C2,
repeatedly I want to input another new data on sheet 1 at A1, B1, & C1, whcih
will be again save on sheet 2 at A3, B3, & C3 and so on.
Means input cell (A1) on sheet 1 will be same but output data on sheet 2
will be A1,A2,A3 and so on.

Rdgss........Sudipta


  #3   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 8,520
Default Cell entry

Hi Sudipta

Try the below

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column <= 3 Then
If Target.Text < "" Then _
Sheets("Sheet2").Cells(Rows.Count, _
Target.Column).End(xlUp).Offset(1) = Target.Text
End If
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Sudipta Sen" wrote:

Want to input data A1, B1 & C1 on sheet 1, which will be save / store on
sheet 2 at A1,B1, and C1, again I want to input new data on sheet 1 at A1,B1
and C1 which will be automatically save / store on Sheet 2 at A2, B2, and C2,
repeatedly I want to input another new data on sheet 1 at A1, B1, & C1, whcih
will be again save on sheet 2 at A3, B3, & C3 and so on.
Means input cell (A1) on sheet 1 will be same but output data on sheet 2
will be A1,A2,A3 and so on.

Rdgss........Sudipta

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Force entry into cell, based on validation selection in adjacent cell Richhall[_2_] Excel Worksheet Functions 3 June 18th 09 10:28 AM
Change Text Color in one cell based upon entry in referenced cell Tee Excel Discussion (Misc queries) 3 September 12th 08 10:07 PM
Control Data Entry - push entry to next cell Ofelia Excel Discussion (Misc queries) 0 July 7th 08 04:19 PM
restricting entry into a cell based on entry to a previous cell newbie57 New Users to Excel 1 June 9th 08 05:43 PM
Cell Entry That Locks Selected Cells From Any Data Entry. ron Excel Worksheet Functions 5 February 16th 07 09:52 PM


All times are GMT +1. The time now is 07:15 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"