Skip to main content
Bumped by Community user
Bumped by Community user
Bumped by Community user
Bumped by Community user
Bumped by Community user
Bumped by Community user
Bumped by Community user
appended answer 554490 as supplemental
Fonte Link
Maniero
  • 484,4mil
  • 94
  • 1,3mil
  • 2,2mil

Total:86

CCD (20)
ARE-SIS         ID          Status          Resumo
999 - 10    CCD-XXXXXXXXXXX HOMOLOGADA  Consulta saldo devedor no portal consignado
999 - 11    CCD-XXXXXXXXXXX SOLICITADA  Compensação do IOF no redirecionamento
999 - 12    CCD-XXXXXXXXXXX EM EXECUÇÃO Consignação Siape - Alteração de Contratos
999 - 13    CCD-XXXXXXXXXXX EM HOMOLOGAÇÃO  Alterar opção de baixa manual de parcelas para que sempre seja condicionada a saldo.
999 - 14    CCD-XXXXXXXXXXX SOLICITADA  Transferência de conta corrente - CCD
999 - 15    CCD-XXXXXXXXXXX CANCELADA   Contabilização Individualizada na conciliação BRBSERV
999 - 16    CCD-XXXXXXXXXXX SOLICITADA  Cartão consignado
999 - 17    CCD-XXXXXXXXXXX CANCELADA   Melhoria de performance CCDJM400 / CCDP62
999 - 18    CCD-XXXXXXXXXXX SOLICITADA  Melhoria de Performance CCDJ1700 - CCDPZE - CCDPQR
999 - 19    CCD-XXXXXXXXXXX EM EXECUÇÃO Melhoria CCDJD300 / CCDP20
999 - 20    CCD-XXXXXXXXXXX SOLICITADA  Melhoria de Performance CCDJM100 - CCDP40
999 - 09    CCD-XXXXXXXXXXX SOLICITADA  Alteração do simulador de campanha
999 - 08    CCD-XXXXXXXXXXX SOLICITADA  Consignado Privado
999 - 07    CCD-XXXXXXXXXXX SUSPENSA    Liquidação e baixa de parcelas
999 - 06    CCD-XXXXXXXXXXX SUSPENSA    Cobrança de IOF complementar das parcelas atrasadas do CCD
999 - 05    CCD-XXXXXXXXXXX EM TESTE    Alterar o envio da informação da CONTA EXTERNA pelo CCD para os arquivos CTRAA2 e CTRAA5
999 - 04    CCD-XXXXXXXXXXX SUSPENSA    2ª fase do e-Consignado API: Averbação on-line
999 - 03    CCD-XXXXXXXXXXX SUSPENSA    Criação de relatório e consignado
999 - 02    CCD-XXXXXXXXXXX SUSPENSA    E-consignado 2a parte
999 - 01    CCD-XXXXXXXXXXX EM IMPLANTAÇÃO  Ajuste CCD para 144 parcelas - Automação
CTC (8)
ARE-SIS ID  Status  Resumo
999 - 08    CTC-XXXXXXXXXXX EM TESTE    Melhoria de Performance CTCP07
999 - 07    CTC-XXXXXXXXXXX HOMOLOGADA  Melhoria Performance CTCN48
999 - 06    CTC-XXXXXXXXXXX SOLICITADA  Envio da quantidade de parcelas em aberto CTC
999 - 05    CTC-XXXXXXXXXXX SOLICITADA  Reter portabilidade pelo motivo mais adequado
999 - 03    CTC-XXXXXXXXXXX SOLICITADA  Sistema CTC apresentar XML's recebidas
899 - 04    CTC-XXXXXXXXXXX EM EXECUÇÃO Preparar o sistema CTC para portar contratos do TSP
005 - 02    CTC-XXXXXXXXXXX AGUARDANDO HOMOLOGAÇÃO  Atualização arquivos CTC (Troca de modalidade e Cheque Especial)
005 - 01    CTC-XXXXXXXXXXX HOMOLOGADA  Inclusão de novos arquivos (Troca de Modalidade e Cheque Especial)
DSC (3)
ARE-SIS ID  Status  Resumo
999 - 03    DSC-XXXXXXXXXXX EM EXECUÇÃO Atualizar Conta Externa COSIF enviada do DSC para o CTR
999 - 02    DSC-XXXXXXXXXXX REJEITADA   Baixa com consulta saldo Sim
999 - 01    DSC-XXXXXXXXXXX AGUARDANDO HOMOLOGAÇÃO  Resolução 4.790 do Bacen-Autorização e cancelamento de autorização de débitos em conta
EAC (10)
ARE-SIS ID  Status  Resumo
999 - 10    EAC-XXXXXXXXXXX SOLICITADA  Transferência de Conta Corrente - EAC
999 - 09    EAC-XXXXXXXXXXX SOLICITADA  Criar opções de Estorno e de Cancelamento da Baixa e da Liberação
999 - 08    EAC-XXXXXXXXXXX EM CANCELAMENTO Projeto DT-e Criação de Antecipação EAC
999 - 07    EAC-XXXXXXXXXXX SOLICITADA  Marcação dos Índices Flutuantes - Integração EAC-CTR
999 - 06    EAC-XXXXXXXXXXX EM EXECUÇÃO Baixa com consulta saldo Sim
999 - 05    EAC-XXXXXXXXXXX SUSPENSA    Atualizar Conta Externa COSIF enviada do EAC para o CTR
999 - 04    EAC-XXXXXXXXXXX SUSPENSA    ADEQUAR SISTEMA LEGADO A NOVA TABELA DE TAFIFAS.
999 - 03    EAC-XXXXXXXXXXX REJEITADA   Baixa não integrada com o DCC
010 - 02    EAC-XXXXXXXXXXX HOMOLOGADA  [Carta Circular 3.896] Carga inicial do enquadramento contábil
010 - 01    EAC-XXXXXXXXXXX AGUARDANDO HOMOLOGAÇÃO  [Carta Circular 3.896] Marcação no contrato de "possui garantia de imóvel do próprio devedor"
ECC (14)
ARE-SIS ID  Status  Resumo
999 - 10    ECC-XXXXXXXXXXX SOLICITADA  Ajuste de operações encerradas no ECC
999 - 11    ECC-XXXXXXXXXXX SOLICITADA  Gerar arquivos e relatórios - Normativo SARB 019/2018
999 - 12    ECC-XXXXXXXXXXX SOLICITADA  Ajuste contabilidade PF e PJ - atividade
999 - 13    ECC-XXXXXXXXXXX SOLICITADA  Correção de erros de integração com CTR (CTRRR8)
999 - 14    ECC-XXXXXXXXXXX HOMOLOGADA  Melhoria de Performance ECCPZ8
999 - 15    ECC-XXXXXXXXXXX EM EXECUÇÃO Melhoria de Performance ECCJD300
999 - 16    ECC-XXXXXXXXXXX SOLICITADA  Transferência de conta corrente - ECC
999 - 17    ECC-XXXXXXXXXXX SOLICITADA  Melhoria de Performance ECCJS400/ECCPC7
999 - 09    ECC-XXXXXXXXXXX SOLICITADA  Alteração das sub-rotinas ECC (pré-aprovado) para inclusão de indicador de Seguro SIM ou NÃO
999 - 08    ECC-XXXXXXXXXXX EM EXECUÇÃO Renovacao Automatica Produto CBE 030 ECC
999 - 07    ECC-XXXXXXXXXXX SUSPENSA    Atualizar Conta Externa COSIF enviada do ECC para o CTR
999 - 06    ECC-XXXXXXXXXXX EM TESTE    Alteração da Funcionalidade Vencimento Antecipado
999 - 05    ECC-XXXXXXXXXXX AGUARDANDO HOMOLOGAÇÃO  Alteração na Forma de Contratação de Limites de Cheque Especial
005 - 04    ECC-XXXXXXXXXXX EM EXECUÇÃO [Res. 4.762] Portabilidade Crédito Rotativo
FCG (4)
ARE-SIS ID  Status  Resumo
999 - 07    FCG-XXXXXXXXXXX SOLICITADA  Transferência de conta corrente - FCG
999 - 03    FCG-XXXXXXXXXXX REJEITADA   Baixa com consulta saldo Sim
999 - 02    FCG-XXXXXXXXXXX SUSPENSA    Atualizar Conta Externa COSIF enviada do FCG para o CTR
999 - 01    FCG-XXXXXXXXXXX EM EXECUÇÃO Manutenção da Antecipação de Recebíveis CIP
OCA (8)
ARE-SIS ID  Status  Resumo
999 - 08    OCA-XXXXXXXXXXX SOLICITADA  Apropriação de rendas
999 - 07    OCA-XXXXXXXXXXX SOLICITADA  Transferência de conta corrente - OCA
999 - 06    OCA-XXXXXXXXXXX SOLICITADA  Ajuste Sub-rotina Simulador de Renegociação SBE
999 - 05    OCA-XXXXXXXXXXX SOLICITADA  Alterações de acessos no OCA pelo perfl GECAT
999 - 04    OCA-XXXXXXXXXXX EM EXECUÇÃO Baixa por arquivo - VENDA DE CARTEIRA
999 - 03    OCA-XXXXXXXXXXX EM TESTE    Integração OCA e MGF - prejuízo
999 - 02    OCA-XXXXXXXXXXX EM EXECUÇÃO Criar relatório de conciliação PCLD para o sistema OCA
999 - 01    OCA-XXXXXXXXXXX REJEITADA   Evolução da renegociação OCA
OCG (19)
ARE-SIS ID  Status  Resumo
999 - 10    OCG-XXXXXXXXXXX SOLICITADA  Correção de erros de integração com CTR (CTRRR8)
999 - 11    OCG-XXXXXXXXXXX SOLICITADA  Compensação do IOF no redirecionamento
999 - 12    OCG-XXXXXXXXXXX SOLICITADA  Reconhecimento da liquidação dos contratos com situação Portabilidade
999 - 13    OCG-XXXXXXXXXXX SOLICITADA  Marcação de índices flutuantes - Integração OCG-CTR
999 - 14    OCG-XXXXXXXXXXX SOLICITADA  Cartão Construção
999 - 15    OCG-XXXXXXXXXXX SOLICITADA  Novo Simulador de Operações Parceladas
999 - 16    OCG-XXXXXXXXXXX SOLICITADA  Repactuação OCG
999 - 17    OCG-XXXXXXXXXXX EM CANCELAMENTO Projeto DT-e Criação de Antecipação OCG
999 - 18    OCG-XXXXXXXXXXX SOLICITADA  Parcelamento de fatura via canal
999 - 19    OCG-XXXXXXXXXXX SOLICITADA  Transferência de conta corrente - OCG
999 - 09    OCG-XXXXXXXXXXX SOLICITADA  Alteração de valor informado Portabilidade OCG
999 - 08    OCG-XXXXXXXXXXX SUSPENSA    Liquidação e baixa de parcelas
999 - 07    OCG-XXXXXXXXXXX SOLICITADA  Remodelar o produto 324 – BRB Credreforma, com alteração do nome para BRB Energia renovável
999 - 06    OCG-XXXXXXXXXXX EM EXECUÇÃO Compra Carteira FGTS Banco PAN - Etapa II
999 - 05    OCG-XXXXXXXXXXX EM EXECUÇÃO Criação de Limite de Pré-aprovado para liberação nos Canais
999 - 04    OCG-XXXXXXXXXXX EM EXECUÇÃO Consulta/Bloqueio do Saldo Saque Aniversário FGTS via API
999 - 03    OCG-XXXXXXXXXXX EM EXECUÇÃO API para comunicação entre o BRB e a Caixa Econômica Federal (FGTS)
999 - 02    OCG-XXXXXXXXXXX EM EXECUÇÃO Troca de arquivos para operacionalização do produto Antecipação FGTS
999 - 01    OCG-XXXXXXXXXXX EM EXECUÇÃO Automatização Carga Compra Carteira


