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.

[DocAElstein]

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

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

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

[DocAElstein]

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

 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