Formulário VBA Excel não funciona

[Bookman]

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

[Alyson Ronnan Martins]

Bom dia, Bookman.

Marques as linhas para o vba passar cada linha do código por vez. Assim você vai ver a linha que gera o erro.(não entendi aonde o erro esta acontecendo)

Aguardo. 

[Bookman]

Olá Alyson

O Debug seleciona o erro em: Sheets("Serviços").Select

[Alyson Ronnan Martins]

Ela esta bloqueada?

Manda uma parte da sua planilha para agente do forum dar uma olhada e te ajudae melhor. 

[Erik Wesley]

  Em 24/07/2018 em 14:43, Bookman disse:

Olá Alyson

O Debug seleciona o erro em: Sheets("Serviços").Select

Expand  

Talvez a planilha esteja bloqueada (Como disse o Alysson), ou ele não encontrou a planilha, ou o nome da mesma está errado (Mesmo que por uma virgula - a grosso modo). Mais é bom compartilhar um exemplo, ajuda na hora de ajudar.

[Bookman]

  Em 24/07/2018 em 14:17, Bookman disse:

Sheets("Serviços").Select

Expand  

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

[Alyson Ronnan Martins]

Boa notie.

Vou mandar varias mensagens mais porque estou olhando o código ponto a ponto (preguiçoso mesmo kkkk)

1 - Assim que entrei notei que quase todas as "sheets" = planilhas/abas estão e para seu código funcionar precisa re-exibir as abas:

Sheets("Serviços").Visible = True
Sheets("Serviços").Select

A linha antes de select é para re-exibir "Serviços".

2 - Eu notei quando abrir que tinha um código que ficou incompleto, apesar de não testar ele eu só coloquei aqui como informação.

 

[Bookman]

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?

Editado Julho 31, 2018 por Bookman
falta de informação

[Alyson Ronnan Martins]

A parte em vermelho esta fácil porque no seu poste inicial finha o código.

Ficando assim: Set intervalo: Range("A10:N100000")

olha sé já resolve essa parte. 

[Bookman]

O formulário não dá erro, mas também não pesquisa nada 😞

[Alyson Ronnan Martins]

Envia a planiha novamente. 

Vou okhar o erro no PC.

[Alyson Ronnan Martins]

Olhando sua planilha antiga fiz as seguintes alterações:

Dentro do Código Pesquisa_Venda:

Private Sub TextBox1_AfterUpdate()
Consultar_servicos_vend
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 = Sheets("Serviços").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
Menu_inicial
Exit Sub
Menu_inicial
trataErro:
   texto = "O NIF indicado não consta na base de dados"
   mensagem = MsgBox(texto, vbOKOnly + vbInformation)

End Sub

No meu caso eu não encontrei nada porque estava realmente vazio, anexo da planilha vazia:

[Bookman]

Boa tarde,

Após testar, continua a não devolver resultados.

O que será que ainda está em falta? 😞 😞

 

[Alyson Ronnan Martins]

Boa tarde.

Precisar olhar ela com dados. Se for o caso mudar a formula de pesquisa.

[Bookman]

Podes testar, bastando para isso preencher alguns campos na planilha Serviços.

O campo chave de pesquisa é o NIF.

[Bookman]

Alyson acha que pode ajudar-me a concluir?

Era mesmo muito importante:(

[Erik Wesley]

  Em 21/08/2018 em 21:34, Bookman disse:

Alyson acha que pode ajudar-me a concluir?

Era mesmo muito importante:(

Expand  

 

Se for possível poste seu arquivo, vou tentar lhe ajudar também. 

[Bookman]

Olá Erik, peço desculpa na demora da resposta.
Segue Link onde pode descarregar o arquivo.

https://files.fm/u/swmw98qg