testing

bummer... I was so hopeful

...

Quote:

---

Originally Posted by GTO

...

---

Any chance you could shorten up the description to this issue? We are all busy people here.

Quote:

---

Originally Posted by Aussiebear

Any chance you could shorten up the description to this issue? We are all busy people here.

---

:content: LOL, I just saw this Ted :-)

...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

test2

---

Quote:

---

test

---

Quote:

---

Originally Posted by Blue_Bunny

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...

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]

Quote:

---

Originally Posted by GTO

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......

.

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

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:

---

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):

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?

Quote:

---

Originally Posted by SamT

:crying: Was it something I said?

---

Nope.... more like what you didn't say.

Happy Birthday???

Mazel tov???

Quote:

---

Originally Posted by SamT

Mazel tov???

---

Did you have to bring this up?