Segue a Planilha

Grato

Ola resolvi aqui Private Sub TextBox291_Change() If TextBox291 = "" Then TextBox291 = 0 Else: End If n2 = CSng(TextBox291.Text)...

Desculpe mas nao consegui fazer, segue um exemplo. Seria possivel uma ajuda ? Andre

Quanto a outra pergunta, pesquisando achei isso abaixo, mas nao esta aparecendo o R$. Option Explicit Dim n1 As Single Dim n2 As Single Private Sub ...

Boa tarde! Veja se ajuda:

Tem que acertar esta linha aqui sql = "select * from Cli_Cliente where 1=1 " Esta botao consultar , mas mesmo assim da erro ao selecion...

ja li todos esses ai, e nada, teria outra referencia pra por no lugar desrta ?

Fui na maquina do meu filho tentei carregar esta referencia e tb deu mesmo erro, caramba que chato isso ! Alguem aqui passa por isso ? Andre

pessoal descobri sem querer o que esta acontecendo. Vou relatar. Estando eu na planilha Venda1, ao acionar a Macro MENU, e selecionar por exemplo Emp...