test error (quick reply)
Printable View
test error (quick reply)
test error (reply to thread)
That has got to be the saddest looking donkey I've ever seen
VBA Tags:
[VBA]Option Explicit
Function RangeFound(SearchRange As Range, _
Optional ByVal FindWhat As String = "*", _
Optional StartingAfter As Range, _
Optional LookAtTextOrFormula As XlFindLookIn = xlValues, _
Optional LookAtWholeOrPart As XlLookAt = xlPart, _
Optional SearchRowCol As XlSearchOrder = xlByRows, _
Optional SearchUpDn As XlSearchDirection = xlPrevious, _
Optional bMatchCase As Boolean = False) As Range
Dim Fake_1 As Variant
Dim Fake_2(0 To 2) As String
If StartingAfter Is Nothing Then
Set StartingAfter = SearchRange(1)
End If
Set RangeFound = SearchRange.Find(What:=FindWhat, _
After:=StartingAfter, _
LookIn:=LookAtTextOrFormula, _
LookAt:=LookAtWholeOrPart, _
SearchOrder:=SearchRowCol, _
SearchDirection:=SearchUpDn, _
MatchCase:=bMatchCase)
End Function[/VBA]
Code Tags:
Code Tags (colorized):Code:Option Explicit
Function RangeFound(SearchRange As Range, _
Optional ByVal FindWhat As String = "*", _
Optional StartingAfter As Range, _
Optional LookAtTextOrFormula As XlFindLookIn = xlValues, _
Optional LookAtWholeOrPart As XlLookAt = xlPart, _
Optional SearchRowCol As XlSearchOrder = xlByRows, _
Optional SearchUpDn As XlSearchDirection = xlPrevious, _
Optional bMatchCase As Boolean = False) As Range
Dim Fake_1 As Variant
Dim Fake_2(0 To 2) As String
If StartingAfter Is Nothing Then
Set StartingAfter = SearchRange(1)
End If
Set RangeFound = SearchRange.Find(What:=FindWhat, _
After:=StartingAfter, _
LookIn:=LookAtTextOrFormula, _
LookAt:=LookAtWholeOrPart, _
SearchOrder:=SearchRowCol, _
SearchDirection:=SearchUpDn, _
MatchCase:=bMatchCase)
End Function
Code:Option Explicit
Function RangeFound(SearchRange As Range, _
Optional ByVal FindWhat As String = "*", _
Optional StartingAfter As Range, _
Optional LookAtTextOrFormula As XlFindLookIn = xlValues, _
Optional LookAtWholeOrPart As XlLookAt = xlPart, _
Optional SearchRowCol As XlSearchOrder = xlByRows, _
Optional SearchUpDn As XlSearchDirection = xlPrevious, _
Optional bMatchCase As Boolean = False) As Range
Dim Fake_1 As Variant
Dim Fake_2(0 To 2) As String
If StartingAfter Is Nothing Then
Set StartingAfter = SearchRange(1)
End If
Set RangeFound = SearchRange.Find(What:=FindWhat, _
After:=StartingAfter, _
LookIn:=LookAtTextOrFormula, _
LookAt:=LookAtWholeOrPart, _
SearchOrder:=SearchRowCol, _
SearchDirection:=SearchUpDn, _
MatchCase:=bMatchCase)
End Function
The computer power-on self-test (POST) tests the computer to make sure it meets the necessary system requirements and that all hardware is working properly .
what kind of test post you are talking about
test #1
test #2
test #3
test #3 bold and color
Test tags 4.2.1
Code:Public Property Let WinHandle(wh As Long)
hwndForm = wh
End Property
Public Property Get WinHandle() As Long
WinHandle = hwndForm
End Property
test courier (font tags)
test Courier New
tes
s
Def font...
Test Courier New (Font Tags) ---> Here is a test (no quotes in the tag's arg)
back to def font/face...
Test Courier New (with quotes) ---> Here is another test
ie - [Font="courier new"]Here is another test[/Font]
Code Tags w/Font tags...
Code:Function RangeFound(SearchRange As Range, _
Optional ByVal FindWhat As String = "*", _
Optional StartingAfter As Range, _
Optional LookAtTextOrFormula As XlFindLookIn = xlValues, _
Optional LookAtWholeOrPart As XlLookAt = xlPart, _
Optional SearchRowCol As XlSearchOrder = xlByRows, _
Optional SearchUpDn As XlSearchDirection = xlPrevious, _
Optional bMatchCase As Boolean = False) As Range
If StartingAfter Is Nothing Then
Set StartingAfter = SearchRange.Cells(1)
End If
Set RangeFound = SearchRange.Find(What:=FindWhat, _
After:=StartingAfter, _
LookIn:=LookAtTextOrFormula, _
LookAt:=LookAtWholeOrPart, _
SearchOrder:=SearchRowCol, _
SearchDirection:=SearchUpDn, _
MatchCase:=bMatchCase)
End Function
...+1
....yikes, that was ugly!
is this where you warm up your fingers?
No, mostly just finding out that my head is still as thick as ever. See...
After reading most of DRJ's and others comments in the Upgrades thread, I got to testing (I think in response to comments of SamT's?). Anyways, as I mentioned, my head remains mostly vacant, as it was taking me forever to figure out a simpleton thing. ([font] tags work fine. But when you keep trying [face] tags that don't work, you are going to keep seeing the same [bleeeep] results... The last one was trying to increase font size a tiny bit. Ooooo Yuck! It were WAY too big.
Days Fishing/Month Costs Results 5/January 1547.00 38 3/February 971.55 26
Month Income Expenses Jan 24258.00 24257.99 Feb Out of Business
Issue at Hand Distracted by Result Should have mowed lawn Went fishing Got yelled at by the Bride Should have mowed lawn (again) Yep...Fishing First & Final issued by the Bride
testing post
Groovetc: Kindly don't do test posts outside the test forum, especially not in other peoples' threads!!!
Another test of current code tags...
Code:'-----------------------------------------------------
' Sheet Type | TypeName | .Type
'-----------------------------------------------------
' Worksheet | Worksheet | -4167 (&HFFFFEFB9)
' Dialog Sheet | DialogSheet | Error
' 4.0 Macro Sheet | Worksheet | 3
' 4.0 International Macro Sheet | Worksheet | 4
' Chart | Chart | 3
'-----------------------------------------------------
Public Function IsWorksheet(ByVal objSheet As Object) As Boolean
If TypeName(objSheet) = "Worksheet" Then
IsWorksheet = (objSheet.Type = &HFFFFEFB9)
End If
End Function
:crying: Was it something I said?
Happy Birthday???
Mazel tov???