MoscomAM

Oie! Consegui copiar de uma outra condição!! Mas obrigada pela atenção.

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"

 

Excelente! Muito obrigada pela ajuda.

Olá! Muito obrigada! Deu certinho, a única coisa é que a data vem invertida, ao invés de 11/05/2016 vem 05/11/2016, sabe o que pode ser?

Desculpe, é 56 a 66.

Coluna 01 a coluna 09 -> data

Coluna 11 a Coluna 41 -> Nome do fornecedor

Coluna 42 a Coluna 54 -> Valor

Coluna 56 a Coluna 66 -> Documento de compensação (interno)

Olá,

 

Tenho um arquivo .TXT do banco que é dividido da seguinte forma:

 

Coluna 01 a coluna 09 -> data

Coluna 11 a Coluna 41 -> Nome do fornecedor

Coluna 42 a Coluna 54 -> Valor

Coluna 16 a Coluna 56 -> Documento de compensação (interno)

 

Preciso que esses dados sejam importados para o excel na seguinte ordem:

 

Favorecido - Data - Valor - Documento de Compensação.

 

Só sei fazer macros pela aba de desenvolvedor, gravando a ação, e nunca fiz uma importando nada. 

 

Se alguém puder ajudar agradeço!

 

EXEMPLO.txt

AH! Eu consegui fazer uma macro que eu colava os dados, separava o arquivo por largura fixa e depois trocava a ordem, mas quando rodo a macro gravada ela inverte a ordem da data, então de 11/05/2016 vai para 05/11/2016, e uma limitante em outra macro dessa planilha é a data.