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"

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.