Total:86

CCD (20)
ARE-SIS         ID          Status          Resumo
999 - 10    CCD-XXXXXXXXXXX HOMOLOGADA  Consulta saldo devedor no portal consignado
999 - 11    CCD-XXXXXXXXXXX SOLICITADA  Compensação do IOF no redirecionamento
999 - 12    CCD-XXXXXXXXXXX EM EXECUÇÃO Consignação Siape - Alteração de Contratos
999 - 13    CCD-XXXXXXXXXXX EM HOMOLOGAÇÃO  Alterar opção de baixa manual de parcelas para que sempre seja condicionada a saldo.
999 - 14    CCD-XXXXXXXXXXX SOLICITADA  Transferência de conta corrente - CCD
999 - 15    CCD-XXXXXXXXXXX CANCELADA   Contabilização Individualizada na conciliação BRBSERV
999 - 16    CCD-XXXXXXXXXXX SOLICITADA  Cartão consignado
999 - 17    CCD-XXXXXXXXXXX CANCELADA   Melhoria de performance CCDJM400 / CCDP62
999 - 18    CCD-XXXXXXXXXXX SOLICITADA  Melhoria de Performance CCDJ1700 - CCDPZE - CCDPQR
999 - 19    CCD-XXXXXXXXXXX EM EXECUÇÃO Melhoria CCDJD300 / CCDP20
999 - 20    CCD-XXXXXXXXXXX SOLICITADA  Melhoria de Performance CCDJM100 - CCDP40
999 - 09    CCD-XXXXXXXXXXX SOLICITADA  Alteração do simulador de campanha
999 - 08    CCD-XXXXXXXXXXX SOLICITADA  Consignado Privado
999 - 07    CCD-XXXXXXXXXXX SUSPENSA    Liquidação e baixa de parcelas
999 - 06    CCD-XXXXXXXXXXX SUSPENSA    Cobrança de IOF complementar das parcelas atrasadas do CCD
999 - 05    CCD-XXXXXXXXXXX EM TESTE    Alterar o envio da informação da CONTA EXTERNA pelo CCD para os arquivos CTRAA2 e CTRAA5
999 - 04    CCD-XXXXXXXXXXX SUSPENSA    2ª fase do e-Consignado API: Averbação on-line
999 - 03    CCD-XXXXXXXXXXX SUSPENSA    Criação de relatório e consignado
999 - 02    CCD-XXXXXXXXXXX SUSPENSA    E-consignado 2a parte
999 - 01    CCD-XXXXXXXXXXX EM IMPLANTAÇÃO  Ajuste CCD para 144 parcelas - Automação
CTC (8)
ARE-SIS ID  Status  Resumo
999 - 08    CTC-XXXXXXXXXXX EM TESTE    Melhoria de Performance CTCP07
999 - 07    CTC-XXXXXXXXXXX HOMOLOGADA  Melhoria Performance CTCN48
999 - 06    CTC-XXXXXXXXXXX SOLICITADA  Envio da quantidade de parcelas em aberto CTC
999 - 05    CTC-XXXXXXXXXXX SOLICITADA  Reter portabilidade pelo motivo mais adequado
999 - 03    CTC-XXXXXXXXXXX SOLICITADA  Sistema CTC apresentar XML's recebidas
899 - 04    CTC-XXXXXXXXXXX EM EXECUÇÃO Preparar o sistema CTC para portar contratos do TSP
005 - 02    CTC-XXXXXXXXXXX AGUARDANDO HOMOLOGAÇÃO  Atualização arquivos CTC (Troca de modalidade e Cheque Especial)
005 - 01    CTC-XXXXXXXXXXX HOMOLOGADA  Inclusão de novos arquivos (Troca de Modalidade e Cheque Especial)
DSC (3)
ARE-SIS ID  Status  Resumo
999 - 03    DSC-XXXXXXXXXXX EM EXECUÇÃO Atualizar Conta Externa COSIF enviada do DSC para o CTR
999 - 02    DSC-XXXXXXXXXXX REJEITADA   Baixa com consulta saldo Sim
999 - 01    DSC-XXXXXXXXXXX AGUARDANDO HOMOLOGAÇÃO  Resolução 4.790 do Bacen-Autorização e cancelamento de autorização de débitos em conta
EAC (10)
ARE-SIS ID  Status  Resumo
999 - 10    EAC-XXXXXXXXXXX SOLICITADA  Transferência de Conta Corrente - EAC
999 - 09    EAC-XXXXXXXXXXX SOLICITADA  Criar opções de Estorno e de Cancelamento da Baixa e da Liberação
999 - 08    EAC-XXXXXXXXXXX EM CANCELAMENTO Projeto DT-e Criação de Antecipação EAC
999 - 07    EAC-XXXXXXXXXXX SOLICITADA  Marcação dos Índices Flutuantes - Integração EAC-CTR
999 - 06    EAC-XXXXXXXXXXX EM EXECUÇÃO Baixa com consulta saldo Sim
999 - 05    EAC-XXXXXXXXXXX SUSPENSA    Atualizar Conta Externa COSIF enviada do EAC para o CTR
999 - 04    EAC-XXXXXXXXXXX SUSPENSA    ADEQUAR SISTEMA LEGADO A NOVA TABELA DE TAFIFAS.
999 - 03    EAC-XXXXXXXXXXX REJEITADA   Baixa não integrada com o DCC
010 - 02    EAC-XXXXXXXXXXX HOMOLOGADA  [Carta Circular 3.896] Carga inicial do enquadramento contábil
010 - 01    EAC-XXXXXXXXXXX AGUARDANDO HOMOLOGAÇÃO  [Carta Circular 3.896] Marcação no contrato de "possui garantia de imóvel do próprio devedor"
ECC (14)
ARE-SIS ID  Status  Resumo
999 - 10    ECC-XXXXXXXXXXX SOLICITADA  Ajuste de operações encerradas no ECC
999 - 11    ECC-XXXXXXXXXXX SOLICITADA  Gerar arquivos e relatórios - Normativo SARB 019/2018
999 - 12    ECC-XXXXXXXXXXX SOLICITADA  Ajuste contabilidade PF e PJ - atividade
999 - 13    ECC-XXXXXXXXXXX SOLICITADA  Correção de erros de integração com CTR (CTRRR8)
999 - 14    ECC-XXXXXXXXXXX HOMOLOGADA  Melhoria de Performance ECCPZ8
999 - 15    ECC-XXXXXXXXXXX EM EXECUÇÃO Melhoria de Performance ECCJD300
999 - 16    ECC-XXXXXXXXXXX SOLICITADA  Transferência de conta corrente - ECC
999 - 17    ECC-XXXXXXXXXXX SOLICITADA  Melhoria de Performance ECCJS400/ECCPC7
999 - 09    ECC-XXXXXXXXXXX SOLICITADA  Alteração das sub-rotinas ECC (pré-aprovado) para inclusão de indicador de Seguro SIM ou NÃO
999 - 08    ECC-XXXXXXXXXXX EM EXECUÇÃO Renovacao Automatica Produto CBE 030 ECC
999 - 07    ECC-XXXXXXXXXXX SUSPENSA    Atualizar Conta Externa COSIF enviada do ECC para o CTR
999 - 06    ECC-XXXXXXXXXXX EM TESTE    Alteração da Funcionalidade Vencimento Antecipado
999 - 05    ECC-XXXXXXXXXXX AGUARDANDO HOMOLOGAÇÃO  Alteração na Forma de Contratação de Limites de Cheque Especial
005 - 04    ECC-XXXXXXXXXXX EM EXECUÇÃO [Res. 4.762] Portabilidade Crédito Rotativo
FCG (4)
ARE-SIS ID  Status  Resumo
999 - 07    FCG-XXXXXXXXXXX SOLICITADA  Transferência de conta corrente - FCG
999 - 03    FCG-XXXXXXXXXXX REJEITADA   Baixa com consulta saldo Sim
999 - 02    FCG-XXXXXXXXXXX SUSPENSA    Atualizar Conta Externa COSIF enviada do FCG para o CTR
999 - 01    FCG-XXXXXXXXXXX EM EXECUÇÃO Manutenção da Antecipação de Recebíveis CIP
OCA (8)
ARE-SIS ID  Status  Resumo
999 - 08    OCA-XXXXXXXXXXX SOLICITADA  Apropriação de rendas
999 - 07    OCA-XXXXXXXXXXX SOLICITADA  Transferência de conta corrente - OCA
999 - 06    OCA-XXXXXXXXXXX SOLICITADA  Ajuste Sub-rotina Simulador de Renegociação SBE
999 - 05    OCA-XXXXXXXXXXX SOLICITADA  Alterações de acessos no OCA pelo perfl GECAT
999 - 04    OCA-XXXXXXXXXXX EM EXECUÇÃO Baixa por arquivo - VENDA DE CARTEIRA
999 - 03    OCA-XXXXXXXXXXX EM TESTE    Integração OCA e MGF - prejuízo
999 - 02    OCA-XXXXXXXXXXX EM EXECUÇÃO Criar relatório de conciliação PCLD para o sistema OCA
999 - 01    OCA-XXXXXXXXXXX REJEITADA   Evolução da renegociação OCA
OCG (19)
ARE-SIS ID  Status  Resumo
999 - 10    OCG-XXXXXXXXXXX SOLICITADA  Correção de erros de integração com CTR (CTRRR8)
999 - 11    OCG-XXXXXXXXXXX SOLICITADA  Compensação do IOF no redirecionamento
999 - 12    OCG-XXXXXXXXXXX SOLICITADA  Reconhecimento da liquidação dos contratos com situação Portabilidade
999 - 13    OCG-XXXXXXXXXXX SOLICITADA  Marcação de índices flutuantes - Integração OCG-CTR
999 - 14    OCG-XXXXXXXXXXX SOLICITADA  Cartão Construção
999 - 15    OCG-XXXXXXXXXXX SOLICITADA  Novo Simulador de Operações Parceladas
999 - 16    OCG-XXXXXXXXXXX SOLICITADA  Repactuação OCG
999 - 17    OCG-XXXXXXXXXXX EM CANCELAMENTO Projeto DT-e Criação de Antecipação OCG
999 - 18    OCG-XXXXXXXXXXX SOLICITADA  Parcelamento de fatura via canal
999 - 19    OCG-XXXXXXXXXXX SOLICITADA  Transferência de conta corrente - OCG
999 - 09    OCG-XXXXXXXXXXX SOLICITADA  Alteração de valor informado Portabilidade OCG
999 - 08    OCG-XXXXXXXXXXX SUSPENSA    Liquidação e baixa de parcelas
999 - 07    OCG-XXXXXXXXXXX SOLICITADA  Remodelar o produto 324 – BRB Credreforma, com alteração do nome para BRB Energia renovável
999 - 06    OCG-XXXXXXXXXXX EM EXECUÇÃO Compra Carteira FGTS Banco PAN - Etapa II
999 - 05    OCG-XXXXXXXXXXX EM EXECUÇÃO Criação de Limite de Pré-aprovado para liberação nos Canais
999 - 04    OCG-XXXXXXXXXXX EM EXECUÇÃO Consulta/Bloqueio do Saldo Saque Aniversário FGTS via API
999 - 03    OCG-XXXXXXXXXXX EM EXECUÇÃO API para comunicação entre o BRB e a Caixa Econômica Federal (FGTS)
999 - 02    OCG-XXXXXXXXXXX EM EXECUÇÃO Troca de arquivos para operacionalização do produto Antecipação FGTS
999 - 01    OCG-XXXXXXXXXXX EM EXECUÇÃO Automatização Carga Compra Carteira

