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.

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