Fóruns sobre PHP, JavaScript, HTML, MySQLi, jQuery, Banco de Dados, CSS


Moderador: web

 
Mais de 100 postagens
Mais de 100 postagens
Tópico Autor
Mensagens: 105
Localização: Esteio/RS
Contato:

Worksheet_Change

30-03-2012 12:56

talvez haja alguem que conheca VB ...

por favor, alguem pode me ajudar a resolver isso?

no vb do excel este script funciona SOMENTE quando eu altero a celula diretamente mas nao INDIRETAMENTE:

as ceululas C17 e D17 contem "SE(x>0;1;0)", por exemplo, que eh como consequencia modificado pelo argumento.

grato.


Private Sub Worksheet_Change(ByVal faixa As Range) If Not Intersect(faixa, Range("c17:c17")) Is Nothing Then If faixa.Offset(0, 0).Value > 0 Then Application.EnableEvents = False MsgBox "celula C17" Application.EnableEvents = True End If End If If Not Intersect(faixa, Range("d17:d17")) Is Nothing Then If faixa.Offset(0, 0).Value > 0 Then Application.EnableEvents = False MsgBox "celula D17" Application.EnableEvents = True End If End If End Sub

0
 
Avatar do usuário
ADMIN
ADMIN
Mensagens: 17612
Nome: Kleber
Descrição do site: Onde você encontra scripts grátis para o seu site
Sexo: Masculino
Localização: RJ / RJ / Brasil
Contato:

Worksheet_Change

30-03-2012 14:50

O forte aqui do fórum não é VB, mas te indico 2 lugares que pode te ajudar

http://social.msdn.microsoft.com/Forums ... pt/threads
http://www.visualbasic.mat.br/forum/
0
A melhor hospedagem para o seu site HostGator!
 
Mais de 100 postagens
Mais de 100 postagens
Tópico Autor
Mensagens: 105
Localização: Esteio/RS
Contato:

Worksheet_Change

30-03-2012 23:34

obrigado.
0

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado