Notifications
Clear all

Combox depura, caso dado digitado não tenha na base de dados

2 Posts
1 Usuários
0 Reactions
894 Visualizações
(@drbeil)
Posts: 0
New Member
Topic starter
 

Boa tarde tenho algumas dúvidas, porém as mais importantes são as 2 primeiras. Caso não seja permitido algum moderador pode me informar que refaço esse topico e divido em outros tópicos.

Arquivo em anexo.

Formulario dá dúvida: frm_orc_simples

1) Erro Combox: Quando digito algum valor que não tenha na base de dados que peço para buscar, depura. Preciso que seja feita alguma verificação antes de rodar o loop/find. Tentei acha em algum tópico mas não tive nada parecido.

Combox: c_simples_1cod2
______________________________________________________________
Private Sub c_simples_1cod2_Change()

Dim Found As Range
Dim str As String

str = Me.c_simples_1cod2.Text

If c_simples_1cod2 = "" Then ' "Estou fazendo essa verificação caso seja digitado um número e depois apague"
c_simples_1cod2 = ""
t_simples_1desc2 = ""
Else
Set Found = Sheets("codigo").Range("a3:a14").Find(str)
Me.t_simples_1desc2.Value = Sheets("Codigo").Cells(Found.Row, 2).Value ' Erro nessa linha, caso eu digita qualquer número que não ache no range informado *******
End If

End Sub
________________________________________________________________________

2) Nas textbox valor (t_simples_1valor2) preciso que seja atualizado conforme o código da combox (c_simples_1cod2). Porém uso uma formula na planilha que não sei se é possivel, e nem imagino como que faz.

Formula na planilha: PROCH($G$5;Codigo!$D$2:$Y$330;PROCV(C12;Codigo!$AA$2:$AB$330;2;)+1;)
Essa formula faz um cruzamento de linha com coluna.


Dúvidas menos importante:

3) Quando digito na combox "c_orc_simples", queria que a linha referente ao numero digitado ficasse ativa na planilha "Dadoscalc".
Exemplo: Ao digitar o numero 3777, se eu clicar no botão "Abas Dados" apareça a linha completa.

4) Exportar PDF: Uso o Excell 2013, tentei criar uma ação para que vá até o botão de exportar, porém não deu certo.
Arquivo >> Exportar >> Criar um Documento PDF

5) Virgulas 0,00: Na textobox "t_simples_1format1" não aparece as virgulas e zeros caso seja número inteiros no formulário (Acontece quando procuro um dados que já está lançado).

Desde já agradeço a todos.

 
Postado : 29/06/2016 10:38 am
(@drbeil)
Posts: 0
New Member
Topic starter
 

Consegui achar sobre a minha dúvida da Combox, no post abaixo. Precisou apenas alguns ajustes.

Resposta do Alexandre:
viewtopic.php?f=23&t=13092

Solução:

Private Sub c_simples_1cod2_Change()

Dim Found As Range
Dim str As String

str = Me.c_simples_1cod2.Text

Set Found = Sheets("Codigo").Range("A2", Range("A" & Rows.Count).End(xlUp)).Find(str)
If Found Is Nothing Then
MsgBox ("Código não encontrado!")
Else
Me.t_simples_1desc2.Value = Sheets("Codigo").Cells(Found.Row, 2).Value
End If

End Sub

 
Postado : 29/06/2016 1:39 pm