aninha_27

Sub FILTRO() ' ' FILTRO Macro ' ' Application.ScreenUpdating = False Workbooks.Open Filename:="H:\Desktop.Janeiro2018.xlsx" 'Aplica Texto para colunas Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ :="|", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True 'Deleta algumas linhas Rows("1:9").Select Selection.Delete Shift:=xlUp Application.Goto Reference:="R2C47" Rows("1:1").Select 'Aplica o filtro Range("AB1").Activate Selection.AutoFilter ActiveSheet.Range("$A$1:$AV$1335").AutoFilter Field:=48, Criteria1:= _ "=Aguardando retorno da prefeitura", Operator:=xlOr, Criteria2:= _ "=Escriturada/Liberada pela prefeitura" 'ActiveSheet.Range("$A$1:$AW$1335").AutoFilter Field:=47, Criteria1:="=60", _ Operator:=xlOr, Criteria2:="=80" 'Efetua as fórmulas de soma e contagem e copia os dados na planilha destino 'Valor Base de Cálculo Range("AO2").Select Dim DLin As Long DLin = Range("AO2").End(xlDown).Row + 1 Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=SUM(R[-1335]C:R[-2]C)" Selection.Copy Windows("Sugestão_01.xlsx").Activate Range("P3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Valor ISS Prefeitura Windows("TESTE FILTRO.xlsm").Activate Range("AP2").Select DLin = Range("AP2").End(xlDown).Row + 1 Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=SUM(R[-1335]C:R[-2]C)" Selection.Copy Windows("Sugestão_01.xlsx").Activate Range("V3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Número de NFs Windows("TESTE FILTRO.xlsm").Activate Range("AN2").Select DLin = Range("AN2").End(xlDown).Row + 1 Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=COUNT(R[-1335]C[1]:R[-2]C[1])" Selection.Copy Windows("Sugestão_01.xlsx").Activate Range("V3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub Essa é minha macro. Eu pensei que cravando a linha estaria resolvido meu problema, mas não está! 😞 A macro deve fazer o somatório da coluna AO, pesquisar as colunas D (R1) e E (69), abrir a planilha Sugestão_01, se encontrar os mesmos valores na colunas C e D, ou seja, R1 e 69, deve colar a soma na coluna P.

O problema é que em outras colunas pode ter esse 69, então não posso especificar o número, preciso que a macro consulte a coluna E e com base no valor que está lá pegue o valor da soma da coluna AO e cole o valor da soma em outra aba na linha correspondente a este código.

Olá! Tenho um relatório em que o número de linhas irá variar, preciso fazer um somatório da coluna AO, depois verificar nas colunas D e E o código do produto e com base nesse código colar o valor da soma em outra aba na linha correspondente a este código. Por exemplo, se na coluna D está R1 e na coluna E está o código 69, na aba em que o valor da soma será colado, a macro deve procurar a linha que contém esses códigos e colar o valor na coluna P, na outra aba esses códigos devem ser procurados nas colunas C e D. Já fiz o código cravando a célula, mas desse jeito não me atende... Range("AO2").Select Dim DLin As Long DLin = Range("AO2").End(xlDown).Row + 1 Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=SUM(R[-1335]C:R[-2]C)" Selection.Copy Windows("Sugestão_01.xlsx").Activate Range("P3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Por gentileza, alguém pode ajudar? Desde já obrigada!