bummer... I was so hopeful
bummer... I was so hopeful
Last edited by GTO; 01-13-2011 at 01:55 AM.
...
Any chance you could shorten up the description to this issue? We are all busy people here.Originally Posted by GTO
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
LOL, I just saw this Ted :-)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]
Originally Posted by GTOtestThat is just weird...Originally Posted by Blue_Bunny
Been out in the sun to much lately?
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
...
..
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
I get:
[vba]
1000000000000000
+ 0000000000000001
_____________________
1000000000000001
[/vba]
Very cute Ted
I can't sneak around here at all!
Last edited by Aussiebear; 07-14-2011 at 11:31 PM. Reason: Added vba tags to code
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]
Last edited by Aussiebear; 07-14-2011 at 11:37 PM. Reason: code tags.......
I'm afraid that's true. I'm on a crusade to educate people on the use of the correct tags......Originally Posted by GTO
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
.
Yes that's right. You summed it up beautifully
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
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
Last edited by GTO; 08-31-2011 at 04:26 AM.
[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
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
Funny lad you! Was just trying to figure out if fixed-width works...
Hope all is well 'down under' :-)
All is well my friend.
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
~
test post