M
moonhk
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
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