adicionou 59 caracteres ao conteúdo
Fonte Link

Gostaria de saber se é possível importar uma coluna especifica de um arquivo txt pra minha planilha do excel? E como poderia ser feito

Tenho uma macro que importa o arquivo txt já pronto, porém preciso de um botão onde eu clico, seleciono meu arquivo e ele já importa os dados daquela coluna com os dados específicos que eu quero

OBS: Preciso que importe apenas a coluna de "Status"

Importar Apenas Dados da coluna "Status"

Código feito para importação de txt:

Sub EncontrarTXT()


Dim arquivo As String
Dim sheet As Worksheet


Set Objeto = CreateObject("scripting.filesystemobject") 'Criando objeto

arquivo = Application.GetOpenFilename(Filefilter:="Texto, *.txt") 'Para abrir o documento, janelinha do explorer

If arquivo = "" Or arquivo = "Falso" Then 'Se arquivo for igual a vazio, ou se ele clicar em cancelar retornar "falso", usu�rio n�o selecionou nenhum documento
Exit Sub
End If



Open arquivo For Input As #1

Worksheets("CCD""Status").Activate 'Referencia o objeto para que seja ativada a opção de abrir uma nova planilha

lin = 1

Do Until EOF(1)
    Line Input #1, valorLin
    Cells(lin, 4).Value = valorLin
    lin = lin + 1
