test error (quick reply)
test error (quick reply)
test error (reply to thread)
That has got to be the saddest looking donkey I've ever seen
Remember To Do the Following....
Use [Code].... [/Code] tags when posting code to the thread.
Mark your thread as Solved if satisfied by using the Thread Tools options.
If posting the same issue to another forum please show the link
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):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
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
Last edited by GTO; 08-28-2012 at 05:42 PM.
Test tags 4.2.1
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...
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
Last edited by GTO; 07-29-2013 at 08:36 PM.
...+1
....yikes, that was ugly!
is this where you warm up your fingers?
Remember To Do the Following....
Use [Code].... [/Code] tags when posting code to the thread.
Mark your thread as Solved if satisfied by using the Thread Tools options.
If posting the same issue to another forum please show the link
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
Remember To Do the Following....
Use [Code].... [/Code] tags when posting code to the thread.
Mark your thread as Solved if satisfied by using the Thread Tools options.
If posting the same issue to another forum please show the link
testing post
Groovetc: Kindly don't do test posts outside the test forum, especially not in other peoples' threads!!!
Cheers
Paul Edstein
[Fmr MS MVP - Word]
Another test of current code tags...
'----------------------------------------------------- ' 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
Was it something I said?
I expect the student to do their homework and find all the errrors I leeve in.
Please take the time to read the Forum FAQ
Happy Birthday???
Mazel tov???
I expect the student to do their homework and find all the errrors I leeve in.
Please take the time to read the Forum FAQ