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