Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find MatchCase problem
I am using MatchCase:=False , but below coding can not able to find
040x in Worksheet. In target worksheet have cc code 040X, I can not able to using 040x to found target cc code 040X . Do you know why ? I also try LookIn:=xlvalue Set c = (loSheet.Columns("A:A").Find(What:=loString, After:=loSheet.Range("A1"), _ LookIn:=xlvalue, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False, MatchByte:=False)) Sub test_SearchCC() Dim a As Integer a = Search_CC("040x") MsgBox "Result row value is " & a End Sub Function Search_CC(loString As String) As Integer '~~ Find Cost Ctr Dim c Dim FirstAddress Dim myPos As Integer Dim result As Integer Dim loSheet As Worksheet Dim loWorkbook As Workbook Set loWorkbook = Application.Workbooks(Account.getAccWSheet) Set loSheet = loWorkbook.Sheets(Account.getCC) ' ' Cells.Find(What:="040X", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ ' :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ ' False).Activate Set c = (loSheet.Columns("A:A").Find(What:=loString, After:=loSheet.Range("A1"), _ LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False, MatchByte:=False)) If Not c Is Nothing Then FirstAddress = c.Address myPos = InStr(2, FirstAddress, "$") result = VBA.Mid(FirstAddress, myPos, VBA.Len(FirstAddress)) '~~ MsgBox "found " & FirstAddress & " " & Result Search_CC = result Else Search_CC = 0 End If End Function |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find Problem | Excel Programming | |||
Find and Find Next problem | Excel Programming | |||
MatchCase syntax? | Excel Discussion (Misc queries) | |||
find problem | Excel Programming | |||
Problem with FIND | Excel Programming |