Loop

Close #1

Range("D4:D" & lin - 1).TextToColumns Other:=True 'Intervalo em que é inserido os dados e separando por colunas para o tipo de dado escolhido
Columns().EntireColumn.AutoFit 'Faz o ajuste de colunas para obter a melhor largura

End Sub

Gostaria de saber se é possível importar uma coluna especifica de um arquivo txt pra minha planilha do excel? E como poderia ser feito

Tenho uma macro que importa o arquivo txt já pronto, porém preciso de um botão onde eu clico, seleciono meu arquivo e ele já importa os dados daquela coluna com os dados específicos que eu quero

Importar Apenas Dados da coluna "Status"

Código feito para importação de txt:

Sub EncontrarTXT()


Dim arquivo As String
Dim sheet As Worksheet


Set Objeto = CreateObject("scripting.filesystemobject") 'Criando objeto

arquivo = Application.GetOpenFilename(Filefilter:="Texto, *.txt") 'Para abrir o documento, janelinha do explorer

If arquivo = "" Or arquivo = "Falso" Then 'Se arquivo for igual a vazio, ou se ele clicar em cancelar retornar "falso", usu�rio n�o selecionou nenhum documento
Exit Sub
End If



Open arquivo For Input As #1

Worksheets("CCD").Activate 'Referencia o objeto para que seja ativada a opção de abrir uma nova planilha

