Ajuda salvar como userform.

[cpoersch]

Boa tarde,

Estou criando uma macro para gerar um relatório de qualidade na minha empresa, onde preciso inserir os dados pela userform e um botao onde ele tem a opção salvar como.

meio que copiando e colando consegui gerar tudo certinho, mas na hora de salvar o arquivo novo aparece o erro de "tempo de execução 1004"

Private Sub CommandButton1_Click()

Dim nRange As Range

Set nRange = Worksheets("Dimensional").Range("P2")

Dim stDir As String

Dim vaSvar As Variant

stDir = "Q:\CQPO 2013\CLIENTES\ALUSA\Data Book Alusa\Relatórios\Relatórios Alusa - Dimensional"

ChDrive stDir

ChDir stDir

vaSvar = Application.GetSaveAsFilename(nRange, "Microsoft Excel(*.xls.),*xls", , _

"Deseja salvar este workbook" & nRange & "?")

If vaSvar = False Then Exit Sub

ThisWorkbook.saveas Filename:=CStr(vaSvar)

End Sub

a parte em vermelho é onde indica o erro. ja tentei de tudo, desconfio que seja porque eu salvo a planilha no servidor da empresa e não no diretorio do meu computador.

alguem sabe me informar o jeito correto?

att,

[zinhovba]

Boa noite!!

Veja em:

http://www.rondebruin.nl/win/s5/win001.htm

Att

[cpoersch]

Boa tarde,

Valeu cara! consegui resolver.

mas agora estou com outro problema, estou inserindo valores númericos na userform, e quando aplico para os valores irem pra tabela, ela armazena eles como texto. ate ai tudo bem, problema é que uso formula PROCV com essas celulas e como texto ela nao reconhece. tem algum parametro que eu adiciono nas textbox pra que na saida fique como numero e nao texto?

att,