Visual Basic :: How Am I To Find Whether I Have Hit ALT + Z Key

Macro To Find Out The Mapping Between Cells ??? {find Dependents}
Hi !
Let´s talk about Excel again

I have an Excel sheet made by another person. In this sheet there are some cells whose value is set to be the same than in other cells of the sheet. For example:

in cell A20 the data is set to "=G56" so every time I change the data in G56, the value of A20 also changes.

However, since it was a different person who made this sheet, I dont know how many cells there are assigned to the value of other cells. I can try to find out just selecting all the cells one by one and looking at the top bar, however, it would be a neverending task, because there are many cells filled.

I would like to do a macro which says, for each selected cell, which is the other cell assigned to it. CAN YOU PLEASE HELP ME?

THANKS!!!!

How To Find The IP-adress Of A Computer/find A String In A .txt File
How can I (by using code) find the IP adress of a pc? i have tried with WMI but i cant find it ... otherwise i have no ideas how to do it ... the only thing i can think of is pinging to it and then save that into a .txt file. but then i got the problem i cant find a way to find the ip adress ... i have tried to searach for the position of the words right before it("Antwoord van:") and behind it (": Bytes") but it doesnt seem to work out.

can anyone of you give me a solution / more ideas?

Is There A Find Function To Find The Position Of A Character In A String?
Hi
I am using Microsoft Excel 2000.
I wanted to know if there is a way of easily finding the position of a character in a string.
My main problem is that I need to go thru a string and remove all characters that are not letters or numbers.

This is what i am doing so far: (i would be most grateful for any suggestions or help)

Dim yo As String
Sub kristy()

    Dim numberofcharts As Integer
    Dim name, name2, tempa As String
    numberofcharts = 200
    'loop thru each chart and select the title and use that as the file name
    For i = 1 To numberofcharts
        Windows("file.xls").Activate
        ActiveSheet.ChartObjects(i).Activate
        ActiveChart.ChartArea.Select
        ActiveChart.ChartTitle.Select
        name = ActiveChart.ChartTitle.Text
        tempa = name
        name2 = StripOut(tempa)
        fname = ThisWorkbook.Path & "" & name2 & ".png"
        ActiveChart.Export Filename:=fname, FilterName:="PNG"
        name2 = ""
    Next i
End Sub

Public Function StripOut(from As String) As String
    Dim h, a, b, c, result As Integer
    Dim tempChar, temp, str1, str2, str3 As String
    StripOut = from
    str1 = "DEFGHIJKLMNOPQRSTUVWXYZABC"
    str2 = "abcdefghijklmnopqrstuvwxyz"
    str3 = "1234567890"
    For h = 1 To Len(StripOut)
        temp = Mid$(StripOut, h, 1)
        a = InStr(str1, temp)
        b = InStr(str2, temp)
        c = InStr(str3, temp)
        If ((a = 0) And (b = 0) And (c = 0)) Then
            'if the character is bad then delete it
            StripOut = Replace(StripOut, temp, "")
            'put something here so that it looks for the previous thing in the string and then increments it by one

        End If
    Next h
End Function

Thanks for any suggestions!!

Edited by - kristy2710 on 6/3/2004 1:41:02 PM

How To Find Out How Ot Find Out What Running But Not Shown In Crtl Alt Del Can Some??
how to find out how ot find out what running but not shown in crtl alt Del Can Someone Help Me On THis And to Also Find out WHat running In THe Memory?

Implementing Find And Find Next For RTB Control
Hi,
How does one implement the Find and Find Next for text in a RichTextBox control (for VB 6) considering search direction parameters like searching from top, searching from current cursor position forward and searching from current position backwards? and before I forget. . .case (uppercase, lowercase)?

Thanks

RichTextBox1.Find (...want To Find More Than One Instance)
I am using a rich textbox. Inside that box I am searching for a particular word. Let's say the word is "up". The sentence is: "Up up and away-ay, in my beautiful balloon."

Here there are 2 instances of up. How do you find both(or all if there were 5 instances of up) using the RichTextBox1.find ("up") statement/code???

My reason for finding this is to color all instances of the find result a certain color. Say red for example. So...up would appear red twice in my rich textbox. This is similiar to how you search help. You know, it gives you every instance of the word that you searched for in green. That's what I'm trying to do.

Any ideas???

Sal

How Do I Find The Row Value Of A Constant Found By .Find?
Ok, if I us the line...

Set c = .Find(EnteredValue, LookIn:=xlValues)

to find a value c, how can I find the row value of c to get...

