Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Pesquisa resultou em 1537 ocorrências

por Reinaldo
Seg Jan 12, 2015 12:23 pm
Fórum: Geral
Tópico: Formulário de pedido RESOLVIDO
Respostas: 9
Exibições: 4779

Re: Formulário de pedido

Veja agora se atende
por Reinaldo
Sáb Jan 10, 2015 12:38 pm
Fórum: Geral
Tópico: Formulário de pedido RESOLVIDO
Respostas: 9
Exibições: 4779

Re: Formulário de pedido

Não trata-se propriamente de um erro, mas sim da tentativa de salvar um arquivo com macro com uma extensão/modelo que não aceita macro. Uma possibilidade é alterar o trecho conforme abaixo: 'Salva o arquivo ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & sPlanAEnviar & ".x...
por Reinaldo
Sex Jan 09, 2015 4:19 pm
Fórum: Geral
Tópico: Formulário de pedido RESOLVIDO
Respostas: 9
Exibições: 4779

Re: Formulário de pedido

Veja no anexo
por Reinaldo
Sex Jan 09, 2015 1:26 pm
Fórum: Geral
Tópico: Formulário de pedido RESOLVIDO
Respostas: 9
Exibições: 4779

Re: Formulário de pedido

Vamos por parte: Caixa de texto, para utiliza-la em planilhas protegidas, após inserir a caixa de texto, clique sobre ela com o botão direito do mouse, selecione -->Formatar Auto Forma-->Propriedade e desmarque a opção "Bloquear Texto", proteja a planilha e deverá conseguir "escrever&...
por Reinaldo
Qui Jan 08, 2015 10:23 am
Fórum: VBA Básico
Tópico: Precisando de ajuda com erro entre combobox dependentes
Respostas: 6
Exibições: 3810

Re: Precisando de ajuda com erro entre combobox dependentes

Não notei o descrito acima. No model anexo, alterado a linha onde reportava erro. Nos formulários alterado: FLOGIN alterado a linha --> FLOGIN.HIDE para --> UNLOAD FLOGIN BUSCA no CommandButton4 alterado de BUSCA.HIDE --> Unload Busca FCADASTRO no CommandButton5 --> Alterado de FCADASTRO.Hide --> Un...
por Reinaldo
Qui Jan 08, 2015 9:53 am
Fórum: VBA Básico
Tópico: Colorir a "guia" com a função If ... Then ...
Respostas: 4
Exibições: 3226

Re: Colorir a "guia" com a função If ... Then ...

Se todos os registro em A seja iguais em B ou se somatória de A seja igual somatória de B?
Quanto a serem datas em c1 e c2 não há empecilho nenhum.
por Reinaldo
Qua Jan 07, 2015 6:27 pm
Fórum: VBA Básico
Tópico: Precisando de ajuda com erro entre combobox dependentes
Respostas: 6
Exibições: 3810

Re: Precisando de ajuda com erro entre combobox dependentes

O comando Hide, como você mesmo viu/percebeu tem por objetivo ocultar um formulário, porem mantendo na memoria, toda sua estrutura variáveis e valores nos objetos,
Para fechar um formulário e todas as suas variaveis/objetos serem "zerados", e utilizado o comando Unload.
por Reinaldo
Qua Jan 07, 2015 1:05 pm
Fórum: VBA Básico
Tópico: Precisando de ajuda com erro entre combobox dependentes
Respostas: 6
Exibições: 3810

Re: Precisando de ajuda com erro entre combobox dependentes

Experimente alterar a rotina onde apresenta o erro para

Código: Selecionar todos

Private Sub ComboBoxCategorias_Change()
If ComboBoxCategorias.ListIndex <> -1 Then Call CarregaProdutos(Me.ComboBoxCategorias.List(Me.ComboBoxCategorias.ListIndex))
End Sub
por Reinaldo
Qua Jan 07, 2015 12:49 pm
Fórum: VBA Básico
Tópico: Colorir a "guia" com a função If ... Then ...
Respostas: 4
Exibições: 3226

Re: Colorir a "guia" com a função If ... Then ...

Tá muito genérica sua demanda.
A rotina seria assim:

Código: Selecionar todos

With ActiveSheet
    If .Range("A1") - .Range("A2") > 1 Then
        ActiveSheet.Tab.ColorIndex = 4
    Else
        ActiveSheet.Tab.ColorIndex = 1
    End If
End With
Se não conseguir aplicar, de maiores detalhes
por Reinaldo
Qua Jan 07, 2015 9:41 am
Fórum: VBA Básico
Tópico: Inserir fração Application.InputBox [RESOLVIDO]
Respostas: 2
Exibições: 2332

Re: Inserir porcentagem ou fração com Application.InputBox

Uma possibilidade, com sua celula já previamente formatada como percentual
Experimente:

Código: Selecionar todos

Sub tt()
Dim nNum As Double
nNum = Application.InputBox("Enter a number")
Range("i32") = nNum * 1
End Sub