Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Custom Boxes
In Lotus 123, I could have a popup box ask for specific data and when it was
entered it would go into the cells that I specified. Can Excel do too? |
#2
|
|||
|
|||
If you want a simple Search Macro try this one:
Sub SearchAndHighlight() Dim ThisArea As Range, SearchMe As String Sheets("Sheet1").Activate SearchMe = InputBox("Write here what you're looking for.") If IsEmpty(SearchMe) Then Exit Sub Set ThisArea = Sheets("Sheet1").Cells.Find(SearchMe, lookat:=xlWhole) If ThisArea Is Nothing Then MsgBox SearchMe & " - " & "There is no such entry." Else Cells.Interior.ColorIndex = xlColorIndexNone ThisArea.Interior.ColorIndex = 6 End If End Sub This opens an input box which tells you to write what you're looking for in the worksheet, and when you press OK or Enter it highlights the found cell, otherwise it will open up a message box telling you "There is no such entry." I presume that you have some working knowledge with macros, otherwise tell me. Swisse |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Custom Views in Pivot Table | Excel Discussion (Misc queries) | |||
Custom Formats | Excel Discussion (Misc queries) | |||
Excel 2002 custom toolbars | Excel Discussion (Misc queries) | |||
Excel2000: Custom data validation and named ranges | Excel Discussion (Misc queries) | |||
Custom Header | Excel Discussion (Misc queries) |