Vba E Excel: Pergunta Simples Pra Vocês

[Guest HCF]

Tenho uma macro criada para o excel mas não quero associá-la a um botão específico, nem a uma tecla de atalho, como normalmente se faz.

Minha idéia é associá-la a uma função, por exemplo:

Enquanto "A1" <= "A2", nada acontece;

Mas, se "A1" > "A2", executa-se a macro;

É possível? Como?

Obrigado desde já.

[Anderson Fernandes]

Tenho uma macro criada para o excel mas não quero associá-la a um botão específico, nem a uma tecla de atalho, como normalmente se faz.

Minha idéia é associá-la a uma função, por exemplo:

Enquanto "A1" <= "A2", nada acontece;

Mas, se "A1" > "A2", executa-se a macro;

É possível? Como?

Obrigado desde já.

Olá!!

É possivel sim, quer dizer + ou -, rsrs

bom você sabe programar em VBA?

bom se a resposta é sim então

você pode criar uma função em um módulo exemplo:

Public Function teste()

If Cells(1, 1) < Cells(1, 2) Then

teste = "Célula A1 é MENOR que A2"

ElseIf Cells(1, 1) = Cells(1, 2) Then

teste = "Célula A1 é IGUAL à A2"

Else

teste = "Célula A1 é MAIOR que A2"

End If

End Function

então você pode usar está função em uma célula

exemplo:

na céçula A2 você digita

=teste()

então você terá o resultado da comparação

o unico problema é que se você alterar o valor das células de comparações o valor da função ainda continuara o mesmo e você tera que dar dois cliques na célula com a função e dar um enter para atualizar o valor do campo

bom espero que tenha dado pra entender alguma coisa, rs

bom qual quer duvida é só falar!

Fuiii!!!

[Guest HCF]

Tenho uma macro criada para o excel mas não quero associá-la a um botão específico, nem a uma tecla de atalho, como normalmente se faz.

Minha idéia é associá-la a uma função, por exemplo:

Enquanto "A1" <= "A2", nada acontece;

Mas, se "A1" > "A2", executa-se a macro;

É possível? Como?

Obrigado desde já.

Olá!!

É possivel sim, quer dizer + ou -, rsrs

bom você sabe programar em VBA?

bom se a resposta é sim então

você pode criar uma função em um módulo exemplo:

Public Function teste()

If Cells(1, 1) < Cells(1, 2) Then

teste = "Célula A1 é MENOR que A2"

ElseIf Cells(1, 1) = Cells(1, 2) Then

teste = "Célula A1 é IGUAL à A2"

Else

teste = "Célula A1 é MAIOR que A2"

End If

End Function

então você pode usar está função em uma célula

exemplo:

na céçula A2 você digita

=teste()

então você terá o resultado da comparação

o unico problema é que se você alterar o valor das células de comparações o valor da função ainda continuara o mesmo e você tera que dar dois cliques na célula com a função e dar um enter para atualizar o valor do campo

bom espero que tenha dado pra entender alguma coisa, rs

bom qual quer duvida é só falar!

Fuiii!!!

Sim compreendi, mas não consegui associar essa função à macro que eu já tinha aqui. Meu problema maior é fazer essa associação sabe?

Tipo:

A1>A2 - fica tudo como está

A1<A2 - Ativa a macro1

[Anderson Fernandes]

Tente isso:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
if cells(1,1) < cells(1,2) then
call macro1
end if
End Sub