mateusmarona

Me ajudem, devo ser meio burro, pois não acho o botão de novo tópico,heheheheheh

Muito obrigado! Resolveu! Sabes me dizer como faço para criar ma macro que, se na célula A2 tiver um número e eu escrever a palavra "sim" em B2, a macro faz esta mesma pesquisa pela valor em A2 e lança o "sim" na coluna O , na linha correspondente ao número escrito em A2?

Bom dia! Não estou conseguindo entende como faço para criar novo tópico,por isso respondo por este. Estou precisando de uma macro de pesquisa que procure um valor "não exato" na planilha "Entregas" - range ("A:U"), pode ser uma palavra chave ou parte de uma palavra. A macro que tenho hoje já faz a primeira parte,ou seja, ela encontra o valor, se houver alguma correspondência. Porém se a macro não encontra nenhuma correspondência, ela dá erro. Gostaria que fosse feita uma correção na mesma e que isto gerasse uma mensagem de "valor não encontrado". Segue macro abaixo: Sub PesquisaNotaFiscalemEntregas() Dim Procurar As String Dim localizado, EndPrimeiroItem Application.ScreenUpdating = False Procurar = InputBox("Digite a Nota Fiscal procurada", "Localizar Registro de Agendamento") If Procurar = "" Then Exit Sub Sheets("Entregas").Select With Sheets("Entregas").Range("a:u") Set localizado = .Find(Procurar, LookIn:=xlValues, LookAt:=xlPart) localizado.Offset(0, 0).Select End With End Sub Valeu! Fico no aguardo.

Bom dia, Zinho. Muito obrigado pelo retorno, sua fórmula funcionou. Porém ainda estou com dificuldade de desenvolver a macro para envio de email, mesmo vendo pelo seu link. Podes tentar me ajudar? os endereços de e-mail para envio vão estar na aba ENVIO , célula I1. a planilha para ser colada no corpo do email fica no range A:H.

Prezados, realmente gostaria que alguém tentasse me ajudar neste ponto. É um caso bem urgente. Desde já agradeço àqueles que visualizaram.

Bom dia! Estou retomando este tópico pois preciso de ajuda e não estou conseguindo encontrar a opção de criar novo tópico, por mais besta que pareça, hehehe... Preciso desenvolver uma macro que faça a seguinte função: A aba "DBI 971" consta um relatório de pedidos em trânsito, que compreende o range A1 até o H e a quantidade de linhas varia de acordo com o dia. Na coluna E, consta o código de cada Transportadora responsável por cada entrega. Preciso que a macro possua uma caixa de texto para que eu escolha a transportadora pelo número, e assim que eu der OK, a macro filtre o relatório pelo código escolhido e envie um email automático contendo um texto padrão, um assunto padrão que mude a data de acordo com o dia do envio, cole o relatório no email, e mande este email para uma lista específica de emails cadastrados de acordo com o código da transportadora que consta em outra aba. Exemplo do email: _______________________________________________________________________________________ ASSUNTO: ENTREGAS EM ATRASO - __/___/____ (data muda de acordo com o dia) EMAIL: Prezados (as), Segue abaixo relatório de Notas Fiscais que ainda constam como pendentes de entrega na data de hoje. COLAR AQUI O RELATÓRIO (MANTENDO FORMATAÇÃO) Favor detalhar informações na coluna "H - Transportadora" (negrito e itálico). Caso alguma destas Notas Fiscais já esteja entregue, favor enviar EDI de entrega para [email protected] Conto com sua compreensão. Aguardo retorno. Atenciosamente, Distribuidora Memphis Ltda Transportes _________________________________________________________________________________________________________ Segue relatório em anexo. teste.xlsx

Márcio, no arquivo que você rodou, quantas vezes estas notas aparecem? No meu elas aparecem, mas veja se na mesma quantidade que da minha. ANEXO

Sim, elas importaram.

Na verdade eu não fiz nada, ela rodou certinho.

Márcio, bom dia! O arquivo importou sem erros, porém com diferença na quantidade de linhas. veja no anexo, por favor.