lin = 1

Do Until EOF(1)
    Line Input #1, valorLin
    Cells(lin, 4).Value = valorLin
    lin = lin + 1
Loop

Close #1

Range("D4:D" & lin - 1).TextToColumns Other:=True 'Intervalo em que é inserido os dados e separando por colunas para o tipo de dado escolhido
Columns().EntireColumn.AutoFit 'Faz o ajuste de colunas para obter a melhor largura

End Sub

Gostaria de saber se é possível importar uma coluna especifica de um arquivo txt pra minha planilha do excel? E como poderia ser feito

Tenho uma macro que importa o arquivo txt já pronto, porém preciso de um botão onde eu clico, seleciono meu arquivo e ele já importa os dados daquela coluna com os dados específicos que eu quero

OBS: Preciso que importe apenas a coluna de "Status"

Importar Apenas Dados da coluna "Status"

Código feito para importação de txt:

Sub EncontrarTXT()


Dim arquivo As String
Dim sheet As Worksheet


Set Objeto = CreateObject("scripting.filesystemobject") 'Criando objeto

arquivo = Application.GetOpenFilename(Filefilter:="Texto, *.txt") 'Para abrir o documento, janelinha do explorer

If arquivo = "" Or arquivo = "Falso" Then 'Se arquivo for igual a vazio, ou se ele clicar em cancelar retornar "falso", usu�rio n�o selecionou nenhum documento
Exit Sub
End If



