Ir ao conteúdo
  • Cadastre-se
MoscomAM

Incluir valores no if cells de uma macro

Recommended Posts

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"

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×