Posts by zplugger

Re: VBA Project Password

Thanks Ken, will put that in my code book for future use.
Z

Re: VBA Project Password

Ken If I check protect project view and save it opens outlook in background.

Re: VBA Project Password

cytop that was the fix I needed, Thank You so much. Running windows7 64 bit, with office 2013 32 bit.

Re: VBA Project Password

Just need the outlook folder in front of workbook with vba password,must be a way

At the end of the road on this problem,need any suggestion I can get. This is posted on another too.
http://www.excelforum.com/exce…-vba-projectpassword.html
http://www.mrexcel.com/forum/e…ions-projectpassword.html

If I put this code on commandbutton it will open outlook in front of workbook,if I put a VBA Project password on it and close and save.When I reopen the workbook and run the code outlook opens behind the workbook? What does the password have to do with this? Looking for suggestions for a fix. Got to ask all the experts on this,two day of trying stuff with no luck
Thanks for looking Z

Private Sub CommandButton1_Click()
Dim ol As Object
    Dim ns As Object
    Dim fldr As Object
    Set ol = CreateObject("Outlook.Application")
    Set ns = ol.GetNamespace("MAPI")
    Set fldr = ns.GetDefaultFolder(6) 'inbox
    fldr.Display
    ol.ActiveWindow.Activate 




End Sub

Have this code that gets data from another workbook,can I add to code so if A1>0 paste the data in C1. so it gets data from one workbook and if the cell is
greater that 0 in paste in the other cell.If its a 0 then it does not paste.

='C:\Users\tom\Dropbox\[Master.xlsm]Address Book'!$A:$A

Re: Vba to insert time in cell with text

Omg that is perfect Mumps, Thanks you so much for your time on this.
Z

Re: Vba to insert time in cell with text

That did the trick Mumps, what if I wanted Date instead with a certain format.

Range("A1") = Range("A1") & " " & Date  this works but can't make it format the way I need.
want the date to show like 2-21-2015  tried custom format on cell but it will not listen. LOL

Re: Vba to insert time in cell with text

Thanks will give it a try

Re: Vba to insert time in cell with text

Thanks Mumps
This will work, is there a way to force the time to far right of cell?

Is it possible to insert time with a commandbutton into a cell with text already. If so the time would go to far right of cell.
Thanks Z

Re: If folder doesn't exists

Lost on what you mean, still learning and want to learn more. Could you please show me what you mean?

Re: If folder doesn't exists

fix for the problem if so

meone needs.
Const strAltFolder As String = "C:\Users\larry\dropbox\Sales\Misc\" 
Dim MSG As Long 
Dim strFolder As String 'Folder to check the existence of with a \ at the end
strFolder = "c:\Sales
If Not Dir(strFolder) <> "" Then    ' CHANGE THIS TOO:    If Dir(strFolder, vbDirectory) = "" Then


MSG = MsgBox("Folder (" & strFolder & ") does not exist. Do you want to save in " & _ 
strAltFolder & ") instead?", vbYesNo, "Notification") 
If MSG = vbYes Then 
ThisWorkbook.SaveAs strAltFolder & varFullName 
Else 
Exit Sub 
End If 
End If

Re: If folder doesn't exists

Trying for help here too, will post if I get answer.

http://www.excelforum.com/exce…e-as-pdf.html#post3988581

Re: If folder doesn't exists

This code does a good job of putting in the strAltFolder,but it doesn't see the folder in strFolder. Not sure why it does not
see the existing folder??

Re: If folder doesn't exists

It has to be in this part of code, I can make a simple folder Like (Sales) on C drive and it does not see it?

Const strAltFolder As String = "C:\Users\larry\dropbox\Sales\Misc\" 
Dim MSG As Long 
Dim strFolder As String 'Folder to check the existence of with a \ at the end
strFolder = "c:\Sales
If Not Dir(strFolder) <> "" Then 
    MSG = MsgBox("Folder (" & strFolder & ") does not exist.  Do you want to save in " & _ 
    strAltFolder & ") instead?", vbYesNo, "Notification") 
    If MSG = vbYes Then 
        ThisWorkbook.SaveAs strAltFolder & varFullName 
    Else 
        Exit Sub 
    End If 
End If

Re: If folder doesn't exists

be right back

Re: If folder doesn't exists

Here is the folders and location
[ATTACH=CONFIG]64019[/ATTACH][ATTACH=CONFIG]64020[/ATTACH]

Re: If folder doesn't exists

Not sure why but it says folder does not exist. I checked the folder in dropbox and all is good. I checked the value in C13 all is right,not
sure why it does not see folder?.

Re: If folder doesn't exists

Sorry
was using example and had problems. Here is the code.

Const strAltFolder As String = "C:\Users\larry\dropbox\Sales\Misc\"
Dim MSG As Long
Dim strFolder As String 'Folder to check the existence of with a \ at the end
strFolder = "c:\Users\larry\dropbox\Sales\" & Range("C13") \ ""
If Not Dir(strFolder) <> "" Then
    MSG = MsgBox("Folder (" & strFolder & ") does not exist.  Do you want to save in " & _
    strAltFolder & ") instead?", vbYesNo, "Notification")
    If MSG = vbYes Then
        ThisWorkbook.SaveAs strAltFolder & varFullName
    Else
        Exit Sub
    End If
End If




ChDir "c:\Users\larry\dropbox\Sales\" & Range("C13")




''''''Dim varFullName As Variant
    Dim strFileName As String




    Cancel = True




    strFileName = ThisWorkbook.Sheets("Sheet1").Range("c16").Value
varFullName = Application.GetSaveAsFilename(InitialFileName:=strFileName, _
                                                fileFilter:="Microsoft Excel Workbook (*.xlsm), *.xlsm")
                                                
   If varFullName <> Cancel And varFullName <> False Then
          On Error GoTo FileNotSaved
              Application.EnableEvents = False
                  ThisWorkbook.SaveAs Filename:=varFullName
              Application.EnableEvents = True
    End If




    Exit Sub




FileNotSaved:




    Application.EnableEvents = True