Tomás Vásquez Fórum

Pedro Jhonata

Muito bom o seu projeto. Bem úteis os códigos!

Pedro Jhonata

Olá, boa noite! Encontrei um erro no módulo que é chamado pelo UserForm. Ao iniciar a Plan, ocorreu isto: Capturar.PNG Private Sub UserForm_Activate() onOff = True 'inicia o ciclo de a cada segundo actualizar as horas no formulário >>>>>>>>>>>>>>>>>>>>>>>>Application.OnTime Now + TimeValue("00:...

Pedro Jhonata

Desculpem-me a confusão no título, mas... Em um PC, tenho o pacote Office 2010 e em outro o 2016. Possuo algumas macros elaboradas no 2010, ao tentar roda-las no 2016 me deparei com o erro: "Impossível Localizar Projeto Ou Biblioteca" Esta mesma planilha será distribuída para diversas pess...

Pedro Jhonata

Qual seria a finalidade do código?

Só pra eu imaginar uma forma de fazer o código.

Pedro Jhonata

Olá, bom dia a todos. Não sei se estou usando a expressão certa, mas o que acontece é que estou tentando usar o find assim: =================================================================================== with ... Set a = .Find(x) PrimA = a.Address Do With ... Set b = .find(y) End With Set a = .F...

Pedro Jhonata

Acredito que a maneira mais simples para tornar o teu projeto licenciado é tornando-o um executável com o programa ConvertXLtoEXE. Abri um tópico que fala somente de segurança em projetos VBA excel, confira! http://www.tomasvasquez.com.br/forum/viewtopic.php?f=20&t=4500&p=19838&hilit=seg...

Pedro Jhonata

Acredito que quem clicou neste post veio faminto pra saber se eu trazia a solução para a "migração" do Cod de 32 para 64. Pois é, não trago :cry: . Mas vim perguntar se alguém faz ideia se isso é possível. Andei fazendo algumas buscas e vi que é quase impossível, isso por conta da Microsof...

Pedro Jhonata

Mauro Coutinho escreveu:Nesta situação para o VBA reconhecer um numero decimal ele tem de estar com ponto e não virgula :

troque "9,5*" por "9.5*"

[]s

kkkkk

Sério que era só isso?

Muito obrigado, Mauro.

Como uma vírgula faz diferença...

Pedro Jhonata

Olá, pessoal. Tenho um problema bem simples. Quando uso o .find("x") em meu código ele só retorna algo se o x for um número inteiro , caso eu pesquise algum número com decimais, dá "Nothing". Como posso resolver? Sub agoravai() valor = "9,5*" With Worksheets("plan1...

Pedro Jhonata

Boa noite Estou usando em meu projeto o seguinte para aceitar somente Numeros Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Dim strValid As String strValid = "0123456789" If InStr(strValid, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If ' ESTE A BAIXO É PARA ESPECIFI...

Pesquisa resultou em 33 ocorrências

Re: Ocultando Planilha - Erro em tempo de execução '1004'

Re: Ocultando Planilha - Erro em tempo de execução '1004'

Diferenças no VBA entre o Excel 2010 e 2016 ("Impossível Localizar Projeto Ou Biblioteca")

Re: Contador com código que reinicia todo mês

Find aninhado

Re: Licença de Uso Mensal para Planilhas em VBA

Scroll Mouse em List Box (64 bits)

Re: .Find encontrando somente números inteiros [Resolvido]

.Find encontrando somente números inteiros

Re: Digitar somente numeros em um textbox