#1   Report Post  
S Swedowski
 
Posts: n/a
Default 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   Report Post  
swisse
 
Posts: n/a
Default

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
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Custom Views in Pivot Table Samad Excel Discussion (Misc queries) 1 January 13th 05 01:14 AM
Custom Formats becky Excel Discussion (Misc queries) 6 December 24th 04 01:24 AM
Excel 2002 custom toolbars fick Excel Discussion (Misc queries) 4 December 13th 04 09:51 PM
Excel2000: Custom data validation and named ranges Arvi Laanemets Excel Discussion (Misc queries) 9 December 10th 04 07:05 PM
Custom Header Josh O. Excel Discussion (Misc queries) 1 December 1st 04 06:56 PM


All times are GMT +1. The time now is 06:06 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"