Simple Worksheets update
Dear All I am a VBA beginner, I will be very grateful if you can give me a VB script for the following situation, cheers! ================================================== ======= I have 2 worksheets, "Sheet1" and "Sheet2". Lets say, there are columns and 2 rows in Sheet 1 SHEET Apple 6 4 (8) <------ new input If I input a new row (8) in Sheet 1, this can generate 3 new rows i Sheet 2. This logic is in accumulated basis. SHEET Apple 6 6 6 4 4 4 (8) <------ new update (8) <------ new update (8) <------ new update ================================================== ======= I will apply your given VBA script onto an action button in Excel. I other words, data inputter need to press this button after each new ro has been added in Sheet 1. Many many thanks!!! Best Regards Kelvi -- KelvinVB ----------------------------------------------------------------------- KelvinVBA's Profile: http://www.excelforum.com/member.php...fo&userid=1629 View this thread: http://www.excelforum.com/showthread.php?threadid=27690 |
Simple Worksheets update
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Row 1 Then x = 3 * Target.Row - 4 Sheet2.Cells(x + 0, 1) = Target.Value Sheet2.Cells(x + 1, 1) = Target.Value Sheet2.Cells(x + 2, 1) = Target.Value End If End Sub The above code should be in the module for sheet1 in your exampl -- mangesh_yada ----------------------------------------------------------------------- mangesh_yadav's Profile: http://www.excelforum.com/member.php...fo&userid=1047 View this thread: http://www.excelforum.com/showthread.php?threadid=27690 |
All times are GMT +1. The time now is 04:47 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com