Worksheets(strCopyToSheet).Rows(c.Value).Copy

To work? The c.Value is working and I tried replacing it with c.Row.

I believe that

firstAddress = c.Address

But, how do I add the other columns in that row?

ADO Find Method Vs DAO Find Methods
Dear People,

I'm having a bad time trying to make the ADO's Find method work as the DAO counterparts (FindFirst, FindLast, etc.). The main problem is the filter option. How can I add the cool DAO support for complex filters that use boolean operators and functions?

I'll appreciate your help.

Basic Word - A Simple Find, Print Current, Find Next, Print
This is a really simple code used as a macro in Word that finds, prints the current page it found it on, finds next, print, etc. The problem in my code is that I need to find a way for it to stop at the end of the page <the loops i've put in won't stop.. i dont know the end of page function ?? or something along the lines>. So basically I just need this to keep looping until it reaches the bottom of the page. Here's what I have :

Selection.Find.ClearFormatting
With Selection.Find
.Text = "NO"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=False, PrintToFile:=False

Thanks in advance for your help.

Jeff

Find And Replace Byte In Exe Files (find Byte On The Basis Of It's Offset)
Hi.. gurus..

I've some work 4 u...

i'm trying to find a hex value in a exe file... i have the offset value of that byte.. i want to find that hex value by using the offset value for that byte..
how can i do taht ?????

need urgent help...

Thnx...

How To Find New/additional Component For VB6 And How To Do "Windows-Find" Function.
Hi there,

I need someone to help me on this..

1) Could anyone tell me how i can find a link that can get new or additional component to use in VB6? No matter it is freeware or shareware well do. Of course i prefer freeware.. hehe..

2) I'm trying to develop a "Find" function just like the one in Windows - Find. But i totally have no idea how to start it or what component i need to use! Never do this kind of project before. Windows- Find have limited option for me to find a file, i need extra option just like "Categories". What im thinking is i want my "Find" function can do what Windows -Find do and add in extra option that i wanted to use. hhm.... any link or example or your experiance can teach me how to do it?

Appreciated for your help... Thanks..

~Reneè~

Selection.Find "Find Entire Cells Only"
Hi all!

I am am conducting a search on a specific excel column. I select
this column, like this:

xlap.Range("C1:C100").Select

and then get the result in "myCell"

Set myCell = xlap.Selection.Find(mydata)

I noticed that this search can return a HIT also on a PARTIAL match.
For example: I can get a match on "1234" although I searched for "34"
In Excel's Find Window this option can be selected and its called:
"Find Entire Cells Only"

How do I specify that I want to search for the EXACT contents of my search "mydata" ??

BTW: the data I deal with in this column is strictly numerical.

Thanks for any help you can provide
Alex S.

How Do I Access The "Find" Dialog In An IE Webcontrol? (and Find Next .etc)
Hopefully this is an easy one, I've been looking around trying to find it for awhile, but the search words are so damn common I never get what I want to know.

I just want to be able to seach for a piece of text on a web page, and have the browser locate and highlight it (with a selection).

Find The MS Bug .... (or Find Me A Workaround :) ..)
Start a new VB Project (Standard EXE)

add a usercontrol, place a picturebox into it.

on the usercontrol_resize event put this code:

Code:
Dim XPixel As Single
Dim YPixel As Single

XPixel = Screen.TwipsPerPixelX
YPixel = Screen.TwipsPerPixelY

UserControl.Width = Picture1.Width : UserControl.Height = Picture1.Height : Picture1.Move XPixel, YPixel, UserControl.Width - CSng(XPixel * 2), UserControl.Height - CSng(YPixel * 2)

when you try to place this usercontrol on the form you should end up with "Invalid Procedure Call Or Argument" ... anyhow if you don't get this error let me know. If you find out something wrong with the code, please again, let me know :P ...

Thanks

Find, Find Next, Replace!
I desperately need your help now

I have a TextBox and I was wondering if I could make a small "Find" option to search for texts within my textbox and "Find Next" option too..Is this possible ? How ?

Another question, I am using the code Replace to replace but its not working very well when it comes to upper cases and lower cases..what must I do ?

Thanks in advance.

Find, Find Next, Replace
just so you know right off the bat that this is about VBA.

