bummer... I was so hopeful
Printable View
bummer... I was so hopeful
...
Any chance you could shorten up the description to this issue? We are all busy people here.Quote:
Originally Posted by GTO
:content: LOL, I just saw this Ted :-)Quote:
Originally Posted by Aussiebear
...ergh...
[quote=GTO]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:
Originally Posted by GTO
Quote:
test
That is just weird...Quote:
Originally Posted by Blue_Bunny
Been out in the sun to much lately?
...
..
I get:
[vba]
1000000000000000
+ 0000000000000001
_____________________
1000000000000001
[/vba]
Very cute Ted:thumb
I can't sneak around here at all!:hide:
vba:
[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[/vba] code (w/o color)
[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[/vba] code (w/color)
[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[/vba]
I'm afraid that's true. I'm on a crusade to educate people on the use of the correct tags......Quote:
Originally Posted by GTO
.
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
[VBA]?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[/VBA]
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' :-)
All is well my friend.
~
test post