Tomás Vásquez Fórum

AndersonDorneles

Se bem me lembro, e a estrutura for a mesma; acredito que um If resolva algo +/- assim Do While Not EOF(1) Line Input #1, strLinhaTexto vrTemp = Split(strLinhaTexto, "|") If vrTemp(1) = "C100" Then 'Verifica se o codigo corresponde ao esperado If ExisteSheet(vrTemp(1)) = True Th...

AndersonDorneles

Se bem me lembro, e a estrutura for a mesma; acredito que um If resolva algo +/- assim Do While Not EOF(1) Line Input #1, strLinhaTexto vrTemp = Split(strLinhaTexto, "|") If vrTemp(1) = "C100" Then 'Verifica se o codigo corresponde ao esperado If ExisteSheet(vrTemp(1)) = True Th...

AndersonDorneles

Reinaldo escreveu: ↑Qua Jun 19, 2019 1:38 pm Experimente, teste

Olá bom dia.

Baixei sua planilha, testei e ela resolve meu problema em parte. Com base na sua planilha, como eu faria pra pegar os dados do SPED só do campo C100 ?

DEsde já agradeço

Anderson S. Dorneles

AndersonDorneles

Obrigado. Aguardo retorno. Na verdade tive uma ajuda no desenvolvimento deste código. Porem preciso de um comando para imprimir esta página. Um ctrl + P seria ótimo. Sub Impressão() Application.DisplayAlerts = False Plinha = Plan1.Range("A:A").Find("").Row Ulinha = Plan1.Range(&...

AndersonDorneles

Olá Boa tarde, Trabalho com Auditoria Fiscal e estou criando um complemento no excel para facilitar os meus cruzamentos de informações. Eu estou pegando dados da colula A e comparando com a Coluna B, usei formatação condicional para pintar de vermelho os dados semelhantes, e sobra em branco os dados...

AndersonDorneles

Segue uma rotina que "faz" o que descreve, veja se ocnsegue adaptar a sua realizade Sub Copy_Move_Files_In_Folder() 'Note: If the files in ToPath already exist it will overwrite existing files in this folder Dim FSO As Object Dim FromPath As String, ToPath As String, FileExt As String, sP...

AndersonDorneles

Prezados, boa tarde. Caro AndersonDorneles , tudo bem? Há alguns meses, desenvolvi uma solução parecida com o que precisas: um userform no Excel que permite buscar planilhas (ou outro tipo de arquivos) dentro de detrminado diretório, e lista todos que baterem com o critério de busca. Inclusive, se ...

AndersonDorneles

Olá, Bom dia, Vou explicar o que eu preciso. Tenho uma planilha onde em uma coluna tenho chaves de notas fiscais eletrônicas em uma lista. Do outro lado eu tenho uma pasta com os arquivos .XML das notas, onde o nome do arquivo é a própria chave. Exemplo : 15140107724182000192550010000085701002233345...

AndersonDorneles

Olá, Preciso apagar todas as linhas em branco de um determinado ponto, da linha 4 em diante. Esse código faz isso, mas apaga tudo : Columns("B:B").Select 'Adapte para a coluna que quiser Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Delete Porem eu preciso da linha de...

AndersonDorneles

Olá, Estou montando um relatório, pegando dados de uma planilha (foto anexa 1) e colocando em outra (foto anexa 2), da qual vou salvar em PDF. Esta tudo funcionando perfeitamente, porem não estou conseguindo tabular os dados. código: Private Sub FRS_Enviar_Oficio_OK_Click() Dim lastRow As Long Dim V...

Pesquisa resultou em 21 ocorrências

Re: EXPORTAR TXT EXCEL SPED FISCAL

Re: EXPORTAR TXT EXCEL SPED FISCAL

Re: EXPORTAR TXT EXCEL SPED FISCAL

Re: Interação excel com web e impressão

Excluir linha com base em formatação Condicional !

Re: Macro para selecionar arquivos em uma Pasta !

Re: Macro para selecionar arquivos em uma Pasta !

Macro para selecionar arquivos em uma Pasta !

Apagar linhas em branco a partir de um intervalo

Ajuda com tabulação de Dados