Márcio, boa tarde. Serve sim, importou direitinho, porém gostaria que verificasse a possibilidade de adicionar uma informação que consta nos arquivos txt, porém não foram consideradas. A coluna CIA representa cada unidade de faturamento da empresa, sendo assim, cada arquivo importado tem uma CIA específica para as notas fiscais. que o arquivo txt tem uma informação bem no início, que é a Companhia. Seria importante que a macro considerasse este dado para cada txt importado. Ou seja, se em um dos arquivos tiver a Companhia 807, a coluna C da aba Importação deve preencher todas as notas com este dado. Desde já agradeço muito pelo help, tá ficando show... Márcio, um detalhe. Ao rodar um txt com número alto de linhas, 150.000, a macro deu erro. Veja se consegue descobrir do que se trata. 808.rar

Boa tarde, Basole. O número grifado em vermelho é o número de linhas do TXT, e ele aparece várias vezes na macro, tanto que quando quero rodá-la eu substituo todos os números que determinam o máximo de linhas por um maior ou menor, dependendo do arquivo gerado. O que eu precisava é que a macro rodasse e fizesse todas suas ações, porém sem limitar o range, de maneira a macro poder identifica sozinha o número máximo de linhas, tornando ela automática. E eu não posso rodar ela no Access porque toda a empresa utiliza este relatório e eu não posso mudar seu formato, eu apenas quero um meio de torná-la mais inteligente e fluida.

Boa tarde. Na verdade este TXT é gerado automaticamente do meu sistema, não temos como modificar nada.

Márcio, o formato da planilha anexa será sempre o mesmo, pois ele é a base para outros relatórios da empresa. Na verdade, eu preciso de todos os dados da planilha, até a coluna Z, mas eles não mudam de posição nunca. Se precisares de mais alguma informação, é só pedir. Obrigado.

Bom dia. Obrigado pelo retorno. Segue em anexo o arquivo txt e o resultado da macro em Excel. Cada CIA representa um CNPJ de faturamento, sendo assim preciso extrair um txt para cada, e o número de linhas depende do volume de faturamento. Na CIA801, geralmente o txt retorna em torno de 15000 linhas, porém tenho outras CIAD que geram até 100.000 linhas. Para não ficar ajustando manualmente e perdendo tempo, seria ótimo se a macro fosse realmente mais enxuta e identificasse sozinho a quantidade de linhas que serão utilizadas. Desde já agradeço, espero que consigam me ajudar. 801.txt 801.rar

