Posts by Macropheliac

Re: Open A File Based On Cell Value

Maybe something along the lines of:

sUFile = Range("B1").Value
Workbooks.Open Filename:=sUFile

Re: Clear Contents Multiple Sheets

Hi, georgebrough!

Perhaps something like this?

Sub Clear_All()
Dim aRange, bRange, cRange As Range
        Set aRange = Sheets("A").Cells 'Change to your range
        Set bRange = Sheets("B").Cells 'Change to your range
        Set cRange = Sheets("C").Cells 'Change to your range
aRange.ClearContents
bRange.ClearContents
cRange.ClearContents
End Sub

Re: Userform Disappeared

Hi, Praveen!

Is the UserForm present in the Project Explorer window?

Re: ComboBox RowSource Not Showing in Add-in

Andy & Dave,
Sorry, I could not respond sooner. Both suggestions were excellent. Thank you very much for your time and assistance.:)

Thanks,
Mac

Re: Userform Combobox Dropdown List Will Not Show

Thanks, Andy, for the suggestion. I tried adding the following:

Dim PauseTime, Start, Finish, TotalTime


PauseTime = 5
    Start = Timer
    Do While Timer < Start + PauseTime
        DoEvents
    Loop

Same result. I'm not sure if I did this correctly, though as I have never used this method.

Any suggestions?

Hello,
I created an AddIn that uses Userforms with conboboxes. The initial userform is called from a custom toolbar. The 6 Combobox RowSources are named ranges on a worksheet in the AddIn. The first time the userform is called, the combobox lists will not show. After that, they show. This happens each time a new workbook is opened and the userform is loaded. I can't figure it out.

I have attached a small version of the AddIn. I would greatly appreciate if someone had an idea.

Thanks,
Mac

Re: Search All Directories

Thanks, rbrhodes!

Re: Stop The Display Of Names For Named Areas

I don't know of a way to do it manually, but the following VBA Procedure will hide all names in the workbook:

Sub Hide_Names()
Dim iName As Name


For Each iName In ThisWorkbook.Names
        iName.Visible = False
Next iName
End Sub

To unhide them, change False to True.

Or you could hide the Formula bar:
Tools / Options / View

Mac

Hello!

I have pieced together the following to search a directory for a file and open if found.

Sub FindFile()
Dim iBook As Workbook
Dim iSearch As Variant
Dim iCount As Long


Set iSearch = Application.FileSearch
With iSearch
        .LookIn = "c:\"
        .Filename = "File Name.xls"
        If .Execute > 0 Then
                For iCount = 1 To .FoundFiles.Count
                        Workbooks.Open (.FoundFiles(iCount))
                Next iCount
        Else
                MsgBox "The file does not exist."
        End If
End With
End Sub

However, I can't seem to figure out how to modify the following to include all directories.

.LookIn = "c:\"

I would be grateful if someone could suggest something.

Thanks,
Mac

Re: Add-ins Folder Location

Hello, venkat1926!

Thanks for replying. It just seems too easy.

Thanks,
Mac

Hello!

I am having my first experience with creating add-ins. I am using the following to access user's add-ins folder. It has worked on all that I have tried.

"C:\Documents and Settings\" & Environ("Username") & "\Application Data\Microsoft\AddIns\"

I simply used the path from my own add-ins folder. However, I'm wondering if this is the default location on all pcs or if I've just been lucky, so far.

Any information is appreciated.

Thanks,
Mac

Re: Activate Cell From Combobox Seletion

Maybe Data Validation would better suit your needs. Have a look at this:

Re: Macro Fails After Moving To Different Workbook

Waas the following line originally written:

FSO2.CopyFile dPath2 & dName2, dDest2 & dName2

If not, maybe change to something like:

FSO2.CopyFile dPath2 & dName2 & "," & "," & dDest2 & "," & dName2

Re: Macro Fails After Moving To Different Workbook

Edit:My apologies. I read wrong. String should be fine.



Well, the first thing I notice is dName2 should be declared as Range and not as String. Try that and see what you get.

Re: Activate Cell From Combobox Seletion

Have a look at this. Maybe, you can adapt it. Notice, the range of cells with the numbers are named Range1 and this is used as the ListFillRange of the ComboBox.

Re: Macro Fails After Moving To Different Workbook

For now, just the code with the line that fails. If we can't find the problem, we'll dig deeper.

Re: Macro Fails After Moving To Different Workbook

Hello, bigblue89!
It's difficult to diagnose without the rest of the code. Can you post it?

Mac

Re: Change Application Title

Try:

Application.Caption="Whatever"

Re: Data Validation: Allow Between Numbers & Text

Hi, Dave!

Once again, you have come through. I need to increase my knowledge of formulae (which is almost nill :sniff: ).

I am very grateful for your help and thank you for changing the title.

:thanx:
Mac

Hello!

Is it possible to force a cell entry (using Data Validation) to either a whole number or a value? In other words, I would like the data in a cell to be either a whole number between 10,000 and 20,000 or "N/A". I can do it with VBA, but Data Validation (if it's possible) would be better.

Any help is appreciated.


Thanks,
Mac

Edit: I mistakingly wrote text length in the title, when it should have been Whole Number. I am unable to edit the title. My apologies.