Open arquivo For Input As #1

Worksheets("Status").Activate 'Referencia o objeto para que seja ativada a opção de abrir uma nova planilha

lin = 1

Do Until EOF(1)
    Line Input #1, valorLin
    Cells(lin, 4).Value = valorLin
    lin = lin + 1
Loop

Close #1

Range("D4:D" & lin - 1).TextToColumns Other:=True 'Intervalo em que é inserido os dados e separando por colunas para o tipo de dado escolhido
Columns().EntireColumn.AutoFit 'Faz o ajuste de colunas para obter a melhor largura

End Sub
adicionou 126 caracteres ao conteúdo
Fonte Link
Syzoth
  • 100,5mil
  • 23
  • 169
  • 361

Gostaria de saber se é possivelpossível importar uma coluna especifica de um arquivo txt pra minha planilha do excel? E como poderia ser feito

Tenho uma macro que importa o arquivo txt já pronto, porém preciso de um botão onde eu clico, seleciono meu arquivo e ele já importa os dados daquela coluna com os dados especificosespecíficos que eu quero,

Importar Apenas Dados da coluna "Status"

Código feito para importação de txt:

Sub EncontrarTXT()


Dim arquivo As String
Dim sheet As Worksheet


Set Objeto = CreateObject("scripting.filesystemobject") 'Criando objeto

