o código para a senha pode ser esse: Sub Codigo_com_Senha_GT() Dim Senha1 As String Dim Senha2 As String Senha1 = "teste123" Senha2 = Inp...

Tentado explicar Application.ScreenUpdating controla a tela. colocando como false, não vai mostrar na tela o que está sendo feito, e depois, como tru...

=SE('[PLANILHA 2.xls]ACETATO CIS 3 HEXENILA COD.001'!Q58=0;"";'[PLANILHA 2.xls]ACETATO CIS 3 HEXENILA COD.001'!Q58)

Ido nas escuras: considerando que o valor do boleto esteja em F3 e que o valor pago esteja em H3, na célula dos juros, faça: =SE(H3>F3;H3-F3;&qu...

Hm, desculpe, Sofia, eu tinha invertido 2 sinais. Agora está corrigido. SofiaTomas_GT_V2.zip

Hm, acho que agora entendi o que vc quer. Tente: Sub AtualizarPainel() Application.ScreenUpdating = False Dim Ultimalinha As Long Ultimalinha =...

Mude para Sub AtualizarPainel() Application.ScreenUpdating = False Dim Ultimalinha As Long For Each Sheet In Worksheets If Left(Sheet.Name...

:S A gente vem ajudar, tira um tempo pra apresentar uma ideia, e o cidadão não se dá o trabalho de ver que o que foi mudado nem abrir e tentar usar a...

Sofia, Veja o anexo. E, lembre-se, os arquivos anexados devem ser compactados.

vc viu q eu mudei as fómulas? Tentou usar a planilha pra ver o que acontece?

O que vc precisa é de um range dinâmico. Veja o anexo. Para saber mais, veja: viewtopic.php?f=21&t=7906 viewtopic.php?f=28&t=6103 Range_Din...

pituca, olhei a planilha, mas não entendi o que vc quer fazer. Poderia explicar melhor? Ah, outra coisa, os arquivos devem ser compactados.

é só ajustar esse linha: If Left(Sheet.Name, 6) = "> LOJA" Then para If Left(Sheet.Name, 2) = "> " Then

tente: Sub AtualizarPainel() Application.ScreenUpdating = False Dim Ultimalinha As Long For Each Sheet In Worksheets If Left(Sheet.Name...

No caso da minha: =ÍNDICE(N5:N24;SOMARPRODUTO(--(K5:K24=E5)*--(L5:L24=F5)*--(M5:M24<=G5))) em somarproduto, eu mando verificar cada condição que ...