Autor Tópico: Alguém manja de VBA aí?  (Lida 2994 vezes)

Fabio Pedro

  • Trade Count: (10)
  • Colaborador(a)
  • ****
  • Mensagens: 2.945
  • Sexo: Masculino
  • Carioca na veia e fotógrafo no coração!
Resposta #15 Online: 21 de Outubro de 2015, 18:19:35
veja se isso aqui se parece com o que vc tá fazendo... https://www.youtube.com/watch?v=-Y1qFSu9SDo
Fábio Pedro.


Cristiane Gellert

  • Trade Count: (1)
  • Membro Ativo
  • ***
  • Mensagens: 758
  • Sexo: Feminino
  • Amo fotografia! Simples assim! :)
    • Meu site!
Resposta #16 Online: 21 de Outubro de 2015, 18:20:47
veja se isso aqui se parece com o que vc tá fazendo... https://www.youtube.com/watch?v=-Y1qFSu9SDo
Vídeo bloqueado aqui na empresa.
Em casa eu vejo! Obrigada!  :ok:
Cristiane Gellert
"Fotografia, uma arte que nos envolve pela surpreendente forma de eternizar o que nosso olhar quer viver para sempre."

https://www.facebook.com/cristianegellert
Meu site: http://www.cristianegellert.com/


Fabio Pedro

  • Trade Count: (10)
  • Colaborador(a)
  • ****
  • Mensagens: 2.945
  • Sexo: Masculino
  • Carioca na veia e fotógrafo no coração!
Resposta #17 Online: 21 de Outubro de 2015, 18:21:22
Então, não tem como printar, pq é só eu digitar "Case" no editor, em seguida de um "=" que o "is" aparece automaticamente.

Será a versão do Excel que faz isso? Uso o Excel 2010.

ai não sei te dizer se é versão ou não...sei que o VBA do excel trata diferente o CASE IS do CASE,  porque CASE IS testa valores numéricos...já CASE testa strings. :ok:
Fábio Pedro.


Cristiane Gellert

  • Trade Count: (1)
  • Membro Ativo
  • ***
  • Mensagens: 758
  • Sexo: Feminino
  • Amo fotografia! Simples assim! :)
    • Meu site!
Resposta #18 Online: 21 de Outubro de 2015, 18:26:25
ai não sei te dizer se é versão ou não...sei que o VBA do excel trata diferente o CASE IS do CASE,  porque CASE IS testa valores numéricos...já CASE testa strings. :ok:
Tinha que tirar o "=" também.  :aua:

 :hysterical:

Bom, o case entrou mas nada do userform funcionar.  :aua:
Cristiane Gellert
"Fotografia, uma arte que nos envolve pela surpreendente forma de eternizar o que nosso olhar quer viver para sempre."

https://www.facebook.com/cristianegellert
Meu site: http://www.cristianegellert.com/


Fabio Pedro

  • Trade Count: (10)
  • Colaborador(a)
  • ****
  • Mensagens: 2.945
  • Sexo: Masculino
  • Carioca na veia e fotógrafo no coração!
Resposta #19 Online: 21 de Outubro de 2015, 18:30:52
Tinha que tirar o "=" também.  :aua:

 :hysterical:

Bom, o case entrou mas nada do userform funcionar.  :aua:

Há,hááá nem reparei tb... :D
Fábio Pedro.


Cristiane Gellert

  • Trade Count: (1)
  • Membro Ativo
  • ***
  • Mensagens: 758
  • Sexo: Feminino
  • Amo fotografia! Simples assim! :)
    • Meu site!
Resposta #20 Online: 21 de Outubro de 2015, 18:35:59
Tentei colocar outra função depois do "case" (um MsgBox). A impressão que tenho é de que a programação simplesmente ignora que esse dado foi imputado, como seu eu não tivesse feito nada. Será que é porque atribui um "string" para o CombBox no começo da programação?
Cristiane Gellert
"Fotografia, uma arte que nos envolve pela surpreendente forma de eternizar o que nosso olhar quer viver para sempre."

https://www.facebook.com/cristianegellert
Meu site: http://www.cristianegellert.com/


Fabio Pedro

  • Trade Count: (10)
  • Colaborador(a)
  • ****
  • Mensagens: 2.945
  • Sexo: Masculino
  • Carioca na veia e fotógrafo no coração!
Resposta #21 Online: 21 de Outubro de 2015, 18:40:43
Tentei colocar outra função depois do "case" (um MsgBox). A impressão que tenho é de que a programação simplesmente ignora que esse dado foi imputado, como seu eu não tivesse feito nada. Será que é porque atribui um "string" para o CombBox no começo da programação?

Não desde que a variável seja do tipo texto como você já fez...

Voce viu o vídeo que lhe passei?...ele aborda muito bem a manipulação de dados de uma box a outra mediante um filtro, como ví que voce quer entrar mais de um valor na segunda box, acho que o código do cara do vídeo vai lhe servir...é bem simples e bem abrangente a programação dele. :ok:

Veja se serve e me conta depois. ;)
Fábio Pedro.


Cristiane Gellert

  • Trade Count: (1)
  • Membro Ativo
  • ***
  • Mensagens: 758
  • Sexo: Feminino
  • Amo fotografia! Simples assim! :)
    • Meu site!
Resposta #22 Online: 21 de Outubro de 2015, 18:42:59
Não desde que a variável seja do tipo texto como você já fez...

Voce viu o vídeo que lhe passei?...ele aborda muito bem a manipulação de dados de uma box a outra mediante um filtro, como ví que voce quer entrar mais de um valor na segunda box, acho que o código do cara do vídeo vai lhe servir...é bem simples e bem abrangente a programação dele. :ok:

Veja se serve e me conta depois. ;)
Vou ver em casa depois! ;)
Aqui na empresa é bloqueado.

De qualquer forma, agradeço a ajuda! :ok:
Cristiane Gellert
"Fotografia, uma arte que nos envolve pela surpreendente forma de eternizar o que nosso olhar quer viver para sempre."

https://www.facebook.com/cristianegellert
Meu site: http://www.cristianegellert.com/


Fabio Pedro

  • Trade Count: (10)
  • Colaborador(a)
  • ****
  • Mensagens: 2.945
  • Sexo: Masculino
  • Carioca na veia e fotógrafo no coração!
Resposta #23 Online: 21 de Outubro de 2015, 18:46:44
Vou ver em casa depois! ;)
Aqui na empresa é bloqueado.

De qualquer forma, agradeço a ajuda! :ok:

OK, já estou saindo do escritório e indo pra casa tb...mais tarde dou uma olhada aqui contigo! :D
Fábio Pedro.


Cristiane Gellert

  • Trade Count: (1)
  • Membro Ativo
  • ***
  • Mensagens: 758
  • Sexo: Feminino
  • Amo fotografia! Simples assim! :)
    • Meu site!
Resposta #24 Online: 21 de Outubro de 2015, 19:22:35
No fim, o nosso colega amador47sc não só me ajudou nessa questão, como deu uma melhorada na minha programação toda!

Muito, muito obrigada a vocês, pela boa vontade em ajudar!  :ok: :ok: :ok: :ok:
« Última modificação: 21 de Outubro de 2015, 19:22:47 por Cristiane Gellert »
Cristiane Gellert
"Fotografia, uma arte que nos envolve pela surpreendente forma de eternizar o que nosso olhar quer viver para sempre."

https://www.facebook.com/cristianegellert
Meu site: http://www.cristianegellert.com/


Fabio Pedro

  • Trade Count: (10)
  • Colaborador(a)
  • ****
  • Mensagens: 2.945
  • Sexo: Masculino
  • Carioca na veia e fotógrafo no coração!
Resposta #25 Online: 22 de Outubro de 2015, 10:49:35
Show! :ok:
Fábio Pedro.


jesieltrevisan

  • Trade Count: (3)
  • Colaborador(a)
  • ****
  • Mensagens: 4.655
  • Sexo: Masculino
  • Harmonize-se
Resposta #26 Online: 23 de Outubro de 2015, 09:32:12
Não está caindo no IF por que com toda a certeza o valor da string que está vindo não é exatamente a mesma que você está comparando.

Você já verificou qual é o valor de  LANC.Value ???

Joga ela em um msgBox...


str_Lanc = LANC.Value
MSGBOX("O valor de LANC vale = " + str_Lanc )


Se estiver NULL ou qualquer outro formato você já vai saber o que fazer.


E nas comparações de IF com String vc pode usar o operador LIKE , com base em partes da frase, como por exemplo o número 4 que está no início da string.


If str_Lanc like "4*" then


Mas o principal é sabe qual é o valor de LANC.
« Última modificação: 23 de Outubro de 2015, 09:35:04 por jesieltrevisan »
Canon EOS 5D + BG-E4 + Canon EOS Kiss (300D) 
Canon EF 50mm f/1.8 mk I + Canon EF 100mm f/2 + Canon EF 28-70mm  f/3.5~4.5 II + Sigma 18-50mm f/2.8 DC EX  + 430EX II
--
Dúvida sobre as regras do fórum? --> REGRAS GERAIS
Dúvidas gerais? -->FAQ


Cristiane Gellert

  • Trade Count: (1)
  • Membro Ativo
  • ***
  • Mensagens: 758
  • Sexo: Feminino
  • Amo fotografia! Simples assim! :)
    • Meu site!
Resposta #27 Online: 26 de Outubro de 2015, 15:28:57
Não está caindo no IF por que com toda a certeza o valor da string que está vindo não é exatamente a mesma que você está comparando.

Você já verificou qual é o valor de  LANC.Value ???

Joga ela em um msgBox...


str_Lanc = LANC.Value
MSGBOX("O valor de LANC vale = " + str_Lanc )


Se estiver NULL ou qualquer outro formato você já vai saber o que fazer.


E nas comparações de IF com String vc pode usar o operador LIKE , com base em partes da frase, como por exemplo o número 4 que está no início da string.


If str_Lanc like "4*" then


Mas o principal é sabe qual é o valor de LANC.

O valor estava igualzinho.
Acho que foi a ordem dos fatores que alterou o resultado.

No fim deu tudo certo!  :ok:

Esse operador LIKE é novidade pra mim. Vou testar!
Cristiane Gellert
"Fotografia, uma arte que nos envolve pela surpreendente forma de eternizar o que nosso olhar quer viver para sempre."

https://www.facebook.com/cristianegellert
Meu site: http://www.cristianegellert.com/