arquivo = Application.GetOpenFilename(Filefilter:="Texto, *.txt") 'Para abrir o documento, janelinha do explorer

If arquivo = "" Or arquivo = "Falso" Then 'Se arquivo for igual a vazio, ou se ele clicar em cancelar retornar "falso", usu�rio n�o selecionou nenhum documento
Exit Sub
End If



Open arquivo For Input As #1

Worksheets("CCD").Activate 'Referencia o objeto para que seja ativada a opção de abrir uma nova planilha

lin = 1

Do Until EOF(1)
    Line Input #1, valorLin
    Cells(lin, 4).Value = valorLin
    lin = lin + 1
Loop

Close #1

Range("D4:D" & lin - 1).TextToColumns Other:=True 'Intervalo em que é inserido os dados e separando por colunas para o tipo de dado escolhido
Columns().EntireColumn.AutoFit 'Faz o ajuste de colunas para obter a melhor largura

End Sub

Dim arquivo As String Dim sheet As Worksheet

Set Objeto = CreateObject("scripting.filesystemobject") 'Criando objeto

arquivo = Application.GetOpenFilename(Filefilter:="Texto, *.txt") 'Para abrir o documento, janelinha do explorer

If arquivo = "" Or arquivo = "Falso" Then 'Se arquivo for igual a vazio, ou se ele clicar em cancelar retornar "falso", usu�rio n�o selecionou nenhum documento Exit Sub End If

