Complete Cell entry

periferals · Feb 9th 2006

Hi

I get a debug error when The following is executed, this I know is normal when cell E8 has nothing in it.

Code

.HtmlType = xlHtmlStatic
        .Filename = Range("E8").Value & ".mht"
        .Publish (False)
        .AutoRepublish = False
    End With

I would like to rather have a msgbox apear to prompt user insert an entry into cell E8

Pesky Weasel · Feb 9th 2006

Re: Complete Cell entry

Try:

Code

.HtmlType = xlHtmlStatic
If Range("E8").Value = "" Then
stfn = InputBox("Please enter a Filename")
Range("E8") = stfn
End If
.Filename = Range("E8").Value & ".mht"

Regards
Weasel

periferals · Feb 9th 2006

Re: Complete Cell entry

Hi

I like the InputBox, but would like to have a msgbox that stops the completion of the code run until the input into the cell is completed.

Thanx

SK

Pesky Weasel · Feb 9th 2006

Re: Complete Cell entry

This code will pause the execution of the macro while the user enters a value but will carry on even if the users Cancels out of the inputbox.
To force an answer try:

Code

Do While Range("E8").Value = "" 
    stfn = InputBox("Please enter a Filename") 
    Range("E8") = stfn 
Loop

Regards
Weasel
\

periferals · Feb 9th 2006

Re: Complete Cell entry

I would like to get away from the InputBox totally, can this be done?

periferals · Feb 9th 2006

Re: Complete Cell entry

Weasel, what you have given me is great though, thanx

Complete Cell entry

Participate now!

Share