ok well this is what im doing. i have a text editor thing that is build into a excel worksheet. and i have written a few functions that Find, FindNext and replace text in side of a text box. just like if you where to go up to the edit menu and find ect. anyway when i run my code to find the text i want to find it, it go and finds it like it is suppose to but what the problem is that after the first few times or few lines it started to find the words or characters but it will be off by a few characters like if i wanted to find "Kyle" in a paragraph it would highlight the 1 or 2 letters before the word then the "Ky" but wont. i dont know what could be my problem here is my code so you can see what im doing

VB Code:
Private Sub cmdFind1_Click()On Error GoTo errorhandler: Dim intFoundPos As Integer strSearchFor = InputBox("Find what?", "Find") If Not strSearchFor = "" Then intFoundPos = InStr(1, Sheet5.txtBox1.Text, strSearchFor, 1) intfoundpos2 = intFoundPos strButtonPush = "Find" Sheet5.txtBox1.Activate End If Exit Suberrorhandler:End Sub Private Sub cmdFindNext1_Click() Dim intFoundPos As Integer, intBegSearch As Integer intBegSearch = intfoundpos2 + 2 intFoundPos = InStr(intBegSearch, Sheet5.txtBox1.Text, strSearchFor, 1) If Not Len(strSearchFor) = 0 Then intfoundpos2 = intFoundPos strButtonPush = "FindNext" Sheet5.txtBox1.Activate End IfEnd Sub Private Sub cmdReplace1_Click()On Error GoTo errorhandler: Dim intFoundPos As Integer, strReplace As String Dim var As Variant strSearchFor = InputBox("Find what?", "Find") If Not strSearchFor = "" Then intFoundPos = InStr(1, Sheet5.txtBox1.Text, strSearchFor, 1) intfoundpos2 = intFoundPos strButtonPush = "Replace" Sheet5.txtBox1.Activate End Iferrorhandler:End Sub Private Sub txtBox1_GotFocus() Const conBtns As Integer = vbOKOnly + vbInformation + vbDefaultButton1 + vbApplicationModal Const conmsg As String = "The Search String was not found." Dim intRetVal As Integer Select Case strButtonPush Case "Find" 'find If intfoundpos2 = 0 Then intRetVal = MsgBox(conmsg, conBtns, "Find") Else Sheet5.txtBox1.SelStart = intfoundpos2 - 1 Sheet5.txtBox1.SelStart = intfoundpos2 - 1 - Sheet5.txtBox1.CurLine Sheet5.txtBox1.SelLength = Len(strSearchFor) End If Case "FindNext" 'find next If intfoundpos2 = 0 Then intRetVal = MsgBox(conmsg, conBtns, "Find Next") Else Sheet5.txtBox1.SelStart = intfoundpos2 Sheet5.txtBox1.SelStart = intfoundpos2 - 1 - Sheet5.txtBox1.CurLine Sheet5.txtBox1.SelLength = Len(strSearchFor) End If Case "Replace" 'replace If intfoundpos2 = 0 Then intRetVal = MsgBox(conmsg, conBtns, "Find") Else Sheet5.txtBox1.SelStart = intfoundpos2 Sheet5.txtBox1.SelStart = intfoundpos2 - 1 - Sheet5.txtBox1.CurLine Sheet5.txtBox1.SelLength = Len(strSearchFor) strReplace = InputBox("Replace with what?", "Replace") If strSearchFor = "" Then Else Sheet5.txtBox1.SelText = strReplace End If End If Case Else End Select strButtonPush = ""End Sub

Find/replace/find Next
Is there a common dialog box for Find/Find Next/Replace?

If so, how do I open it up from a program?

VBA Excel Find / Find Next
Good morning good people.

I find that what I need MS find is not sufficient for my needs. I want to find a number of text in a Excel cell and make the cell bold.

I can do this with the first one, but I am having trouble do this for each one in the spreadsheet. With the following code I can use it to find and replace, but I want the user to have control and search for the first occurrance (and bold it) and then either click the find button again or another command button (find next) to go to the second occurrance (3rd, 4th, 5th, etc.).

Any suggestions? DAVE

Private Sub cmdFind_Click()
Dim Counter As Integer
Private Sub cmdFind_Click()
With Worksheets(1).Range("A12000")
   'Find
   Set c = .Find(txtFind.Text, LookIn:=xlValues)

    If Not c Is Nothing Then
       firstAddress = c.Address

       'Replace
       Do
            c.Rows.Select
            Selection.Font.Bold = True
            Set c = .FindNext(c)
       Loop While Not c Is Nothing And c.Address <> firstAddress
    Else
      MsgBox "Sorry " & txtFind.Text & " was not found."
    End If
End With
End Sub

Edited by - wheels on 4/9/2008 4:43:10 AM

