Bookman

Membros
  • Content Count

    11
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Bookman

  • Birthday August 3

Perfil

  • Gender
    Male

Recent Profile Visitors

200 profile views
  1. Olá Erik, peço desculpa na demora da resposta. Segue Link onde pode descarregar o arquivo. https://files.fm/u/swmw98qg
  2. Alyson acha que pode ajudar-me a concluir? Era mesmo muito importante:(
  3. Podes testar, bastando para isso preencher alguns campos na planilha Serviços. O campo chave de pesquisa é o NIF.
  4. Boa tarde, Após testar, continua a não devolver resultados. O que será que ainda está em falta? 😞 😞
  5. O formulário não dá erro, mas também não pesquisa nada 😞
  6. Eu inicialmente não estava a conseguir fazer nada, então procurei um exemplo, copiei o código e adaptei à minha realidade. Esse código em falta deve ter sido algo que apaguei sem querer 😞 Quanto às planilhas ocultas a ideia é mesmo esse, se reparar, o Modulo 1 serve mesmo para ativar e desativar as planilhas à medida que vão sendo utilizadas. Nesse caso esqueci-me de colocar! Consegue ajudar a finalizar?
  7. Boa tarde, Envio a planilha. A ideia é pesquisarno botão "Pesquisar Venda" e ela procurar os dados na planilha "Serviços". Segue a planilha para que possam verificar: Planilha Obg
  8. Olá Alyson O Debug seleciona o erro em: Sheets("Serviços").Select
  9. Boa tarde, Estou tentanto criar um formulário que pesquisa dados no meu ficheiro em excel, mas não estou conseguindo, dá sempre erro: "Run-time error '1004': Select Method of worksheet class field" E não consigo passar daqui. Código: Private Sub CommandButton1_Click() Pesquisa_Venda.Show False End Sub Private Sub TextBox1_AfterUpdate() Dim intervalo As Range Dim texto As String Dim codigo As Long Dim pequisa Dim mensagem codigo = TextBox1.Text Sheets("Serviços").Select Set intervalo = Range("A10:N100000") On Error GoTo trataErro Parceiro = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False) Nomeclt = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False) NIFclt = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False) Tarifario = Application.WorksheetFunction.VLookup(codigo, intervalo, 7, False) datarec = Application.WorksheetFunction.VLookup(codigo, intervalo, 10, False) datareg = Application.WorksheetFunction.VLookup(codigo, intervalo, 11, False) estado = Application.WorksheetFunction.VLookup(codigo, intervalo, 8, False) TextBox2.Text = Nomeclt TextBox3.Text = Parceiro TextBox4.Text = NIFclt TextBox5.Text = Tarifario TextBox6.Text = datarec TextBox7.Text = datareg TextBox8.Text = estado TextBox1.SetFocus Exit Sub trataErro: texto = "O NIF indicado não consta na base de dados" mensagem = MsgBox(texto, vbOKOnly + vbInformation) End Sub Private Sub UserForm_Click() End Sub
  10. alguém consegue ajudar p.f.?
  11. Boa noite, Tenho ficheiro onde através de um formulário ele guarda os dados do mesmo numa tabela à parte, no entanto precisava que ao pressionar enviar, o formulário além de guardar os dados nessa tabela, enviasse também por mail todo o conteúdo, ou seja, o texto e imagens. Além disso gostava também que o mail assumisse no assunto e no corpo do mail dados do preenchimento do formulário. Abaixo imagem do formulário e mail que é pretendido enviar. Formulário: https://uploaddeimagens.com.br/imagens/sem_titulo-jpg-0b6713c0-2d3f-4921-b79a-220bb6940d2e Mail: https://uploaddeimagens.com.br/imagens/sem_titulo_2-jpg-465a1b46-3071-4c79-b94e-114578b3156b O pretendido é que mediante a Tecnologia escolhida, ele envie o mail para uma caixa de mail, exemplo: Fibra: [email protected] ADSL: [email protected] E que onde representei as variáveis, as mesmas sejam substituídas pelos dados do formulário que se encontram nos campos correspondentes ás mesmas, incluindo também a imagem carregada no formulário, no corpo do mail, tal como está no anexo. Será que me podem ajudar? Obrigado.