• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 162
  • Last Modified:

Input Box

Hi, I need to know how would i go about setting up some type of script on a command button that on an excel worksheet it will search say cell a24, if the text "CB" appears anywhere in that cell an input box will appear asking for the date.
0
sandramac
Asked:
sandramac
1 Solution
 
bruintjeCommented:
Hi Sandramac,

Still got nothing back on those other questions

Private Sub CommandButton1_Click()

Dim rng As Range

    rng = Cells.Find(What:="CB", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
       
    rng.Value = InputBox("Give the Date", "Date Input", "Like dd/mm/yyyy or something")
   
End Sub

HTH:O)Bruintje

0
 
WJReidCommented:
Hi Sandramac,

Try this code.
Sub askdate()
If Range("A24").Text Like ("CB*") Or Range("A24").Text Like ("*CB*") Or Range("A24").Text Like ("*CB*") Then
Ask = Application.InputBox(prompt="Enter Today's Date")
End If
End Sub
0

Featured Post

Become an Android App Developer

Ready to kick start your career in 2018? Learn how to build an Android app in January’s Course of the Month and open the door to new opportunities.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now