discarnet Posted May 12, 2006 Share Posted May 12, 2006 (edited) Ok let me try to explain thisI have an input box on a loop to enter names, as i have over 200 names to enter on a weekly basishow can i get the macro to move down a cell for each entry from the input boxthis is what i have so farsub rota()RO = 1START:ent = ("enter name for rota e1a0")ent = ent & ROE1A = InputBox(ent, "ENTER NAMES")If E1A = "QUIT" Then Exit SubRO = RO + 1Worksheets(1).Range("b5").Value = E1AGoTo STARTEnd Subso first time input is for rota e1a01second time input is for rota e1a02and so on up to 242rota numbers from e1a01 to e1a242 are in coloum A names from input box need to be in coloum Bso its the ("b5") in Worksheets(1).Range("b5").Value = E1A that i need to increase each timeWell i understand what i mean hope you do Edited May 12, 2006 by discarnet Link to comment Share on other sites More sharing options...
discarnet Posted May 12, 2006 Author Share Posted May 12, 2006 DON'T WORRY ABOUT IT WORKED IT OUT Sub na()ro = 1START:For x = 5 To 100ent = ("enter name for rota e1a0")ent = ent & roe1a = InputBox(ent, "ENTER NAMES")If e1a = "QUIT" Then Exit Sub Cells(x, 2) = e1a ro = ro + 1 Next xEnd SubThanks for looking anyway Link to comment Share on other sites More sharing options...
snuppe Posted December 4, 2006 Share Posted December 4, 2006 nice!I have been looking for this solution as well!Thanks for posting!/Snuppe Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now