Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Input box default = last input
How can I make the default value of the input box the same as the last user
input (duplicating the functionality of the built-in find/replace dialog)? Dim iLastRow As Long Dim i As Long Dim LastInput As Long With ActiveSheet iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 1 To iLastRow Dim iLastRow As Long Dim i As Long With ActiveSheet iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 1 To iLastRow If IsEmpty(Cells(i, "A")) And _ (Cells(i, "F").Value < "" Or Cells(i, "J").Value < "") Then Cells(i, "A").Select EnterFactory = InputBox("Enter Factory#: ") If EnterFactory < "" Then Cells(i, "A").Value = EnterFactory End If End If Next i End With MsgBox "No More Blank Factories" End Sub Thank you so much. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Input box default = last input
Use code like the following:
Dim DefaultValue As String Dim Result As String On Error Resume Next DefaultValue = ThisWorkbook.Names("InputDefault").RefersTo DefaultValue = Mid(Replace(DefaultValue, Chr(34), ""), 2) Result = InputBox(prompt:="Enter something", Default:=DefaultValue) If Result < vbNullString Then ThisWorkbook.Names("InputDefault").Delete ThisWorkbook.Names.Add Name:="InputDefault", _ RefersTo:=CStr(Result), Visible:=False End If On Error GoTo 0 -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com (email on the web site) "justme" wrote in message ... How can I make the default value of the input box the same as the last user input (duplicating the functionality of the built-in find/replace dialog)? Dim iLastRow As Long Dim i As Long Dim LastInput As Long With ActiveSheet iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 1 To iLastRow Dim iLastRow As Long Dim i As Long With ActiveSheet iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 1 To iLastRow If IsEmpty(Cells(i, "A")) And _ (Cells(i, "F").Value < "" Or Cells(i, "J").Value < "") Then Cells(i, "A").Select EnterFactory = InputBox("Enter Factory#: ") If EnterFactory < "" Then Cells(i, "A").Value = EnterFactory End If End If Next i End With MsgBox "No More Blank Factories" End Sub Thank you so much. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Input box default = last input
Hi Chip, Thank you for answering my post. I'm not quite sure how to integrate this in my code. Do I paste as a separate function, or within my current sub? Thanks so much! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Input box default = last input
You would integrate it with your code, something like this:
Dim iLastRow As Long Dim i As Long Dim LastInput As String With ActiveSheet iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 1 To iLastRow With ActiveSheet iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 1 To iLastRow If IsEmpty(Cells(i, "A")) And _ (Cells(i, "F").Value < "" Or _ Cells(i, "J").Value < "") Then Cells(i, "A").Select On Error Resume Next LastInput = ThisWorkbook.Names("InputDefault").RefersTo LastInput = Mid(Replace(LastInput, Chr(34), ""), 2) EnterFactory = InputBox("Enter Factory#: ", _ Default:=LastInput) If EnterFactory < "" Then Cells(i, "A").Value = EnterFactory ThisWorkbook.Names("InputDefault").Delete ThisWorkbook.Names.Add Name:="InputDefault", _ RefersTo:=CStr(EnterFactory), Visible:=False End If On Error goto 0 End If Next i End With MsgBox "No More Blank Factories" End Sub -- Regards, Tom Ogilvy "justme" wrote in message ... Hi Chip, Thank you for answering my post. I'm not quite sure how to integrate this in my code. Do I paste as a separate function, or within my current sub? Thanks so much! |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Input box default = last input
Thank you, Chip!
:) |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Input box default = last input
Tom,
You are my hero! Thank you for all you do! : ) : ) : ) |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Turning off the default date input | Excel Discussion (Misc queries) | |||
default name and value in input cell | Excel Worksheet Functions | |||
Input Box default value as a date | Excel Programming | |||
Retaining the default in an input box - again | Excel Programming | |||
Retaining a default in an input box | Excel Programming |