Just tesitng, checkin out and messin with the BBCodes and stuff

[DocAElstein]

Just testing, checkin out and messin with the BBCodes and stuff to get familiar before "posting for real"


[size=2][Table]
[tr=bgcolor:red][td=bgcolor:#blue]Hi vbaexpress[/td][/tr]
[/table][/size]

Hi vbaexpress

_____ Workbook: Mappe1 ( Using Excel 2010 32 bit )

Row\Col	A	B
1
2

Worksheet: Tabelle1

Sub ShowRangeToBBCForm() 'Main Program
    ufRangeToBBC.Show vbModeless
End Sub
                                                                                                                                                                 
                                                                                                                   Have I got a horizontal scroll bar  , well it would appear so Alan

[size=1][Table]
[tr][td=bgcolor:lightblue][COLOR="#FFFFFF"] [size=2]hallo[/size]
[/COLOR][/td][/tr][/table][/size]

hallo

[DocAElstein]

Just testing, checkin out and messin with the BBCodes and stuff to get familiar before "posting for real"

http://www.vbaexpress.com/
http://www.vbaexpress.com/forum/show...l=1#post421358
http://www.vbaexpress.com/forum/show...uff#post421358

https://i.postimg.cc/QdtTyfHM/TestPic.jpg

Bum titty bum

https://i.postimg.cc/QdtTyfHM/TestPic.jpg
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.

Open file with vba based on file name

….I know how to open a file based on a name …

I would like to open a file, when the filename includes either "cp4" or "gt4"
Then I have tó open a file, if the filename doesn’t include "ghl"

Hi,

Sub SomNames()   '    www.vbaexpress.com/forum/showthread.php?70999-Open-file-with-vba-based-on-file-name
Dim arrNms() As Variant
 Let arrNms() = Array("abcd.xls", "abcp4cd.xlsm", "abgt4cd.xlsx", "abghlcd.xls", "efgh.xls")
Dim SomName As Variant
    For Each SomName In arrNms()
        Select Case True
         Case SomName Like "*cp4*"
          MsgBox prompt:="Name  """ & SomName & """  got  ""cp4""  in it"
         Case SomName Like "*gt4*"
          MsgBox prompt:="Name  """ & SomName & """  got  ""gt4""  in it"
        End Select
    Next SomName
    For Each SomName In arrNms()
        Select Case False
         Case SomName Like "*ghl*"
          MsgBox prompt:="Name  """ & SomName & """  not got  ""ghl""  in it"
        End Select
    Next SomName
End Sub

[DocAElstein]

Some extra notes for this main forum Thread
http://www.vbaexpress.com/forum/show...-the-clipboard

So, just now I am using the forum editer to prepare this post in the usual way. I do something else, somewhere else.
Then I come back here and I hit the keys Ctrl+V on my keybord and get this

MR. Lucas Moore
MISS. Charlotte Johnson
DR. Oliver Martinez
PROF. Evelyn Rodriguez
UNDER. Daniel Wright
SECRE. Joshua Thompson
PRE. Logan Howard
MR. Jacob Robinson
MISS. Amelia Clark
DR. Mason Evans
PROF. Hannah King
UNDER. Jayden Lee
SECRE. Christopher Morris
PRE. Sebastian Young
MR. Elijah Gonzales
MISS. Isabella Lopez
DR. James Wilson
PROF. Sarah Adams
UNDER. Gabriel Miller
SECRE. Matthew Garcia
PRE. Dylan Ward
MR. Owen Phillips
MISS. Mila Simmons
DR. Henry Allen
PROF. Camila Stewart
UNDER. Michael Campbell
SECRE. Julian Anderson
PRE. Levi Bell
MR. Carter Thompson
MISS. Victoria Martin
DR. Luke Perez
PROF. Zoe Torres
UNDER. Connor Lewis
SECRE. Isaac Evans
PRE. Wyatt Morris
MR. Hunter Ward
MISS. Audrey Murphy
DR. Maverick Howard
PROF. Iris Cooper
UNDER. Thomas Russell
SECRE. Caleb Young
PRE. Sebastian Flores
MR. Levi Allen
MISS. Gianna Griffin
DR. Colton Henderson
PROF. Eleanor Cook
UNDER. Hunter Diaz
SECRE. Xavier Rodriguez
PRE. Carter James
SECRETARY



I bet everyone would like to know how I did that amazing thing. No? Well I am going tp tell ya anyways,
see here, wot I just posted http://www.vbaexpress.com/forum/show...l=1#post421372 - scroll down to the bit titled
This is how I did it.