Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Pesquisa resultou em 1537 ocorrências
- 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
- 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...
- 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
- 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&...
- 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...
- 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.
Quanto a serem datas em c1 e c2 não há empecilho nenhum.
- 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.
Para fechar um formulário e todas as suas variaveis/objetos serem "zerados", e utilizado o comando Unload.
- 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
- 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:
Se não conseguir aplicar, de maiores detalhes
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
- 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:
Experimente:
Código: Selecionar todos
Sub tt()
Dim nNum As Double
nNum = Application.InputBox("Enter a number")
Range("i32") = nNum * 1
End Sub