Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
possible if function??
Public Sub getdata()
Dim nextrow As Long Dim entry1 As String, entry2 As String, entry3 As String Dim entry4 As String Do nextrow = Range("A65536").End(xlUp).Row + 1 entry1 = InputBox("What is the HFC MAC?") If entry1 = "" Then Exit Sub entry2 = InputBox("What kind of modem is it?") If entry2 = "" Then Exit Sub entry3 = InputBox("Where is the modem?") If entry3 = "" Then entry3 = "Shevled" entry4 = InputBox("What's the status of the modem: Renting, Purchased or Pending") If entry4 = "" Then entry4 = "Pending" Cells(nextrow, 1) = entry1 Cells(nextrow, 2) = entry2 Cells(nextrow, 3) = entry3 Cells(nextrow, 4) = entry4 Loop End Sub thats what the macro looks like...after the user inputs the adata collected for entry1 i want the macro to search the previous entries for that one then promt other questions but if its not in there then is will insert the data to the next empty row |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
possible if function??
A bit more clarity about what you want tot do would help -- tony h ------------------------------------------------------------------------ tony h's Profile: http://www.excelforum.com/member.php...o&userid=21074 View this thread: http://www.excelforum.com/showthread...hreadid=525909 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
possible if function??
You may want to consider using a UserForm to collect all this data.
You can use a ComboBox for "What is the HFC MAC?" which allows the user to choose from a predefined list (based on previously entered data) or enables a textbox for entry if "Other..." is selected in the Combo. ComboBoxes may also be suitable for your other fields. For your existing code, you may consider revising the input prompts to; while entry2 = "" entry2 = InputBox "What kind of modem is it?" wend and so on for the other inputs (I think my while/wend syntax is correct) This will avoid dumping the user out of the procedure if they double press ENTER and inadvertantly send an empty string. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
possible if function??
basically what i'm looking for in this part is when the user inputs data
prompted by the first input box (entry1) i want the macro to take that user input and compare it against previous entries in the same column, for example user inputs 458 in for entry1, the macro will then search for 458 in the same column and if its found it will then prompt you to change the data next to it if needed, if it is not found then it will continue on wiht the rest of the macro...i have no ide aif that makes any sense to you but it does to me :-P thanks a million! |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
possible if function??
'might this work?
If ActvieWorkbook.Date1904 Then 'do Apple stuff Else 'do PC stuff End If |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
possible if function??
try Public Sub getdata() Dim nextrow As Long Dim entry1 As String, entry2 As String, entry3 As String Dim entry4 As String Dim rng As Range, rngF As Range Do nextrow = Range("A65536").End(xlUp).Row + 1 entry1 = InputBox("What is the HFC MAC?") If entry1 = "" Then Exit Sub Set rngF = Range("A:A").Find(entry1) If rngF Is Nothing Then entry2 = InputBox("What kind of modem is it?") If entry2 = "" Then Exit Sub entry3 = InputBox("Where is the modem?") If entry3 = "" Then entry3 = "Shevled" entry4 = InputBox("What's the status of the modem: Renting Purchased or Pending ") If entry4 = "" Then entry4 = "Pending" Else entry2 = InputBox("What kind of modem is it?", , Cells(nextrow 2)) If entry2 = "" Then Exit Sub entry3 = InputBox("Where is the modem?", , Cells(nextrow, 3)) If entry3 = "" Then entry3 = "Shevled" entry4 = InputBox("What's the status of the modem: Renting Purchased or Pending ", , Cells(nextrow, 4)) If entry4 = "" Then entry4 = "Pending" End If Cells(nextrow, 1) = entry1 Cells(nextrow, 2) = entry2 Cells(nextrow, 3) = entry3 Cells(nextrow, 4) = entry4 Loop End Sub regard -- tony ----------------------------------------------------------------------- tony h's Profile: http://www.excelforum.com/member.php...fo&userid=2107 View this thread: http://www.excelforum.com/showthread.php?threadid=52590 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
copy of excel file not showing formulal/function in the function b | Excel Discussion (Misc queries) | |||
LINKEDRANGE function - a complement to the PULL function (for getting values from a closed workbook) | Excel Worksheet Functions | |||
Offset function with nested match function not finding host ss. | Excel Worksheet Functions | |||
Emulate Index/Match combo function w/ VBA custom function | Excel Worksheet Functions | |||
Adding a custom function to the default excel function list | Excel Programming |