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"



Hi vbaexpress




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


hallo





hallo

[DocAElstein]

Just testing, checkin out and messin with the BBCodes and stuff to get familiar before "posting for real"
http://www.vbaexpress.com/
www.vbaexpress.com/forum/showthread.php?71162-Just-tesitng-checkin-out-and-messin-with-the-BBCodes-and-stuff&p=421358&viewfull=1#post421358
www.vbaexpress.com/forum/showthread.php?71162-Just-tesitng-checkin-out-and-messin-with-the-BBCodes-and-stuff#post421358

https://i.postimg.cc/QdtTyfHM/TestPic.jpghttps://i.postimg.cc/3dsNyCjM/TestPic.jpg (https://postimg.cc/3dsNyCjM)https://i.postimg.cc/QdtTyfHM/TestPic.jpg (https://postimages.org/)31106

Bum titty bum

https://i.postimg.cc/QdtTyfHM/TestPic.jpghttps://i.postimg.cc/3dsNyCjM/TestPic.jpg (https://postimg.cc/3dsNyCjM)https://i.postimg.cc/QdtTyfHM/TestPic.jpg (https://postimages.org/)31106
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.





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
www.vbaexpress.com/forum/showthread.php?71153-Problem-with-copying-text-to-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 www.vbaexpress.com/forum/showthread.php?71153-Problem-with-copying-text-to-the-clipboard&p=421372&viewfull=1#post421372 - scroll down to the bit titled
This is how I did it.