Notifications
Clear all

Enviar e-mail para um contato específico

8 Posts
2 Usuários
0 Reactions
1,882 Visualizações
(@arthurdiegoo)
Posts: 99
Estimable Member
Topic starter
 

Galera, esta dúvida também está pendente, e estou com muita dificuldade pra resolvê-la ( receio que não seja possível via vba )

O que eu gostaria é o seguinte.

Possuo um formulário de orçamento, este mesmo formulário está funcionando bem, e até agora superando as expectativas.
Agora vem minha primeira dúvida:

É possível fazer um comando em vba que executasse as seguintes ordens em seguida:
1- Preenchesse campos específicos de uma plan específica deste mesmo projeto ( preciso somente do comando que associe um textbox a um campo da planilha, por exemplo:
txtNome.value=plan1!A1 - PS: Sei que o comando não é esse.)
2 - Salvasse essa plan preenchida no formato PDF, com o nome do arquivo definido por uma célula, ou textbox e salvo em uma pasta de minha escolha ( este é o comando mais difícil a meu ver, não consegui achar referências para tal. Exemplo:
Textbox1: RicardoDias
Nome do Arquivo: ricardodias.pdf
Destino dos Arquivos PDF: C:/Orçamentos/ )
3 - Limpasse os campos preenchidos da plan1, e abrisse o outlook com o documento PDF anexado ( como na opção salvar e enviar por PDF do próprio excel )

Não tenho a pretensão de resolverem todos os problemas, mais toda ajuda é bem vinda, então se souber resolver somente um dos passos, favor informar.

Muitíssimo obrigado amigos!

 
Postado : 20/03/2012 9:20 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!
Só para constar, aqui tem material de sobra...veja em
http://www.rondebruin.nl/sendmail.htm

 
Postado : 20/03/2012 9:32 am
(@arthurdiegoo)
Posts: 99
Estimable Member
Topic starter
 

Show alexandre! não tinha achado esse site em minha procura no google.

Creio que devia ter procurado no google.com

Só uma pergunta, não consegui localizar neste tutorial a resposta para o item 1. Você poderia me ajudar?

Sei que é algo bem básico, porém com o comando base, consigo fazer todo o workbook.

 
Postado : 20/03/2012 9:37 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Até alguém que saiba VBA de verdade, dê uma resposta precisa, poderia me detalhar seu item 1??

Por não a maior parte dos recurso do Excel, não te garanto sucesso na minha resposta. :( Mas não vou deixar de tentar. ;)

Não se preocupe, ajuda não vai te faltar, aqui tem muita fera em VBA. :)

Att

 
Postado : 20/03/2012 10:04 am
(@arthurdiegoo)
Posts: 99
Estimable Member
Topic starter
 

A dúvida creio eu que seja até simples, vou tentar detalhar melhor.

Possuo um formulário, vou chamá-lo de form1 para facilitar.

Nesse formulário tenho duas texboxes, textNome e textEndereço

O que eu queria saber é o seguinte, ao clicar no botão Salvar, este mesmo botão iria escrever na Plan1 ( uma sheet onde tenho 2 colunas e 2 linhas, Nome e Endereço ), esta escrita seria a seguinte:

valor da textNome na célula A1
valor da textEndereço na célula B1

Por exemplo.

Somente isto que eu queria saber, qual o comando para a escrita de uma textbox em uma célula ESPECÍFICA de uma planilha no mesmo workbook.

Entendeu?

E em relação a questão do sucesso em sua resposta, eu agradeço desde já, qualquer ajuda ou tentativa já é válida, posso testar e te dar o feedback.

 
Postado : 20/03/2012 10:11 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tente.

Private Sub Salvar_Click()
    
    totalregistro = Worksheets("Plan1").UsedRange.Rows.Count + 1
    With Worksheets("Plan1")
    .Cells(totalregistro, 1) = textNome
    .Cells(totalregistro, 2) = textNome

    
    End With
  
End Sub

Ou.

Private Sub Salvar_Click()
    Dim iRow_1 As Long
Dim ws_1 As Worksheet
Set ws_1 = Worksheets.Application.Sheets("Plan1")
iRow_1 = ws_1.Cells(1, 1).Row
ws_1.Cells(iRow_1, 1).Value = TextBox1.Value
ws_1.Cells(iRow_1, 2).Value = TextBox2.Value

End Sub
 
Postado : 20/03/2012 10:45 am
(@arthurdiegoo)
Posts: 99
Estimable Member
Topic starter
 

Justamente aí que eu tinha travado alexandre,

Esses códigos são para salvar arquivos sequenciais ( por exemplo cadastro de clientes, um abaixo do outro ), mas olhando um pouco da estrutura de escrita vou tentar agora o seguinte código:

With Worksheets("Plan1")
.Cells(1, 1) = textNome.value

Se eu estiver certo ele vai identificar como A1, vou tentar e já aviso...

 
Postado : 20/03/2012 11:01 am
(@arthurdiegoo)
Posts: 99
Estimable Member
Topic starter
 

Muito obrigado pela contribuição Alexandre, realmente usando este comando:

With Worksheets("Plan1")
.Cells(1, 1) = textNome.value

Dentro do campo ( ) do .Cells, o primeiro valor é referente ao número da linha, e o segundo da coluna, como em uma matriz!

Muito obrigado pela dedicação amigo!

Agora vou tentar desembolar a planilha aqui!

 
Postado : 20/03/2012 11:06 am