Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]()
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
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]()
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
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]()
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 |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Force entry into cell, based on validation selection in adjacent cell | Excel Worksheet Functions | |||
Change Text Color in one cell based upon entry in referenced cell | Excel Discussion (Misc queries) | |||
Control Data Entry - push entry to next cell | Excel Discussion (Misc queries) | |||
restricting entry into a cell based on entry to a previous cell | New Users to Excel | |||
Cell Entry That Locks Selected Cells From Any Data Entry. | Excel Worksheet Functions |