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

20 horas atrás, OreiaG disse:

Veja se ajuda. O código abaixo deve ser colocado em um módulo do arquivo Atendimento Roteiro.

 

Sub DadosConsolidados()
 Dim wsO As Worksheet, wsD As Worksheet, UL As Long
  Set wsD = ThisWorkbook.Sheets("Base")
  For Each wsO In Workbooks("DescricaoRoteiros.xlsx").Worksheets
   wsO.Range("A21").FormulaR1C1 = "=R19C2"
   wsO.Range("A21").Value = wsO.Range("A21").Value
   UL = wsO.Cells(Rows.Count, 1).End(3).Row
   wsO.Range("A21:U" & UL).Copy wsD.Cells(Rows.Count, 1).End(3)(2)
  Next wsO
End Sub

 

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