Need helps with a few Macros

  • Thread starter Thread starter Obi-Wan Kenobi
  • Start date Start date
O

Obi-Wan Kenobi

Obi-Wan Kenobi (without the force)

I have several questions and would greatly appreciate if anyone coul
help me on answering some or all of my queries. I am building
customer list and need help on the following.

1) Is there a way to time set worksheets, e.g. if worksheet1 is opene
then after about 10 seconds sheet2 will open automatically and the
sheet3 and so forth?

2) Is there a way to get a box to open when it is hovered above an
Icon/image, to advise the user of the function of that icon/image? Th
image is NOT sitting in a cell but is already in another box.

3) When a search for a customer record is done lets say in sheet1 an
the record is not found how do I get a box to open which give the use
the option to create and NEW record or press cancel? If pressed YES
form will open in worksheet2 for completion?

4) And finally for today and this relates to Q3. I have the followin
code (See Below). It allows for a search of a record to take place whe
a word it typed in to Cell A1 and to further filter the list the use
can type into Cell G1, This takes place all on ONE Worksheet.

I like this search tool but I want to have the search Fields (A1 an
G1) in worksheet1 and the customer list in Sheet3. I also want mor
search field options, e.g. Location, ID No. Name1, Name2, Sex,

This is the "Criteria" range which sits in cell J2

=AND(OR($G$1="",D4=$G$1),ISNUMBER(SEARCH($A$1,E4)))

The workbook is called DATA and this is the code.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$1" Or _
Target.Address = "$G$1" Then
Range("Database").AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=Range("Criteria"), Unique:=False
End If
End Su
 
Back
Top