Excel Converter valor em negativo VBA

[Zamboni_du]

Boa tarde pessoal,

 

Tenho uma planilha onde preciso converter os valores de algumas células em negativo caso 2 critérios sejam atendidos, a data e o código.

 

Na coluna A temos as datas, na coluna B os códigos, na coluna C, D e E os valores que preciso converter em negativo. Dessa forma para converter os valores das colunas C,D,e E em negativos é preciso que o valor da colunas A seja igual a "J2"(data digitada) e o valor da coluna B seja igual a "Cod2".

[Wendell Menezes]

Boa tarde,

 

E como você quer que isso seja feito? Fórmula? VBA? Pode postar uma planilha com dados de modelo e os resultados esperados?

[Zamboni_du]

@Wendell Menezes , boa noite!!!!

 

Eu gostaria em VBA.

[Wendell Menezes]

@Zamboni_du

 

Sub NEGATIVE()

Dim RefDate As Long
Dim LR      As Long
Dim r       As Long

RefDate = Range("J2")
LR = Cells(Rows.Count, 1).End(xlUp).Row

For r = 2 To LR
    If Cells(r, "A") = RefDate And Cells(r, "B") = "Cod2" Then
        If Cells(r, "C") > 0 Then Cells(r, "C") = Cells(r, "C") * -1
        If Cells(r, "D") > 0 Then Cells(r, "D") = Cells(r, "D") * -1
        If Cells(r, "E") > 0 Then Cells(r, "E") = Cells(r, "E") * -1
    End If
Next

End Sub

 

[Zamboni_du]

@Wendell Menezes Boa tarde!!!

 

Seria possível que a variável LR ao invés de contar quantas linhas tem contasse apenas quanta linhas com os critérios Data ("J2") e "Cod2"? 

 

[Wendell Menezes]

Boa tarde,

 

Não sei se entendi bem, A LR verifica qual é a últinha linha da planilha para então testar em cada uma delas se atende a condição necessária para converter para negativo. Se retornasse um número menor (ex: apenas a quantidade de linhas com "Cod2" ela não iria terminar de converter até o final e o código iria parar antes da hora.

[Zamboni_du]

@Wendell MenezesMenezes boa tarde!!!!!

Entendi, minha dúvida é quanto ao tempo de excursão conforme as linhas forem aumentando. Minha ideia seria ao invés de testar linha por linha, encontrar as linha que correspondam com as variáveis Dada("J2") e "Cod2" e realizar a substituição.

[OreiaG]

Em 12/04/2023 às 14:30, Zamboni_du disse:

Dessa forma para converter os valores das colunas C,D,e E em negativos é preciso que o valor da colunas A seja igual a "J2"(data digitada) e o valor da coluna B seja igual a "Cod2".

 

1. aplique Auto Filtro nas colunas A e B conforme os seus critérios

2. coloque em uma célula vazia o valor -1 | Copiar (Ctrl+C)

5. selecione as células visíveis com valores em C:E | Colar Especial | Multiplicação | OK

 

Grave uma macro e coloque o código gravado aqui se precisar de ajustes.