View Full Version : testing
bummer... I was so hopeful
Aussiebear
01-17-2011, 04:37 AM
...
Any chance you could shorten up the description to this issue? We are all busy people here.
Any chance you could shorten up the description to this issue? We are all busy people here.
:content: LOL, I just saw this Ted :-)
I would like to add a new worksheet to the original workbook (Workbook 1) that is housing the macro and combine all the data found in the selected files.[/QUOTE]
[quote=GTO]test2
test
I would like to add a new worksheet to the original workbook (Workbook 1) that is housing the macro and combine all the data found in the selected files
That is just weird...
Aussiebear
05-13-2011, 02:47 AM
Been out in the sun to much lately?
Aussiebear
06-30-2011, 03:02 PM
..
I get:
1000000000000000
+ 0000000000000001
_____________________
1000000000000001
Very cute Ted:thumb
I can't sneak around here at all!:hide:
vba:
Function RangeFound(SearchRange As Range, _
Optional 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(1)
End If
Set RangeFound = SearchRange.Find(What:=FindWhat, _
After:=StartingAfter, _
LookIn:=LookAtTextOrFormula, _
LookAt:=LookAtWholeOrPart, _
SearchOrder:=SearchRowCol, _
SearchDirection:=SearchUpDn, _
MatchCase:=bMatchCase)
End Function code (w/o color)
Function RangeFound(SearchRange As Range, _
Optional 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(1)
End If
Set RangeFound = SearchRange.Find(What:=FindWhat, _
After:=StartingAfter, _
LookIn:=LookAtTextOrFormula, _
LookAt:=LookAtWholeOrPart, _
SearchOrder:=SearchRowCol, _
SearchDirection:=SearchUpDn, _
MatchCase:=bMatchCase)
End Function code (w/color)
Function RangeFound(SearchRange As Range, _
Optional 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(1)
End If
Set RangeFound = SearchRange.Find(What:=FindWhat, _
After:=StartingAfter, _
LookIn:=LookAtTextOrFormula, _
LookAt:=LookAtWholeOrPart, _
SearchOrder:=SearchRowCol, _
SearchDirection:=SearchUpDn, _
MatchCase:=bMatchCase)
End Function
Aussiebear
07-14-2011, 11:33 PM
I can't sneak around here at all!:hide:
I'm afraid that's true. I'm on a crusade to educate people on the use of the correct tags......
Aussiebear
08-05-2011, 10:32 PM
Yes that's right. You summed it up beautifully
HTML?
ACK!
Font?
font: courier
font: courier new
font: "courier new"
0001020304050607080910
aabbccddeeffgghhiijj
AABBCCDDEEFFGGHHIIJJ
Function Test()
'...some code....
End Function
Function Test2()
'indented 4 spaces
End Function
Aussiebear
09-01-2011, 03:51 PM
?tonF
reiruoc: tonF
wen reiruoc: tonF
"wen reiruoc": tonF
0190807060504030201000
jjiihhggffeeddccbbaa
JJIIHHGGFFEEDDCCBBAA
()tesT noitcnuF
....edoc emos....'
noitcnuF dnE
()2tesT noitcnuF
secaps 4 detnedin'
noitcunF dnE
Sorry Mark, could not make head nor tail of it
Funny lad you! Was just trying to figure out if fixed-width works...
Hope all is well 'down under' :-)
Aussiebear
09-13-2011, 05:06 AM
All is well my friend.
test error (reply to thread)
Aussiebear
12-21-2011, 05:42 PM
That has got to be the saddest looking donkey I've ever seen
VBA Tags:
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 Tags:
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 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
asifkhan
05-25-2012, 02:24 AM
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 .
asifkhan
05-25-2012, 06:51 AM
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
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 - Here is another test
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
...+1
....yikes, that was ugly!
Aussiebear
08-05-2013, 06:03 PM
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.
Aussiebear
01-15-2014, 10:29 PM
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
Groovetc
02-17-2014, 11:27 PM
testing post
macropod
02-17-2014, 11:58 PM
Groovetc: Kindly don't do test posts outside the test forum, especially not in other peoples' threads!!!
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
:crying: Was it something I said?
Aussiebear
01-13-2017, 03:23 AM
:crying: Was it something I said?
Nope.... more like what you didn't say.
Happy Birthday???
Mazel tov???
Aussiebear
01-15-2017, 01:49 PM
Mazel tov???
Did you have to bring this up?
Powered by vBulletin® Version 4.2.5 Copyright © 2025 vBulletin Solutions Inc. All rights reserved.