| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro in Excel
I have a macro in Microsoft Excel listed below. I need for it to repeat
until xxx is entered. Any help will be appreciated. Sub OptionExplicit() ' ' OptionExplicit Macro ' Macro recorded 3/10/2008 by Student Financial Aid ' Dim vName As String Dim vAddress As String Dim vCityStateZip As String Dim vPhoneNumber As String Dim vEmailAddress As String Dim vRealEstateAgentAndCompany As String Dim vxxx As String vName = InputBox("Please type in your name?") If vName = "xxx" Then Exit Sub Else vAddress = InputBox("Please enter your address?") vCityStateZip = InputBox("Please enter City, State and Zip?") vPhoneNumber = InputBox("Please enter your Phone Number?") vEmailAddress = InputBox("Please enter your Email Address?") vRealEstateAgentAndCompany = InputBox("Please enter your Real Estate Agent and Company?") Worksheets("Sheet1").Range("B1") = vName Worksheets("Sheet1").Range("B2") = vAddress Worksheets("Sheet1").Range("B3") = vCityStateZip Worksheets("Sheet1").Range("B4") = vPhoneNumber Worksheets("Sheet1").Range("B5") = vEmailAddress Worksheets("Sheet1").Range("B6") = vRealEstateAgentAndCompany ' Range("B1").Select Range("B2").Select Range("B3").Select Range("B4").Select Range("B5").Select Range("B6").Select vName = InputBox("Please type in your name?") vAddress = InputBox("Please enter your address?") vCityStateZip = InputBox("Please enter City, State and Zip?") vPhoneNumber = InputBox("Please enter your Phone Number?") vEmailAddress = InputBox("Please enter your Email Address?") vRealEstateAgentAndCompany = InputBox("Please enter your Real Estate Agent and Company?") Worksheets("Sheet1").Range("B11") = vName Worksheets("Sheet1").Range("B12") = vAddress Worksheets("Sheet1").Range("B13") = vCityStateZip Worksheets("Sheet1").Range("B14") = vPhoneNumber Worksheets("Sheet1").Range("B15") = vEmailAddress Worksheets("Sheet1").Range("B16") = vRealEstateAgentAndCompany ' Range("B11").Select Range("B12").Select Range("B13").Select Range("B14").Select Range("B15").Select Range("B16").Select End If Application.Goto Reference:="OptionExplicit" End Sub |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
| My excel macro recorder no longer shows up when recording macro | Excel Discussion (Misc queries) | |||
| My excel macro recorder no longer shows up when recording macro | Excel Discussion (Misc queries) | |||
| passing arguments from an excel macro to a word macro | Excel Discussion (Misc queries) | |||
| Macro - Open Word with Excel macro | Excel Discussion (Misc queries) | |||
Threaded Mode
