luizdeath

Olá, Tenho uma planilha em excel com datas onde preciso fazer uma busca em outra e que me retorne a data mais próxima. Ex. Tenho a data de 06/03 que precisa ser buscada na base "Data gerador" e caso ele não ache a data exata ele irá buscar a mais próxima, nesse caso retornaria a data de 07/03. Uma outra regra importante é que essa data tem que ser sempre maior a data do documento, ou seja, ele não poderia me retornar o valor de 05/03.

Opa, @AfonsoMira Coluna B

Pessoal, Estou com um problema ao abrir um arquivo XLS via VBA (Código abaixo), onde a coluna com a data fica formatada no modelo EUA (MM/DD/AA), alguém sabe o que posso fazer para ajustar isso? Dim Pasta As String Pasta = ThisWorkbook.Path Workbooks.Open Filename:=Pasta & "\" & "Abs.xls" Range("A2:AH10000").Copy Workbooks("Ajuste.xlsm").Activate Quando ele abre o arquivo XLS perde a formatação acaba colando errado na outra planilha

Deu certo, muito obrigado pela ajuda pessoal. aos poucos vou aprendendo mais.

Desculpe, mas não consegui entender ainda, não tenho muito noção do Loop e nem da variavel Dim. Abaixo está o codigo que estou usando para fazer a copia: Uma solução que encontrei, foi copiar esse codigo varias vezes até chegar na ultima planilha, mas estava querendo aprender a usar o Loop Sub Copiar_Abas() Windows("DescricaoRoteiros.xlsx").Activate Sheets("Folha2").Select Range("A21").Select ActiveCell.FormulaR1C1 = "=R19C2" Range("A21").Value = Range("A21").Value Range("A21").Select Selection.Copy Range("B21:H21").Select Selection.End(xlDown).Select ActiveCell.Offset(0, -1).Select Range(Selection, Selection.End(xlUp)).Select Range("A21:U5000").Select Selection.Copy Windows("Atendimento Roteiro.xlsx").Activate Sheets("Base").Select Range("A1048576").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select ActiveSheet.Paste End Sub

Muito obrigado pela resposta, mas ainda fiquei com uma duvida. Realmente ele está fazendo um Loop, porém está sempre copiando da mesma planilha, como faço para ele pular para a próxima planilha Ele está sempre copiando da Plan1, eu precisaria que depois de copiar da Plan1 ele copiasse da Plan2 e assim por diante.

Pessoal, Hoje tenho uma planilha com varias abas (esse numero varia), e gostaria de saber como usar um loop para ele ir copiando cada aba e colando em outra planilha. Sei fazer copiando uma a uma, mas como em alguns casos tem cerca de 20/30 abas, o código fica muito grande e repetitivo, sei que posso usar loop para ele fazer isso, mas não tenho muito conhecimento com loop (na verdade nenhum rsrs). Um exemplo do do que preciso: Excel 1 (base) - com 15 abas com a mesma formatação Excel 2 - uma aba consolidada com as 15 abas do Excel 1. Copiar Plan1 do Excel 1 e copiar na aba Plan 1 do Excel 2 Copiar Plan2 do Excel 1 e copiar na aba Plan 1 do Excel 2.... Seguir até a ultima Plan do Excel 1... Obrigado.

Desculpa pela demora na resposta, mas só consegui ver hoje. você é o cara, muito bom, perfeito era isso mesmo. Muito obrigado.

Exemplo 1: Usuário irá digitar a cidade "SP - Campinas" Nesse caso não será solicitado nenhuma informação adicional Com isso seria calculado um Procv com base na cidade "SP - Campinas" Exemplo 2: Usuário digitar a cidade "MG - Contagem" Abriria um Pop UP solicitando um Código Com isso seria calculado um Procv com base no código que foi informado no Pop Up MG teste.7z

Olá, Tenho uma planilha com as seguintes informações: Cidade/Estado: Que é uma lista com algumas cidades e estados concatenados com esse formato exemplo "MG - Betim") Código: Esse é um campo não obrigatório em alguns casos (apenas deve ser informado caso seja alguma cidade do estado de MG) Mês: Lista com o Mês/Ano O que queria fazer é, quando o usuário colocar alguma cidade do estado de MG o Excel abrir automaticamente um Pop UP (Quando for outro estado o Pop UP não será aberto) solicitando a digitação do código, e o código que foi preenchido no Pop UP seja inserido no campo código para o calculo necessário. Obrigado.

olá, Pessoal, tinha um desktop que pifou porém o HD está está funcionando normalmente, comprei um case 3,5 e estou tentando transferir os arquivos que estavam no hd do desktop para um notebook, porém ao tentar acessar a pasta user/xxxxx, para copiar as pastas que estavam na area de trabalho não estou conseguindo, aparece acesso negado, todas as outras pastas consigo acessar normalmente. alguem sabe como consigo configurar para conseguir acessar essa pasta.

Basole. Parece que funcionou, muito obrigado.

Bom dia, Tenho uma macro que deve ser executada as 00h todos os dias e dou start nela por volta das 18h, porém nesse meio tempo o meu PC está entrando em tela de descanso ou proteção de tela e com isso alguns sendkeys que tem na macro não funciona. Já tentei desativar a proteção e o bloqueio no windows, porém como o PC é empresarial ele volta para a configuração básica toda a noite, após 15 min ele entra em proteção de tela. Tentei usar algumas funções, tipo sendkeys para esquerda e para direita, mas mesmo assim o PC entra em proteção de tela. ps. não precisa ser exatamente um macro, se existir alguma "gambiarra" que resolva o problema do bloqueio já ajuda rsrs... Segue codigo que estou usando: Sub ssss() Dim Hora As Date Application.ScreenUpdating = False Do Hora = (Format(TimeValue(Now), "hh:mm:ss")) Range("A1").Select If Hora > TimeValue("23:59:30") And Hora < TimeValue("23:59:59") Then Call EXEC Exit Do Else ActiveCell.Offset(0, 1).Select 'aqui tentei usar o mover para esquerda para tentar não bloquear o PC End If Loop Application.ScreenUpdating = True End Sub

Pessoal, estou usando uma macro para abrir uma planilha XLS, porém quando abre a planilha a unidade separadora decimal altera de , virgula para . ponto, assim alguns numeros ficam formatados como texto e os que ficam como numero o valor fica errado. Quando abro manualmente o arquivo ele abre com os separadores decimais corretos. Quando abro manualmente abre dessa forma 4,00 960,00 32.880,00 Quando abro através da macro abre com essa configuração 4.000 << transformou 4 em 4 mil 960.000 << transformou 960 em 960 mil 32.880,000 << Não alterou, porém está sendo considerado como texto Segue código que estou usando Sub Macro1() 'Abrir Arquivo Workbooks.Open Filename:= _ "\local\plan.xls" Windows("plan.xls").Activate ' End Sub

Estou tentando abrir um arquivo CSV através de macro, porém ele abre desconfigurado, porém quando abro manualmente o arquivo abre normal. Tem como abrir através de macro arquivos CSV já delimitados? Segue código utilizado: Sub Abrir() Workbooks.Open Filename:="\\...local...\*.csv" _ End Sub