Excel acrescentar condição em macro

MoscomAM · 13 de maio de 2016

Olá!

Preciso de ajuda para adicionar mais uma questão IF conjunta com a já existente. Não fui eu quem fez a macro e por isso não sei como fazer nesse caso.

A questão é com o grifado abaixo. Em uma outra macro, é classificado as despesas do banco, e o que é Despesas Bancárias deve ser convertido para positivo antes de enviar para o access. Eu tentei incluir uma linha igual aquela com o nome "SISCOMEX", que é outra despesa que também precisa ser convertida de negativo para positivo, no entanto não vai. Não sei como incluir o SISCOMEX aí.

PS: "Banco" é o arquivo do access.

Alguém consegue me ajudar por favor?

Sub IncluirExtratoBco()
    Dim rsLancar As New ADODB.Recordset
    Dim sql As String
    
    Range("B2").Select
    
    If Range("F1").Value <> 0 Then
        MsgBox "Há lançamentos para classificar.", vbCritical, "Atenção,"
        Exit Sub
    End If
    
    AbreBanco
    
    rsLancar.Open "Delete From Extrato", AdoCadastro, adOpenKeyset, adLockOptimistic
    
    rsLancar.Open "Extrato", AdoCadastro, adOpenKeyset, adLockOptimistic
    Do While ActiveCell.Value <> ""
        rsLancar.AddNew
            rsLancar!Data = CDate(Cells(ActiveCell.Row, 1).Value)
            rsLancar!Referente = Cells(ActiveCell.Row, 2).Value
            If Cells(ActiveCell.Row, 5).Value = "Despesas Bancarias" Then
                rsLancar!Valor = CDbl(Cells(ActiveCell.Row, 3).Value) * -1
            Else
                rsLancar!Valor = CDbl(Cells(ActiveCell.Row, 3).Value)
            End If
            rsLancar!Planilha = Cells(ActiveCell.Row, 4).Value
            rsLancar!Linha = Cells(ActiveCell.Row, 5).Value
        rsLancar.Update
        Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
    Loop
    rsLancar.Close
    AdoCadastro.Close
    MsgBox "Atualizado com sucesso!", vbInformation, "Ok"
End Sub"