Notifications
Clear all

Executar Macro = SE for verdadeiro

17 Posts
4 Usuários
0 Reactions
3,866 Visualizações
(@nando)
Posts: 53
Trusted Member
Topic starter
 

Boa noite colegas,

Pesquisei bastante no forum mas sem sucesso.

Estou precisando executar uma macro se valor for verdadeiro EX:

=SE(A1>1;"Verdadeiro";"Falso")

Se for verdadeiro chamar MACRO1

Aguardo Ajuda de Vocês

 
Postado : 24/08/2014 7:04 pm
(@nando)
Posts: 53
Trusted Member
Topic starter
 

Edcronos,

Possuo 20 relatórios alimentados por procv, cada relatório recebe sua informação individual, hoje tenho que selecionar cada um para imprimir um PDF.
Neste código inicial pensei em criar uma MACRO para CADA formulário, assim de acordo que o formulário recebe-se dados para imprimir o comando chamaria a macro de cada um é selecionaria cada formulário, lembrando não imprimo todos os formulários,cada atendimento gera uma demanda em função dos dados cadastrado de cada paciente.
Resumidamente pretendo selecionar vários formulário de uma só vez mesmo estando na mesma aba,mas o comando deve verificar se cada formulário possui valor de 1para ser igual a verdadeiro, assim ele será selecionado para impressão.
o problema quando chama o MACRO1 ela seleciona porém a MACRO 2 desmarca o que a Macro1 marcou.
Segue o formulário de exemplo.

Estou aqui para dúvidas.

 
Postado : 25/08/2014 5:43 pm
(@edcronos)
Posts: 1006
Noble Member
 

bem
vamos tentando né

para fica como vc quer...
em qualquer modulo coloque solto no inicio

Public RanG As Range

e nas macros que vão fazer a seleção das caixas

Sub Macro2()
    ran = "A1:D7"  'coloque aqui a range especifica da macro
    If Not RanG Is Nothing Then
        Set RanG = Union(RanG, Range(ran))
    Else
        Set RanG = Range(ran)
    End If
     RanG.Select
End Sub

nem sei mais em qual tópico eu estou....

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 25/08/2014 7:00 pm
Página 2 / 2