Só com essa explicação tá difícil. Essa fórmula escolhe aleatóriamente qualquer célula entre as linhas 1 a 100 e as colunas 1 a 100 e multiplica por ...

Edcronos, Não sei bem se é o que vc deseja, mas, no link abaixo, tem um modelo de registro de histórico. (Até nada a ver com criptografia). Porém, o ...

Que bom que está resolvido. De qualquer forma, eu tinha feito um código, mas fui almoçar e não postei. Creio que pode ser mais rápido, se te interess...

tb não achei o erro, mas, ... Creio que seja "tipos incompatíveis". Seria um problema em alguma variável (provavelmente a "x"). ...

Coloque esta fórmula em B2 e arraste para o lado: =DESLOC(Plan1!$L$29;(COLS($B:B)-1)*12;0)

Talvez existam outras formas, vamos aguardar e ver o que o pessoal tem a dizer.

não se se entendi, mas... que tal: Global pontodefuga as integer sub macro A () 'código call macro B if pontodefuga = 1 then goto SAIR 'código SAIR:...

Com coluna auxiliar... Procurar_Pedidos_GT_V3.zip

coloque esta fórmula em "N4", e arraste para a direita, e ara baixo: =SOMARPRODUTO((MÊS($D4:$M4)=COLS($N:N))*(ANO($D4:$M4)=2014))

Dá pra retirar a matricial e uma fórmula mais simples com coluna auxiliar, se vc preferir. Isso vai reduzir consideravelmente o tempo de cálculo.

Sem ver a planilha, seria algo assim: Sub Não_testada_GT() Application.ScreenUpdating = False Dim i As Integer Dim UL As Integer ' Última Lin...

Então deve ser isso. Procurar_Pedidos_GT_V2.zip

tls, Isso é devido à função DESLOC(). A sintaxe dela é: Referência, Linhas a deslocar Colunas a deslocar; Altura; Largura; Pelo modelo que eu fiz, ...

Minha sugestão... Procurar_Peditos_GT.zip

Pedro, vc não explicou onde estava aquele botão, mas, faça dessa forma: Sub Apagar_B_C_GT() Application.ScreenUpdating = False Dim i As Integer ...