Results 1 to 2 of 2

Thread: Problem using VBA at excell

  1. #1

    Thread Starter
    New Member
    Join Date
    Aug 2001
    Location
    Belgium
    Posts
    1

    Unhappy Problem using VBA at excell

    I made an excell file with macro's, where i'm using the wizard templates. Now when i save the file like this " File -> Save or Save as" then there's a pop-up screen from the wizard template, wether i want to update my database or not. So far so good. Now i've written a macro that saves the file on a certain place and depending of wich user is using the file. When i excute the macro i dont get the pop-up screen of the wizard template.

    If there's a thread for it i would like to now it.

    If you would like too see the file, let me know.

    Here is the code vb code

    Sub opslaan()
    'schrijft werkaanvraag weg op de W-schijf met als naam het aanvraagnummer

    Dim nummer As String
    Dim initialen1 As String
    Dim initialen2 As String

    Worksheets("werkaanvraag").Activate
    Range("d11").Select
    initialen1 = ActiveCell.Value
    Range("b13").Select
    initialen2 = ActiveCell.Value
    Range("e11").Select
    nummer = ActiveCell.Value

    ActiveWorkbook.SaveAs Filename:="c:\hamal\" & initialen1 & nummer & ".xls"

    'If initialen2 = 4 Or initialen2 = 5 Then

    'ActiveWorkbook.SaveAs Filename:="c:\hamal\gh\" & initialen1 & nummer & ".xls"
    'MsgBox "De werkaanvraag werd succesvol opgeslagen", vbInformation, "Info"

    'Else
    'ActiveWorkbook.SaveAs Filename:="c:\hamal\jvo\" & initialen1 & nummer & ".xls"
    'MsgBox "De werkaanvraag werd succesvol opgeslagen", vbInformation, "Info"

    'End If

    End Sub
    Last edited by Joke; Aug 2nd, 2001 at 05:24 AM.

  2. #2
    -= B u g S l a y e r =- peet's Avatar
    Join Date
    Aug 2000
    Posts
    9,629
    show us the macro code for saving u'r file?
    -= a peet post =-

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width