Ir ao conteúdo
  • Cadastre-se

Macro - Alterar uma seleção de dados dentro de uma formula


Ir à solução Resolvido por Visitante,

Posts recomendados

Tenho a seguinte formula na celula G92

 

=(CONT.SE(BO123:BO172;1)/((CONT.NÚM(BO123:BO172)-CONT.SE(BO123:BO172;0))))

 

Os dados para análise estão todos em BO123:BO172

 

Gostaria de ao executar a macro, que os dados da formula na celula G92 fossem BO124;BO173 e na proxima execução BO125;BO174 e assim sucessivamente.

 

Eu parei nessa parte, quase do zero.

 

Sub ok()
'
' ok Macro
'
' Atalho do teclado: Ctrl+Shift+M
'
    ActiveCell.FormulaR1C1 = _
        "=(COUNTIF(R[30]C[60]:R[79]C[60],1)/((COUNT(R[30]C[60]:R[79]C[60])-COUNTIF(R[30]C[60]:R[79]C[60],0))))"
    Range("G92").Select
   
End Sub
 

 

Obrigado.

Link para o comentário
Compartilhar em outros sites

  • Solução

Experimente:

Sub InsereFórmula() Dim m As Long, k As Long  m = InStr([G92].Formula, ":")  k = Mid([G92].Formula, 13, m - 13) + 1 [G92] = "=(COUNTIF(BO" & k & ":BO" & k + 49 & ",1)/((COUNT(BO" & k & ":BO" & k + 49 & ")-COUNTIF(BO" & k & ":BO" & k + 49 & ",0))))"End Sub

 

obs. coloque a fórmula inicial em 'G92' e depois rode a macro

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!