Bom dia. Preciso corrigir a macro abaixo, tornando o range ilimitado, ou melhor, fazendo com que a macro não limite o range a ser utilizado, pois sempre que preciso rodar ela tenho que definir qual a última linha que quero, e isto acaba me impedindo de tornar esta macro realmente prática. Realmente agradeço a quem puder ajudar. Segue: Sub CIA_801() ChDir "C:\users\mateus\Desktop\Eficiência de entregas" Workbooks.OpenText Filename:= _ "C:\users\mateus\Desktop\Eficiência de entregas\801.txt", Origin:= _ xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _ 4), Array(10, 1), Array(11, 1), Array(20, 1), Array(21, 1), Array(30, 1), Array(51, 1), _ Array(52, 1), Array(55, 1), Array(56, 1), Array(58, 1), Array(59, 1), Array(84, 1), Array( _ 85, 4), Array(95, 1), Array(101, 1), Array(102, 4), Array(112, 1), Array(118, 1), Array(119 _ , 1), Array(123, 1), Array(144, 1), Array(145, 4), Array(155, 1), Array(156, 1), Array(162, _ 1), Array(163, 1), Array(171, 1), Array(172, 4), Array(182, 1), Array(188, 1), Array(189, 2 _ )), TrailingMinusNumbers:=True Cells.Select With Selection.Font .Name = "Calibri" .Size = 9 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontMinor End With Range("A1").Select ActiveCell.FormulaR1C1 = "Data Emissão" Range("C1").Select ActiveCell.FormulaR1C1 = "NF" Range("E1").Select ActiveCell.FormulaR1C1 = "PN" Range("F1").Select ActiveCell.FormulaR1C1 = "Cliente" Range("H1").Select ActiveCell.FormulaR1C1 = "Orig" Range("J1").Select ActiveCell.FormulaR1C1 = "Dest" Range("L1").Select ActiveCell.FormulaR1C1 = "Cidade" Range("N1").Select ActiveCell.FormulaR1C1 = "Data Import" Range("Q1").Select ActiveCell.FormulaR1C1 = "Data OC" Range("T1").Select ActiveCell.FormulaR1C1 = "Cód OC" Range("U1").Select ActiveCell.FormulaR1C1 = "Descrição da Ocorrência" Range("W1").Select ActiveCell.FormulaR1C1 = "Previsão Entrega" Range("Y1").Select ActiveCell.FormulaR1C1 = "Prazo Padrão" Range("AA1").Select ActiveCell.FormulaR1C1 = "Usuário" Range("AC1").Select ActiveCell.FormulaR1C1 = "Data Acordada" Range("AF1").Select ActiveCell.FormulaR1C1 = "Texto" Range("B:B,D:D,G:G,I:I,K:K,M:M,O:O,P:P,R:R,S:S,V:V").Select Range("V1").Activate ActiveWindow.SmallScroll ToRight:=8 Range("B:B,D:D,G:G,I:I,K:K,M:M,O:O,P:P,R:R,S:S,V:V,X:X,Z:Z,AB:AB").Select Range("AB1").Activate ActiveWindow.SmallScroll ToRight:=7 Range("B:B,D:D,G:G,I:I,K:K,M:M,O:O,P:P,R:R,S:S,V:V,X:X,Z:Z,AB:AB,AD:AD,AE:AE"). _ Select Range("AE1").Activate Selection.Delete Shift:=xlToLeft Columns("A:A").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("A1").Select ActiveCell.FormulaR1C1 = "Cia" Range("A2").Select ActiveCell.FormulaR1C1 = "=IF(ISNUMBER(RC[7]),RC[7],R[-1]C)" Range("A2").Select Selection.AutoFill Destination:=Range("A2:A65000"), Type:=xlFillDefault Range("A2:A85000").Select Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select Application.CutCopyMode = False Columns("B:B").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("A1").Select ActiveCell.FormulaR1C1 = "Dpto" Range("B1").Select ActiveCell.FormulaR1C1 = "Cia" Range("B2").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-1],'[Eficiência de Entregas.xlsm]Dpto'!C1:C3,3,FALSE)),""?"",VLOOKUP(RC[-1],'[Eficiência de Entregas.xlsm]Dpto'!C1:C3,3,FALSE))" Range("B2").Select Selection.AutoFill Destination:=Range("B2:B85000"), Type:=xlFillDefault Range("B2:B85000").Select Columns("C:C").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("C1").Select ActiveCell.FormulaR1C1 = "NF" Range("C2").Select ActiveCell.FormulaR1C1 = "=IF(ISNUMBER(RC[2]),RC[2],R[-1]C)" Range("C2").Select Selection.AutoFill Destination:=Range("C2:C85000"), Type:=xlFillDefault Range("C2:C85000").Select Columns("A:A").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("A1").Select ActiveCell.FormulaR1C1 = "Linha" Range("A2").Select ActiveCell.FormulaR1C1 = "1" Range("A3").Select ActiveCell.FormulaR1C1 = "2" Range("A2:A3").Select Selection.AutoFill Destination:=Range("A2:A85000"), Type:=xlFillDefault Range("A2:A85000").Select Columns("B:B").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("B1").Select ActiveCell.FormulaR1C1 = "Linha Real" Range("B2").Select ActiveCell.FormulaR1C1 = "=IF(ISNUMBER(RC[5]),RC[-1],9999999999)" Range("B2").Select Selection.AutoFill Destination:=Range("B2:B85000"), Type:=xlFillDefault Range("B2:B85000").Select Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("A1").Select Columns("F:F").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("F1").Select ActiveCell.FormulaR1C1 = "Emissão" Range("F2").Select ActiveCell.FormulaR1C1 = "=IF(ISNUMBER(RC[1]),RC[1],R[-1]C)" Range("F2").Select Selection.AutoFill Destination:=Range("F2:F85000"), Type:=xlFillDefault Range("F2:F85000").Select Columns("F:F").Select Selection.NumberFormat = "dd/mm/yy;@" Columns("A:F").Select Range("F1").Activate With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With Columns("S:S").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("S1").Select ActiveCell.FormulaR1C1 = "Previsão Entrega" Range("S2").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNUMBER(RC[-1]),WORKDAY(RC[-13],RC[1],'[Eficiência de Entregas.xlsm]Feriados'!R2C1:R85000C1),"""")" Range("S2").Select Selection.AutoFill Destination:=Range("S2:S85000"), Type:=xlFillDefault Range("S2:S85000").Select Selection.NumberFormat = "dd/mm/yy;@" Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Columns("R:R").Select Selection.Delete Shift:=xlToLeft Range("R1").Select Columns("F:F").Select Selection.Cut Columns("E:E").Select Selection.Insert Shift:=xlToRight Columns("G:G").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("G1").Select ActiveCell.FormulaR1C1 = "PN" Range("H1").Select ActiveCell.FormulaR1C1 = "Cliente" Range("I1").Select ActiveCell.FormulaR1C1 = "Orig" Range("J1").Select ActiveCell.FormulaR1C1 = "Dest" Range("K1").Select ActiveCell.FormulaR1C1 = "Cidade" Range("G2").Select ActiveCell.FormulaR1C1 = "=IF(ISNUMBER(RC[5]),RC[7],R[-1]C)" Range("H2").Select ActiveCell.FormulaR1C1 = "=IF(ISNUMBER(RC[4]),RC[7],R[-1]C)" Range("I2").Select ActiveCell.FormulaR1C1 = "=IF(ISNUMBER(RC[3]),RC[7],R[-1]C)" Range("J2").Select ActiveCell.FormulaR1C1 = "=IF(ISNUMBER(RC[2]),RC[7],R[-1]C)" Range("K2").Select ActiveCell.FormulaR1C1 = "=IF(ISNUMBER(RC[1]),PROPER(RC[7]),R[-1]C)" Range("G2:K2").Select Selection.AutoFill Destination:=Range("G2:K85000"), Type:=xlFillDefault Range("G2:K85000").Select Columns("A:K").Select Range("K1").Activate Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("K1").Select Application.CutCopyMode = False Columns("W:W").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("W1").Select ActiveCell.FormulaR1C1 = "Descrição da Ocorrência" Range("W2").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNUMBER(RC[-2]),VLOOKUP(RC[-2],'[Eficiência de Entregas.xlsm]OCs'!C1:C2,2,FALSE),"""")" Range("W2").Select Selection.AutoFill Destination:=Range("W2:W85000"), Type:=xlFillDefault Range("W2:W85000").Select Columns("W:W").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("V:V").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("V1").Select Columns("W:W").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("W1").Select ActiveCell.FormulaR1C1 = "Finaliza Entrega" Range("W2").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNUMBER(RC[-2]),VLOOKUP(RC[-2],'[Eficiência de Entregas.xlsm]OCs'!C1:C4,4,FALSE),"""")" Range("W2").Select Selection.AutoFill Destination:=Range("W2:W85000"), Type:=xlFillDefault Range("W2:W85000").Select Columns("W:W").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("W1").Select Columns("W:W").EntireColumn.AutoFit Application.CutCopyMode = False Columns("X:X").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("X1").Select ActiveCell.FormulaR1C1 = "Abona Atraso" Range("X2").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNUMBER(RC[-3]),IF(RC[-5]<=RC[1],VLOOKUP(RC[-3],'[Eficiência de Entregas.xlsm]OCs'!C1:C4,3,FALSE),""Não""),"""")" Range("X2").Select Selection.AutoFill Destination:=Range("X2:X85000"), Type:=xlFillDefault Range("X2:X85000").Select Columns("X:X").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("X1").Select Columns("D:D").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("D1").Select ActiveCell.FormulaR1C1 = "Cia+NF" Range("D2").Select ActiveCell.FormulaR1C1 = "=RC[1]&""-""&RC[3]" Range("D2").Select Selection.AutoFill Destination:=Range("D2:D85000"), Type:=xlFillDefault Range("D2:D85000").Select Columns("D:D").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWindow.SmallScroll ToRight:=3 Columns("AD:AD").Select Application.CutCopyMode = False Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("AD1").Select ActiveCell.FormulaR1C1 = "Texto" Range("AD2").Select ActiveCell.FormulaR1C1 = "=IF(R[-1]C[-26]=RC[-26],R[-1]C&"" ""&RC[1],RC[1])" Range("AD2").Select Selection.AutoFill Destination:=Range("AD2:AD85000"), Type:=xlFillDefault Range("AD2:AD85000").Select Columns("AD:AD").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("AD:AD").Select Application.CutCopyMode = False Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("AD1").Select ActiveCell.FormulaR1C1 = "Fim" Range("AD2").Select ActiveCell.FormulaR1C1 = "=IF(R[1]C[-26]<>RC[-26],""Fim do Texto"","""")" Range("AD2").Select Selection.AutoFill Destination:=Range("AD2:AD85000"), Type:=xlFillDefault Range("AD2:AD85000").Select Columns("AD:AD").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("AD1").Select Columns("E:E").Select Application.CutCopyMode = False Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("E1").Select ActiveCell.FormulaR1C1 = "Cia+NF+Fim do Texto" Range("E2").Select ActiveCell.FormulaR1C1 = _ "=IF(RC[26]=""Fim do Texto"",RC[-1]&""-""&RC[26],"""")" Range("E2").Select Selection.AutoFill Destination:=Range("E2:E85000"), Type:=xlFillDefault Range("E2:E85000").Select Columns("E:E").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E1").Select ActiveWindow.SmallScroll ToRight:=12 Range("AE1").Select Application.CutCopyMode = False Columns("AF:AF").Select Selection.Replace What:= _ "--------------------------------------------------- --------------------------------------------------- Texto ---------------------------------------------------" _ , Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _ False, SearchFormat:=False, ReplaceFormat:=False Selection.Replace What:=" ", Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:=" ", Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:=" ", Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:=" ", Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:=" ", Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:=" ", Replacement:=" ", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Columns("AF:AF").Select Range("AF16").Activate Selection.Replace What:= _ "--------------------------------------------------- ---------------------------------------------------" _ , Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _ False, SearchFormat:=False, ReplaceFormat:=False Selection.Replace What:="---------------------------------------------------" _ , Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _ False, SearchFormat:=False, ReplaceFormat:=False Columns("AF:AF").Select Selection.Replace What:="0 Texto", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:=" Texto", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Columns("AF:AF").Select Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Range("AF1").Select'EXCLUSÃO DAS COLUNAS FINAIS Columns("AC:AC").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("AC1").Select ActiveCell.FormulaR1C1 = "Texto" Range("AC2").Select ActiveCell.FormulaR1C1 = _ "=IF(RC[-5]=""OCORRENCIA MANUAL"",IF(IF(ISNA(VLOOKUP(RC[-25]&""-Fim do Texto"",C[-24]:C[4],29,FALSE)),"""",VLOOKUP(RC[-25]&""-Fim do Texto"",C[-24]:C[4],29,FALSE))=0,"""",IF(ISNA(VLOOKUP(RC[-25]&""-Fim do Texto"",C[-24]:C[4],29,FALSE)),"""",VLOOKUP(RC[-25]&""-Fim do Texto"",C[-24]:C[4],29,FALSE))),"""")" Range("AC2").Select Selection.AutoFill Destination:=Range("AC2:AC85000"), Type:=xlFillDefault Range("AC2:AC85000").Select Columns("AC:AC").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Cells.Select Range("M1").Activate Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("AD1").Select Application.CutCopyMode = False Columns("AD:AK").Select Selection.Delete Shift:=xlToLeft Range("AC1").Select' CHECA SE FINALIZA ENTREGA/ABONA ATRASO? Columns("G:G").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("G1").Select ActiveCell.FormulaR1C1 = "Cia+NF+Entregue?" Range("G2").Select ActiveCell.FormulaR1C1 = "=IF(RC[19]=""Sim"",RC[-3]&""-""&RC[19],"""")" Range("G2").Select Selection.AutoFill Destination:=Range("G2:G85000"), Type:=xlFillDefault Range("G2:G85000").Select Columns("G:G").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Columns("H:H").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("H1").Select ActiveCell.FormulaR1C1 = "Cia+NF+Abona?" Range("H2").Select ActiveCell.FormulaR1C1 = "=IF(RC[20]=""Sim"",RC[-4]&""-""&RC[20],"""")" Range("H2").Select Selection.AutoFill Destination:=Range("H2:H85000"), Type:=xlFillDefault Range("H2:H85000").Select Columns("H:H").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("H1").Select Application.CutCopyMode = False'EXCLUSÃO DE DADOS Columns("P:V").Select Selection.Delete Shift:=xlToLeft Columns("I:O").Select With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Range("A1:X1").Select With Selection.Interior .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -0.149998474074526 .PatternTintAndShade = 0 End With Range("I1").Select'REFAZER CHAVE DE BUSCA P/TEXTOS Range("E2").Select ActiveCell.FormulaR1C1 = _ "=IF(RC[14]=""OCORRENCIA MANUAL"",RC[-1]&""-Texto"","""")" Range("E2").Select Selection.AutoFill Destination:=Range("E2:E85000"), Type:=xlFillDefault Range("E2:E85000").Select Columns("E:E").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E1").Select Application.CutCopyMode = False Range("E1").Select ActiveCell.FormulaR1C1 = "Cia+NF+Texto"'FILTRO AVANÇADO E FORMATAÇÃO Columns("A:X").Select Range("A1:X85000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ Workbooks("Eficiência de Entregas.xlsm").Sheets("Filtro").Range("A1:A2"), _ CopyToRange:=Range("AA1"), Unique:=True Columns("A:Z").Select Selection.Delete Shift:=xlToLeft Columns("A:H").Select With Selection .HorizontalAlignment = xlLeft .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("I:I,P:P,Q:Q").Select Range("Q1").Activate Range("I:I,P:P,Q:Q,V:V").Select Range("V1").Activate Selection.NumberFormat = "dd/mm/yy;@" With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Cells.Select Range("H1").Activate With Selection .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("J:L,X:X,S:S,O:O").Select Range("O1").Activate With Selection .HorizontalAlignment = xlLeft .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("M:N,P:Q,T:U").Select Range("T1").Activate With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Columns("W:W").Select With Selection .HorizontalAlignment = xlLeft .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Rows("1:1").Select Range("H1").Activate With Selection .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.RowHeight = 27.5 Columns("A:X").Select Range("X1").Activate Columns("A:X").EntireColumn.AutoFit Range("L1").Select Columns("O:O").ColumnWidth = 12 Columns("S:S").ColumnWidth = 20 Columns("X:X").Select Selection.ColumnWidth = 25 Selection.ColumnWidth = 45 Range("X1").Select Range("A2").Select ActiveWindow.FreezePanes = True ActiveWindow.DisplayGridlines = False Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "$1:$1" .PrintTitleColumns = "" End With Application.PrintCommunication = True ActiveSheet.PageSetup.PrintArea = "$I$1:$X$888888" Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.393700787401575) .RightMargin = Application.InchesToPoints(0.393700787401575) .TopMargin = Application.InchesToPoints(0.393700787401575) .BottomMargin = Application.InchesToPoints(0.393700787401575) .HeaderMargin = Application.InchesToPoints(0.393700787401575) .FooterMargin = Application.InchesToPoints(0.393700787401575) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = True .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 18888 .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True .EvenPage.LeftHeader.Text = "" .EvenPage.CenterHeader.Text = "" .EvenPage.RightHeader.Text = "" .EvenPage.LeftFooter.Text = "" .EvenPage.CenterFooter.Text = "" .EvenPage.RightFooter.Text = "" .FirstPage.LeftHeader.Text = "" .FirstPage.CenterHeader.Text = "" .FirstPage.RightHeader.Text = "" .FirstPage.LeftFooter.Text = "" .FirstPage.CenterFooter.Text = "" .FirstPage.RightFooter.Text = "" End With Application.PrintCommunication = True Range("I2").Select Columns("A:H").Select Selection.EntireColumn.Hidden = True Range("I1").Select'GERAR A ABA GERENCIAL Sheets("801").Select Sheets("801").Name = "801-COMPLETO" Sheets("801-COMPLETO").Select Sheets("801-COMPLETO").Copy Before:=Sheets(1) Sheets("801-COMPLETO (2)").Select Sheets("801-COMPLETO (2)").Move After:=Sheets(2) Sheets("801-COMPLETO (2)").Select Sheets("801-COMPLETO (2)").Name = "801-GERENCIAL" Cells.Select Selection.EntireColumn.Hidden = False Columns("A:X").Select ActiveSheet.Range("$A$1:$X$85000").RemoveDuplicates Columns:=4, Header:= _ xlYes Columns("A:C").Select Selection.Delete Shift:=xlToLeft Columns("B:E").Select Selection.Delete Shift:=xlToLeft Range("A1").Select'FAZE FINAL DA ABA GERENCIAL Range("I1").Select ActiveCell.FormulaR1C1 = "Data Entrega" Range("I2").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-8]&""-Sim"",'801-COMPLETO'!C[-2]:C[8],11,FALSE)),""Pendente"",VLOOKUP(RC[-8]&""-Sim"",'801-COMPLETO'!C[-2]:C[8],11,FALSE))" Range("I2").Select Selection.AutoFill Destination:=Range("I2:I85000"), Type:=xlFillDefault Range("I2:I85000").Select Columns("I:I").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("J1").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "Abona Atraso?" Range("J2").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-9]&""-Sim"",'801-COMPLETO'!C[-2]:C[7],10,FALSE)),""Não"",""Sim"")" Range("J2").Select Selection.AutoFill Destination:=Range("J2:J85000"), Type:=xlFillDefault Range("J2:J85000").Select Range("K1").Select ActiveCell.FormulaR1C1 = "Data do Abono" Range("K2").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-10]&""-Sim"",'801-COMPLETO'!C[-3]:C[6],10,FALSE)),""n/a"",VLOOKUP(RC[-10]&""-Sim"",'801-COMPLETO'!C[-3]:C[6],10,FALSE))" Range("K2").Select Selection.AutoFill Destination:=Range("K2:K85000"), Type:=xlFillDefault Range("K2:K85000").Select Columns("I:K").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("L:N").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("N2").Select ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-13]&""-Texto"",'801-COMPLETO'!C[-9]:C[10],20,FALSE)),"""",VLOOKUP(RC[-13]&""-Texto"",'801-COMPLETO'!C[-9]:C[10],20,FALSE))" Range("N2").Select Selection.AutoFill Destination:=Range("N2:N85000"), Type:=xlFillDefault Range("N2:N85000").Select Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Columns("A:A").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("A1").Select'EXCLUSÃO FINAL Columns("H:K").Select Selection.ColumnWidth = 8 Selection.NumberFormat = "dd/mm/yy;@" With Selection .HorizontalAlignment = xlGeneral .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Selection .HorizontalAlignment = xlCenter .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Columns("A:M").Select Range("A1:M85000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ Workbooks("Eficiência de Entregas.xlsm").Sheets("Filtro").Range("B1:B2"), _ CopyToRange:=Range("Z1"), Unique:=False Columns("A:M").Select Selection.Copy Columns("Z:AL").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Columns("A:Y").Select Selection.Delete Shift:=xlToLeft Range("A1").SelectEnd Sub Abraço

Boa noite. Estou reabrindo este tópico para tirar uma dúvida quanto a macro acima. Nela, sempre menciono um range específico que vai de A2 até B20000, porém, com posso fazer se eu não sei a célula final e gostaria que a macro verificasse??

Boa noite. Estou num grande dilema. Tenho um relatório que preciso rodar uma vez por semana, via excel. Os dados extraídos do sistema em formato txt, e importados e organizados em uma planilha por meio de uma macro gigante. Estes arquivos txt variam no número de linhas toda vez que preciso rodar o relatório, e geralmente preciso acessar a macro e alterar o range manualmente. Por exemplo, tenho nesta macro diversas vezes o número 15.000, que neste caso é o limite máximo de linhas utilizado de range, ("A2:A15000"), então eu substituo o 15000 (300 resultados na macro) pelo número de linhas resultantes no txt, que pode ser até 120.000 linhas. O problema é que, para a macro rodar mais leve, preciso fazer esta alteração 5 vezes, pois extraio 5 txts diferentes. Existe um meio de uma macro acessar esta macro e me permitir alterar o range, através de caixa de texto para eu informar o número que eu quero, ou a macro procurar pelo número de linhas necessárias, evitando o trabalho manual? Posso postar o código aqui depois, mas se alguém souber de um jeito. Tentei substituir os ranges sempre pelo equivalente Range("__:__" & LastRow), mas dá erro de sintaxe. Podem me ajudar?

Boa noite. Estou com uma dificuldade e gostaria de ajuda. Tenho uma planilha que uso como um Romaneio, onde digito as Notas fiscais que serão entregues ao motorista. Porém, gostaria de utilizar este romaneio como padrão, e sempre após digitar os números de notas, rodar uma macro que copie estes dados e cole eles como valores em outra pasta do excel, porém, sempre abaixo da ultima linha que estiver preenchida, ou seja, na primeira linha vazia, pois haverá numeros de notas fiscais importadas a todo momento, e não posso substituir, pois preciso que a lista de notas digitadas no dia esteja completa no final. Espero que possam me ajudar Abração

Valeu, cara.. salvou minha vida, pelo menos por agora..hehe, este é um trabalho muito importante para mim.... Me diz uma coisa, aproveitando. É possível inserir uma Msg box no ínicio que pergunte: Confirma Importação de Dados: SIM NÃO MUITO OBRIGADO...

OSVALDO, ficou perfeito, muito obrigado.. Um detalhe... Quando a macro tenta fechar o arquivo saldoemestoque, ele pergunta se eu quero manter os dados na área de transferência, e eu tenho que clicar NÃO. Tem como a macro fazer isto automático? Para que a planilha feche sozinha? Agradeço muito pela força e ajuda tão rápída...

Na verdade não ajuda muito, pois achei diferente a ideia, mas agradeço. Eu preciso que a macro abra o arquivo saldoemestoque.xls, copie os valores contidos entre A2:B20000 da plan1 e cole especial valores em A2:B20000 na plan 2 do arquivo empresa.xlsm. É Possível? Se tiver um código que ajude... Abraço

Boa noite à todos. Sou novato no fórum e em macros VBA e MUITO NECESSITADO de ajuda... Estou trabalhando numa grande empresa e preciso desenvolver um novo modelo de análise de demanda X saldos de itens. MUITO IMPORTANTE PARA MINHA CARREIRA.. Existe uma planilha na rede que atualiza os saldos em estoque através de um Transfer .dtf, onde na coluna A estão os produtos e na B o saldo; Eu elaborei uma planilha onde constam todos os produtos, e criei uma macro que importa os dados desta planilha da rede. Porém, preciso que ao invés de copiar as células e colar, a macro copie e cole somente os valores. Segue meu código abaixo: Sub ImportarDados() Dim wsOrigem As Worksheet Dim wsDestino As Worksheet Workbooks.Open Filename:="C:\Documents and Settings\ms606184\Desktop\saldoemestoque.xls" Set wsOrigem = Workbooks("saldoemestoque.xls").Worksheets("Sheet1") Set wsDestino = Workbooks("empresa.xlsm").Worksheets("Sheet2") With wsOrigem Range("A2:B20000").Copy Destination:=wsDestino.Range("A2:B20000") End With Workbooks("saldoemestoque.xls").Close SaveChanges:=True MsgBox "Importação de Dados Concluída" End Sub Preciso dela em valores, pois utilizo a seguinte fórmula para jogar os saldos para os produtos, gerando saldo ZERO para os itens que não aparecem na lista: =IF(ISNA(VLOOKUP(B6;Sheet2!$A$2:$B$20000;2;FALSE));0;VLOOKUP(B6;Sheet2!$A$2:$B$20000;2;FALSE)) AGRADEÇO MUITO SE ME AJUDAREM, MESMO.. Obrigado já.. Abração