Macro para preencher planilha com soma SE

Question

Ol&aacute; bom dia, sou nova no mundo da programa&ccedil;&atilde;o em VBA e estou tento muita dificuldade para fazer um c&oacute;digo. Eu preciso que esse c&oacute;digo preencha uma planilha com muitas colunas e linhas e que consiga compreender a soma Ses que eu coloquei:
Sub FillCellsFromAbove

Turn of screen updating to improve performance

Application.ScreenUpdating = False
On Error Resume Next

With selection

ActiveCell.FormulaR1C1 = =sumif(Base!$D$2:$D$598:Base!$A$2$A$598;$C7;Base!$H$2:$H$598;$A7;Base!$B$2:B$598;V$3)

'coloque at&eacute; a linha 536

Active.Sheet.Range (J7:J536)

'Convert the formula to value
.Value = .Value
End with
Err.Clear Application.ScreenUpdating= true
End sub
Ser&aacute; que algu&eacute;m consegue me ajudar?

Answer

Ol&aacute;, [USER=1290579]@TheImperatriz[/USER] .
Veja se o c&oacute;digo abaixo lhe atende.
A f&oacute;rmula que voc&ecirc; postou cont&eacute;m erros de sintaxe.
Fiz altera&ccedil;&otilde;es nela, e se ficou conforme desejado basta remover o ap&oacute;strofo do in&iacute;cio desta linha >>> [SIZE=4][COLOR=#ff0080]'[/COLOR][/SIZE].Value = .Value e executar o c&oacute;digo novamente para substituir as f&oacute;rmulas pelos respectivos valores.
Sub FillCellsFromAboveV2()
Application.ScreenUpdating = False
With Range(J7:J536)
  .Formula = =SUMIFS(Base!D$2:D$598,Base!A$2:A$598,C7,Base!H$2:H$598,A7,Base!B$2:B$598,V$3)
  '.Value = .Value
End With
End Sub

Answer

Bom dia [USER=1263505]@GuimeM[/USER]

O c&oacute;digo funcionou, por&eacute;m se eu precisar escrever mais de uma linha, pois a planilha cont&eacute;m muitas colunas, ele n&atilde;o vai entender e s&oacute; vai preencher uma coluna. Exemplo:
Range (J7:J12)
Ele vai dar o resultado, por&eacute;m se eu colocar:
Range (J27:J133).
Ele n&atilde;o vai compreender e s&oacute; a linha de cima

Answer

Bom dia, [USER=1290579]@TheImperatriz[/USER] .

Voc&ecirc; poderia anexar o seu arquivo Excel com o c&oacute;digo que resultou o erro ? 
Remova dados privados se for o caso.

Answer

Desculpe... N&atilde;o consigo mandar pois meu computador &eacute; monitorado pela empresa. Mas o c&oacute;digo funcionou s&oacute; tem o problema dele n&atilde;o entender que eu preciso dele em mais de uma coluna

Answer

[QUOTE=TheImperatriz, post: 8513887, member: 1290579] ... s&oacute; tem o problema dele n&atilde;o entender que eu preciso dele em mais de uma coluna[/QUOTE]

A f&oacute;rmula est&aacute; correta ?

O c&oacute;digo insere a f&oacute;rmula no intervalo J7:J536, conforme est&aacute; no c&oacute;digo que voc&ecirc; postou. Em quais outros intervalos voc&ecirc; quer inserir ? 
Como ficaria a f&oacute;rmula se fosse inserida por exemplo em M7:M536 ? Quais refer&ecirc;ncias seriam alteradas?

A f&oacute;rmula &eacute; inserida na planilha Base? Se sim, ent&atilde;o podemos remover o nome da planilha da f&oacute;rmula.

Answer

[USER=1263505]@GuimeM[/USER]

Consegui resolver o problema, muito obrigada pela ajuda ❤️❤️

Ferramentas

Mover Tópico