PDA

View Full Version : testing



GTO
01-13-2011, 01:41 AM
bummer... I was so hopeful

GTO
01-13-2011, 02:18 AM
...

Aussiebear
01-17-2011, 04:37 AM
...

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

GTO
05-10-2011, 02:56 AM
Any chance you could shorten up the description to this issue? We are all busy people here.

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

GTO
05-10-2011, 02:56 AM
...ergh...

GTO
05-12-2011, 05:26 AM
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?

GTO
06-28-2011, 02:38 AM
...

Aussiebear
06-30-2011, 03:02 PM
..

GTO
06-30-2011, 08:04 PM
I get:

1000000000000000
+ 0000000000000001
_____________________
1000000000000001

Very cute Ted:thumb

I can't sneak around here at all!:hide:

GTO
07-11-2011, 11:28 PM
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......

GTO
08-05-2011, 07:00 PM
.

Aussiebear
08-05-2011, 10:32 PM
Yes that's right. You summed it up beautifully

GTO
08-31-2011, 03:51 AM
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

GTO
09-08-2011, 10:44 PM
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.

GTO
10-26-2011, 05:52 AM
~

GTO
12-17-2011, 04:53 PM
test post

GTO
12-20-2011, 01:51 AM
test error (quick reply)

GTO
12-20-2011, 01:51 AM
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

GTO
05-18-2012, 07:40 PM
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

GTO
08-28-2012, 05:24 PM
test #1
test #2
test #3

test #3 bold and color

GTO
07-26-2013, 01:16 AM
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

GTO
07-29-2013, 08:21 PM
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

GTO
07-29-2013, 08:38 PM
...+1

....yikes, that was ugly!

Aussiebear
08-05-2013, 06:03 PM
is this where you warm up your fingers?

GTO
08-06-2013, 12:49 AM
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!!!

GTO
01-11-2017, 07:03 AM
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

SamT
01-12-2017, 02:05 PM
: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.

SamT
01-13-2017, 09:26 AM
Happy Birthday???

Mazel tov???

Aussiebear
01-15-2017, 01:49 PM
Mazel tov???

Did you have to bring this up?