Copy cell contents into Macro code
Using XP & Excel 2000
Trying to figure out how to enter data in worksheet cell ex: G125 & G126; that could be used by the Macro to establish &/or change the Loop Start & Stopping row. Currently loop starts A128 & stops at A131 For instance might want to enter data for 10/24/03 in only row 129. Indented code in Macro where my attempts to tell loop where to stop Thanks fo any help! Bob Leonard ROW A B C D E F G 125 START 126 END 127 128 10/17/03 129 10/24/03 130 10/31/03 131 11/10/03 132 11/17/03 133 134 Sub ForDoLoopEnterDataRight() Dim Value As String, ows As Range 'Below is starting cell Range("A128").Select 'Below is ending cell MyStop = Range("A131") 'Dim varInput As String 'Range("G126").Select 'Set ows = ActiveCell ' varInput = InputBox("Enter Cell Reference") 'ActiveCell.Formula = varInput 'ows.Activate 'MyStop = varInput ' Dim Myvariable(1) As String 'Range("G126").Value = Myvariable(1) 'Myvariable(1) = MyStop 'Static MyStop As String 'Range("G126").Value = MyStop varAnswer = MsgBox("MyStop is A131; To EDIT Macro", vbOKOnly, "My Stop Area") Do For I = 1 To 5 ActiveCell.Offset(0, 1).Select Set ows = ActiveCell Value = InputBox("Enter Value") ActiveCell.Formula = Value ows.Activate Next I ActiveCell.Offset(0, -5).Range("A1").Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.Activate varAnswer = MsgBox(ActiveCell.Value, vbOKOnly, "Date") Loop Until ActiveCell = MyStop End Sub |
Copy cell contents into Macro code
suppose you have F125 with the value 128 and F126 with
the value 132 For rw = Range("F125") to Range("F126") Vells(rw,"B").Value= _ InputBox("Enter data for " & Cells(rw, "A"), _ "Enter Value") next All you need to do is change the row numbers in the 'start' and 'stop' cells ( F125 & F126) Patrick Molloy Microsft Excel MVP -----Original Message----- Using XP & Excel 2000 Trying to figure out how to enter data in worksheet cell ex: G125 & G126; that could be used by the Macro to establish &/or change the Loop Start & Stopping row. Currently loop starts A128 & stops at A131 For instance might want to enter data for 10/24/03 in only row 129. Indented code in Macro where my attempts to tell loop where to stop Thanks fo any help! Bob Leonard ROW A B C D E F G 125 START 126 END 127 128 10/17/03 129 10/24/03 130 10/31/03 131 11/10/03 132 11/17/03 133 134 Sub ForDoLoopEnterDataRight() Dim Value As String, ows As Range 'Below is starting cell Range("A128").Select 'Below is ending cell MyStop = Range("A131") 'Dim varInput As String 'Range("G126").Select 'Set ows = ActiveCell ' varInput = InputBox("Enter Cell Reference") 'ActiveCell.Formula = varInput 'ows.Activate 'MyStop = varInput ' Dim Myvariable(1) As String 'Range("G126").Value = Myvariable(1) 'Myvariable(1) = MyStop 'Static MyStop As String 'Range("G126").Value = MyStop varAnswer = MsgBox("MyStop is A131; To EDIT Macro", vbOKOnly, "My Stop Area") Do For I = 1 To 5 ActiveCell.Offset(0, 1).Select Set ows = ActiveCell Value = InputBox("Enter Value") ActiveCell.Formula = Value ows.Activate Next I ActiveCell.Offset(0, -5).Range("A1").Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.Activate varAnswer = MsgBox(ActiveCell.Value, vbOKOnly, "Date") Loop Until ActiveCell = MyStop End Sub . |
Copy cell contents into Macro code
Pat,
I can not make sugg work! What do I have to change in my Macro? Macro set up to goto row then enter data in cell in Col to right of start cells; will enter data in 5 cells then return to start cell, go down one row and enter in col's to right next set of data Bob Leonard -----Original Message----- suppose you have F125 with the value 128 and F126 with the value 132 For rw = Range("F125") to Range("F126") Vells(rw,"B").Value= _ InputBox("Enter data for " & Cells(rw, "A"), _ "Enter Value") next All you need to do is change the row numbers in the 'start' and 'stop' cells ( F125 & F126) Patrick Molloy Microsft Excel MVP -----Original Message----- Using XP & Excel 2000 Trying to figure out how to enter data in worksheet cell ex: G125 & G126; that could be used by the Macro to establish &/or change the Loop Start & Stopping row. Currently loop starts A128 & stops at A131 For instance might want to enter data for 10/24/03 in only row 129. Indented code in Macro where my attempts to tell loop where to stop Thanks fo any help! Bob Leonard ROW A B C D E F G 125 START 126 END 127 128 10/17/03 129 10/24/03 130 10/31/03 131 11/10/03 132 11/17/03 133 134 Sub ForDoLoopEnterDataRight() Dim Value As String, ows As Range 'Below is starting cell Range("A128").Select 'Below is ending cell MyStop = Range("A131") 'Dim varInput As String 'Range("G126").Select 'Set ows = ActiveCell ' varInput = InputBox("Enter Cell Reference") 'ActiveCell.Formula = varInput 'ows.Activate 'MyStop = varInput ' Dim Myvariable(1) As String 'Range("G126").Value = Myvariable(1) 'Myvariable(1) = MyStop 'Static MyStop As String 'Range("G126").Value = MyStop varAnswer = MsgBox("MyStop is A131; To EDIT Macro", vbOKOnly, "My Stop Area") Do For I = 1 To 5 ActiveCell.Offset(0, 1).Select Set ows = ActiveCell Value = InputBox("Enter Value") ActiveCell.Formula = Value ows.Activate Next I ActiveCell.Offset(0, -5).Range("A1").Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.Activate varAnswer = MsgBox(ActiveCell.Value, vbOKOnly, "Date") Loop Until ActiveCell = MyStop End Sub . . |
All times are GMT +1. The time now is 12:10 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com