Find A File, Find Text Within A File, Then Change It
Find a file, find text within a file, then change it, how would I go about doing that

How To Add The "find Like" Feature To Listview Find?
Dim lvItem As ListItem

Set lvItem = lvCustomerList.FindItem(txtSearch.Text, 1)
If lvItem Is Nothing Then

MsgBox "No match has been found.", vbOKOnly + vbInformation, "Information"

Exit Sub
Else

lvItem.EnsureVisible

lvItem.Selected = True

lvCustomerList.SetFocus
End If

End Sub
this code will only show the exact "txtsearch.text" otherwise it will say no match found...what i want is to apply the "like" feature so when i type "M" it will highlight to the first record with an M...help on this issue >.<

Recordset.Find Doesn't Find Very First Record In Recordset
Hi,

I am trying to find a record in a recordset using the code below. If the record is not there, the user is informed. This works fine for all records in the recordset except when I am looking for  the very first record. In this case, I am always informed that it is not there and I know that it definitely is.

here's the code

'Check to see if employee is still with company.

CurrentEmpl = "SELECT * FROM Employee WHERE Leaving_Date Is Null;"

Set RS = cn.Execute(CurrentEmpl)
RS.MoveFirst
RS.Find "emp_id =" & txtemp_id.Text, adSearchForward

If RS.EOF = True Then
    MsgBox (" This person has left the company.")
Else
    'more code
End If

All ideas welcome

FIND Code... Cannot Find Code To Perform The Following
Firstly - I am a new user, but learn fast. I am looking to write a 'find and replace' macro within word, and have had trouble getting the ONE code command to search for (as examples);
{name} and
{age} and
{weight} etc
when they are placed in a Word document.

I would like this code to find the entire {name} and prompt for a replacement, then move onto the next victim {age}, prompt for a replacement... etc...

The search string is the trouble at the moment. Any ideas?

I apologise if this is TOO easy and am wasting your time...

Scott.

Find Files And Then Find In Text In That Files
Hi all

I must do a text search on a website(with results of road races).

So i downloaded the whole site to my pc.
I must now do a text search all the file to find the races
the atletes complete in.

Please help.

search ? J Brown
result ? Complete in Filename of race(Each race has its own file.)

Opening "Find All" Or Standard "Find"
Does anyone know code that will automatically open the "Find" box in Excel or possibly a "Find All" box?

I'm really looking for the "Find All" option since it will show the results by tab name in the bottom of the box allowing the user to choose one based on which tab it is on.

I've tried searching all through the historical answers to "find" questions but couldn't find a suggestion for opening the "Find All" box.

Thanks!

Find What?
I have a plain-text editor, and I want to add a 'Find...' feature that searches the text field (txtCode) for whatever is in a separate box (E.g. Press Ctrl+F right now). I can easily come up with the controls, but I'm having dificulty with the code. Thanks.

OMG, Find This Bug!
Could anybody please run this, and try to figure out where the bug is?
It's somewhere between the computers communicating or in the ocx I think. It occurs while starting up a game so that's where it lies. Cheers all!

Where Can I Find The SDK???!!!!!
Hello,

I'm searching for the SDK for the TAPI.
I can't find everywhere. Can anybody help me? Who know's sites where i can download this SDK???

I need more info of Tapi. I don't how to use the possibilitys of Tapi into my programm.

I don't how to initialize Tapi etc.

Who can help me?? Please, please!!

Thanks,

Garrut

.find
Hi!.. im using ".FIND" to search for a particular record.., what if there are 2 or more criterias to be searched.. i tried to use " and" but it didnt worked..

ex: adodc1.recordset.find " fld_name = '" + text1.text + "'" and " fld_course = ' " + text2.text + "'" ( "and" doesnt work here)

if .EOF then it saves blahblah...

thanks...

Find
I need to check a cell at a time for part of a string , if it contains that part of a string then if it has or not do something with it

what I am looking for is a command or procedure to check a cells contents to see if it contains part of a specified string.

Thanks

How Do I Find The Last Value In A Given Row?
Hi all,

Is there an easy way to find the value of the last row in a column?

I have it working with this code:

Code:
'Starting at A3 because of my header
Sheet1.Range("A3").Select

Do While IsEmpty(ActiveCell) <> True
strMaxSeconds = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop

But this takes too long (sometimes I'll have to go through 1300+ rows). Plus this doesn't take into account that there could be an empty cell inbetween a set of good data. Like this:

------------
Apple
Orange

Carrot
Lemon
Grape
------------

Isn't there a constant somewhere that can tell me the row and column limits of my current sheet?

There must be one because when you print a sheet the printer knows what the limits are.

Thanks in advance,
jason

If...Then...Else And Find
Okay, I know I am over-thinking this. Which is why I am not finding the solution. I need some outside brains to think more rationally for me.

I have an excel spreadsheet that contains groups of information. Within those groups there are only two cells of information that I need. I want to be able to take those two cells and copy them to specific places on another spreadsheet.

The problem is, on a daily basis, the source spreadsheet does not contain the same groups. Also, the cells of data that I need are not always in the same row (but are in the same column).

Each group is preceded by a group name. What I am thinking is that I need to search for each group name, then tell it to offset to the cells that I need and copy/paste them to the specified cells in the destination spreadsheet.

The problem I am having is when the search for the group name returns an error. I have been succesful in making something work when the group always exists in each source soreadsheet. However, when the group it is searching for does not exist on the spreadsheet, I get an error that states "Runtime error 13: Type mismatch".

Here is the code I have so far

Sub SatWk1CombMid6()

Dim Group

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Set Group = Cells.Find(What:="Group Number : 1 ---", After:=ActiveCell, LookIn _
:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False).Activate
If Not Group Is Nothing Then
GoTo Group2
Else
ActiveCell.End(xlDown).Offset(1, 4).Copy
Windows("bothell_test.xls").Activate
Sheets("Bothell Sales1").Range("C4").Select
ActiveSheet.Paste
Windows("c12_6.xls").Activate
ActiveCell.End(xlDown).Offset(1, 17).Copy
Windows("bothell_test.xls").Activate
Sheets("Bothell Sales1").Range("D4").Select
ActiveSheet.Paste
Windows("c12_6.xls").Activate
End If

Group2:

.....etc.

Any assistance would be greatly appreciated.

Find Next Row
i have a sheet with a list of about 10000 values in
i know the row number of all the values i need
and want to be able to type the value into a cell and get a macro to go to that row but i cant get it to work.

any ideas

cheers stuart

Find Next Different Value
Hi, all.

I'm stuck on a problem. I've got a very complicated workbook full of very complicated data that are related (but different). Sheet1 contains a complete set of one type of data (behavioral data for my psychology dissertation, if it matters), whereas sheets 2-16 contain EEG data related to the data on Sheet1. The data on sheets 2-16 are often missing data. For example, sheet1 contains information that can be categorized into C1-C6 and I1-I6. The other sheets could randomly have, say, C6, I2, I5, & I6. They may have anywhere between three and all twelve of these categories.

I need to search sheet1, identify the category, and compare it to one of the other sheets to determine if the other sheet contains data within this category. This much I can do. However, if sheet2 for example doesn't have that category, I need to go back to sheet1 and find the next row that has a different category. This could be anywhere from 1-40 rows later.

I was thinking something like cells.find might be an easy way to do it, but I don't know how to structure the cells.find command to say "find the next one in the column that is different from this one." Any ideas on this?

I suppose I could always do a loop, if I must.

Thanks,

Wally

Using Find
I am using the built in find funtion to search for items in excell through a macro. When ever it doesn't find what it is looking for, it gives me a message like runtime error 91, or somethign like that. is there anyway that i can set things up so that it displays a message box to the user that says "part number not found" instead of the one it shows? Also, is there any way to diplay a message box without pausing the code or display one for like 5 seconds that doesn't have a button on it? any advice woudl be apriciated.

thanks,

michialj

Can't Find A Way
Hello Guys, if anyone can help me with this I would be more than thankful.

I have just downloaded some data from Bloomberg (for those who know how the system works, I did it by using the Table Wizard), and the dates on the spreadsheet are shown as follows:

2/15/2008
5/15/2008
8/15/2008
9/15/2008
10/15/2008
11/15/2008
12/15/2008
...

Those cells do not have the "date" format, so I cannot make any calculations with them. Additionally, as you can see, the format is "mm-dd-yyyy". I just wanted to know if there's a way for transforming this data into cells with the format "dd-mm-yyyy".

I just don't know how to do it. Especially because this cells don't even have any format!

I attach a spreadsheet for you to see.

I would really appreciate any help guys.

Take care and thanks a lot.

Juan Manuel

About Find(what:=....)
Hi there. I got a problem using Find(what:=...) to search a value in a column.
Here are the values in the worksheet and my vba code.

Values in column B
'Column B
TESTING
TESTING2

Code:
Private Sub CommandButton17_Click()
pw_key = Listbox1.value '=TESTING
Set name_col = Columns("b")
Set update_pw = name_col.Find(what:=pw_key)
If Not update_pw Is Nothing Then
pw_no = Mid(update_pw.Address, 4)
Range("c" & pw_no).Value = TextBox10.Value
End If

However, the value of pw_no turned out to be '2' instead of '1' where 'B1' matched the search key of 'TESTING'. How could it be?

Cheers.

Find
I am writing a VB macro that needs to search cells in an excell spread sheet. The cells in the spread sheet are dates (Mar-04, Apr-04...) and I can't get any find method to work 100% of the time. I have been trying this two different ways and both of them work sometimes and sometimes i get an error, pretty much saying it couldn't find the date.

Sheets(1).Rows(rw).Find(What:=CurrentDate).Column
'currentdate being the date this month ("4/1/04")

Do
If (Cells(rw, col).Value = CurrentDate) Then
trip = False
End If
col = col + 1
Loop Until trip = False Or col = 100

I am not sure if i am missing something or if my computer just sucks. If someone could help me out i would be very appreciative. Thanks

Rs.find
Hello Again,

Working with an ADODB databse and have incountered a wierd kind of error.

Here goes...This is my Code:

Code:
Public strAppDatabase As String
strAppDatabase = App.Path & "warranties.mdb"
Set MYconn = New ADODB.Connection
MYconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strAppDatabase
MYconn.Open

'*** Here is the code with the problem
Dim rs As New ADODB.Recordset
rs.Open "SELECT CityID, City FROM Cities ORDER BY City", MYconn, adOpenStatic, adLockReadOnly, adCmdUnspecified
rs.MoveFirst
rs.Find "City = '" & CityAddTxt.Text & "'"

If rs.EOF Then
MsgBox "Record Not Found!"
Else
MsgBox "Duplicate " & CityAddTxt.Text & " Found In Table!" 'rs.Fields(0)
End If
If I enter text into the CityAddTxt.Text such as Mt. Pearl. All works well. If I enter text into the CityAddTxt.Text such as St. John's" I get the following Error:

Runtime Error '3001':

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one and other.

I click debug and it highlights rs.Find "City = '" & CityAddTxt & "'"

Only difference is St. John's has the ' and Mt. Pearl does not. It seems as though whenever I use a ' in my search string the problem arrises.

Any ideas as I am stumped on this one.

Find Out The Name Of A Sub
HI,

I have written error handler routine:

Code:
On Error GoTo ErrHandler

code ....

Exit Sub

ErrHandler:
Select Case Err.Number
Case Else
ErrMsg "Sub_Name", Err.Number
Exit Sub
End Select
Resume
My problem is that I have to copy the name of the sub into the call of the ErrMsg. How can I find out the name of the sub/function that i am inside right now so that the ErrMsg can automatically receive the name?

Thanks in advance

Find
I am testing for the presence of a string in a file using Instr(). Which works.

Now I need to test for the presence of any string which is not "A". But the trick here is that I do not want to include numbers in "strings which are not A". How do I do that?

How To Find If A Value Is 'like' Another Value
im writing a search function for a program that im working on.

it reads information from a small database that i have made, and i want to be able to enter what i want to search for in a text box, then click search and it will bring that record up.

i have the main working of it down, but for it to find a record, you have to type what you are looking for EXACTLY how it is entered in the database.

is there anyway i can use some sort of 'like' statment for example:

if text1.text like text2.text then
blah blah blah

i know this doesnt work but i was wondering if theres somthing similar to that that i can use

Find Last Row...
Hello,

I'm using macros and excel..vba

and i'm having difficulty to find last row used and copy all rows;
and paste them in a selected worksheet..

if anyone can help, i really appreaciate...

I Need A Way To Do While Find
i've been trying to create a script that changes all the Y's in a column into T's using the find function(it wont be changing them into T's eventually i'll put the real code in but for now i want it working)

Code:
Do While (Columns("B:B").Find(What:="Y", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate & ActiveCell.Value = "Y")
ActiveCell.FormulaR1C1 = "T"
Loop

i cant see what i'm doing wrong, well i kind of can, i dont think i can call the find function while im in the While conditions, but how would i go about doing this so i can change all of them in the column and not getting an error when there are no more to find. please help i'm all out of ideas and i've been at it for ages

How Am I To Find Whether I Have Hit ALT + Z Key

I just want the VB coding sample whether the user has pressed ALT + Z key???