[SOLVED:] Just tesitng, checkin out and messin with the BBCodes and stuff

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

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

Code:

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

1 Attachment(s)

Quote:

Originally Posted by 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 https://i.postimg.cc/3dsNyCjM/TestPic.jpg https://i.postimg.cc/QdtTyfHM/TestPic.jpg Attachment 31106

Bum titty bum

Code:

https://i.postimg.cc/QdtTyfHM/TestPic.jpghttps://i.postimg.cc/3dsNyCjM/TestPic.jpghttps://i.postimg.cc/QdtTyfHM/TestPic.jpgAttachment 31106 . . . . . . . . . . . . . . . . . . . . . .

Quote:

Originally Posted by Som

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

Quote:

Originally Posted by Som

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,

Code:

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

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.

2 Attachment(s)

Just testing / practicing

Just checking to see if i can remember how to post here, upload hre, etc.

ignore me - that is usually the best option...

Code:

Option Explicit Sub MakeFinalVendors() ' Modul1.MakeFinalVendors MsgBox prompt:="Hello" End Sub

ggjgghg

OK , so I know how to post... but just trying to answer a Thread and getting denials, errors etc.
The forum is having issues I think...

2 Attachment(s)

An answer I could not get to post in the main Excel sub forum

Hi
Another possibility.

Download both files, - put them anywhere as long as they are in the same place.
Just open FileToRunMacroInOtherFile.xls ( leave OtherFileWithSubMakeFinalVendorsInIt.xls closed )

Now run this macro which is in FileToRunMacroInOtherFile.xls

Code:

Sub AppRunSubMakeFinalVendorsInOtherFile() ' Application.Run macro:="'" & ThisWorkbook.Path & "\" & "OtherFileWithSubMakeFinalVendorsInIt.xls" & "'" & "!'Modul1.MakeFinalVendors'" End Sub

That should cause the other file to open, and the macro in it , Sub MakeFinalVendors() , should run

( If you had both files open, the effect would be the same – running Sub AppRunSubMakeFinalVendorsInOtherFile() should make Sub MakeFinalVendors() run )

Alan