Open arquivo For Input As #1

Worksheets("CCD").Activate 'Referencia o objeto para que seja ativada a opção de abrir uma nova planilha

lin = 1

Do Until EOF(1) Line Input #1, valorLin Cells(lin, 4).Value = valorLin lin = lin + 1 Loop

Close #1

Range("D4:D" & lin - 1).TextToColumns Other:=True 'Intervalo em que é inserido os dados e separando por colunas para o tipo de dado escolhido Columns().EntireColumn.AutoFit 'Faz o ajuste de colunas para obter a melhor largura

End Sub

Gostaria de saber se é possivel importar uma coluna especifica de um arquivo txt pra minha planilha do excel? E como poderia ser feito

Tenho uma macro que importa o arquivo txt já pronto, porém preciso de um botão onde eu clico, seleciono meu arquivo e ele já importa os dados daquela coluna com os dados especificos que eu quero,

Importar Apenas Dados da coluna "Status"

Código feito para importação de txt:

Sub EncontrarTXT()

Dim arquivo As String Dim sheet As Worksheet

Set Objeto = CreateObject("scripting.filesystemobject") 'Criando objeto

arquivo = Application.GetOpenFilename(Filefilter:="Texto, *.txt") 'Para abrir o documento, janelinha do explorer

If arquivo = "" Or arquivo = "Falso" Then 'Se arquivo for igual a vazio, ou se ele clicar em cancelar retornar "falso", usu�rio n�o selecionou nenhum documento Exit Sub End If

Open arquivo For Input As #1

Worksheets("CCD").Activate 'Referencia o objeto para que seja ativada a opção de abrir uma nova planilha

lin = 1

Do Until EOF(1) Line Input #1, valorLin Cells(lin, 4).Value = valorLin lin = lin + 1 Loop

Close #1

Range("D4:D" & lin - 1).TextToColumns Other:=True 'Intervalo em que é inserido os dados e separando por colunas para o tipo de dado escolhido Columns().EntireColumn.AutoFit 'Faz o ajuste de colunas para obter a melhor largura

End Sub

Gostaria de saber se é possível importar uma coluna especifica de um arquivo txt pra minha planilha do excel? E como poderia ser feito

Tenho uma macro que importa o arquivo txt já pronto, porém preciso de um botão onde eu clico, seleciono meu arquivo e ele já importa os dados daquela coluna com os dados específicos que eu quero

Importar Apenas Dados da coluna "Status"

Código feito para importação de txt:

Sub EncontrarTXT()


Dim arquivo As String
Dim sheet As Worksheet


Set Objeto = CreateObject("scripting.filesystemobject") 'Criando objeto

arquivo = Application.GetOpenFilename(Filefilter:="Texto, *.txt") 'Para abrir o documento, janelinha do explorer

If arquivo = "" Or arquivo = "Falso" Then 'Se arquivo for igual a vazio, ou se ele clicar em cancelar retornar "falso", usu�rio n�o selecionou nenhum documento
Exit Sub
End If



Open arquivo For Input As #1

Worksheets("CCD").Activate 'Referencia o objeto para que seja ativada a opção de abrir uma nova planilha

lin = 1

Do Until EOF(1)
    Line Input #1, valorLin
    Cells(lin, 4).Value = valorLin
    lin = lin + 1
Loop

Close #1

Range("D4:D" & lin - 1).TextToColumns Other:=True 'Intervalo em que é inserido os dados e separando por colunas para o tipo de dado escolhido
Columns().EntireColumn.AutoFit 'Faz o ajuste de colunas para obter a melhor largura

End Sub
Fonte Link
Carregando