Basole

@Raquel Coelho Tem que "zipar" o arquivo com a extensão original, para poder anexar aqui.

@Raquel Coelhosim até posso tentar lhe ajudar, mas o ideal é disponibilizar a planilha ou um exemplo simples que referência o intervalo do seu arquivo original.

Experimente acrescentar os pontos no inicio das linhas que contem : Cells..

@xcoconx infelizmente este arquivo estava em um PC antigo, e nao esta mais disponivel. Veja se este exemplo abaixo possa adaptar e lhe atender nesta demanda. userformbuttons.rar

Experimente declarar a variavel sUFile, fora das subs, no topo do modulo: Public sUFile As String ' (* Retire esta variavel da Sub, para nao dar erros.) Desta forma o valor da variavel permancerá na variavel, quando for fechar o arquivo.

Experimente retirar da funcao o trecho no codigo que procura por uma imagem existente. Public Function getImage(ByVal sCode As String) As String Dim sFile As String Dim oSheet As Worksheet Dim oCell As Range Dim oImage As Shape Set oCell = Application.Caller ' Célula onde a função foi chamada Set oSheet = oCell.Parent ' Planilha que chamou a função ' Se ainda não existir uma imagem com o código, carrega do arquivo e cria-a. ' A imagem já é posicionada na exata posição da célula onde a função foi chamada. If oImage Is Nothing Then sFile = "c:\temp\sopt\" & sCode & ".jpg" Set oImage = oSheet.Shapes.AddPicture(sFile, msoCTrue, msoCTrue, oCell.Left, oCell.Top, oCell.Width, oCell.Height) oImage.Name = sCode ' Caso contrário, se a imagem já existir, garante que ela se posiciona e cabe exatamente dentro da célula ' (apenas para o caso do usuário ter movido ou redimensionado manualmente a imagem sem querer) Else With oImage .Left = oCell.Left .Top = oCell.Top .Width = oCell.Width .Height = oCell.Height End With End If ' Retorna nada para a célula (afinal, esta é somente uma função de auxílio) getImage = "" End Function

Minha sugestao e usar o exemplo que postei para verificar o mais recente arquivo. Feito isso, use a rotina abaixo para fechar Application.DisplayAlerts = False Workbooks(sUFile).Close savechanges:=True ' Salva arquivo Application.DisplayAlerts = True

No seu exemplo anterior voce indicou que parte do nome do arquivo tinha: "Hardware Plan_". E agora esta diferente. Altere a linha abaixo no codigo no seu codigo If VBA.Left(sFile, 15) = "Painel Demanda_" Then

Segue sugestao e exemplo para adaptar ao seu cenario e ambiente Sub AbrirArquivoMaisRecente() Dim sFile As String Dim sUFile As String Dim sPath As String Dim dDLmd As Date Dim dUdDate As Date sPath = "C:\Users\Documents\" '*ALTER AQUI O DIRETORIO DOS ARQ.* If VBA.Right(sPath, 1) <> "\" Then sPath = sPath & "\" sFile = VBA.Dir(sPath & "*.xls", VBA.vbNormal) If VBA.Len(sFile) = 0 Then MsgBox "Nenhum arquivo foi encontrado!!!...", 48, "Atencao!!" Exit Sub End If Do While VBA.Len(sFile) > 0 If VBA.Left(sFile, 14) = "Hardware Plan_" Then dDLmd = VBA.FileDateTime(sPath & sFile) If dDLmd > dUdDate Then sUFile = sFile dUdDate = dDLmd End If End If sFile = VBA.Dir Loop If sUFile <> "" Then Workbooks.Open sPath & sUFile End Sub

Ja tentou usar a funcao Max ? SELECT MAX(TN) from CHTABLE

@Maria Thereza Morais da uma olhada neste exemplo que postei neste site https://cutt.ly/ljOQZpM

Aproveitando o exemplo acima, segue as adaptacoes: PROCV_ACCESS( Celula; Numero ) Use os parametros : 1 para retornar a descricao 2 para retornar o valor 3 para retornar a quantidade <code> Function PROCV_ACCESS(rng As Range, Optional Cpf As Single) As String Dim sql As String Dim db As Object Dim rs As Object Dim Path As String Dim s_Placa As String Set db = VBA.CreateObject("ADODB.Connection") Set rs = VBA.CreateObject("ADODB.Recordset") Path = "C:\Users\luizjunior\Documents\BD_placas.accdb" s_Placa = rng.Value2 db.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Path & ";" On Error GoTo trat_err sql = "SELECT * " sql = sql & "FROM [Dados] " sql = sql & "WHERE [PLACA]='" & s_Placa & "'" rs.Open sql, db, 3, 3 If Not rs.EOF Then Select Case Cpf Case Is = 1 PROCV_ACCESS = rs![MOTORISTA] Case Is = 2 PROCV_ACCESS = rs![CPF motorista] Case Is = 3 PROCV_ACCESS = rs![Filial] End Select End If trat_err: db.Close: Set db = Nothing Set rs = Nothing End Function </code>

Neste caso sim

Só passando o mouse não, mas selecionando a célula.

Já tentou usar o comentário da validação de dados ?

Experimente: objEmail.Configuration.Fields.Item_ ("http://schemas.microsoft.com/cdo/configuration/sendpassword")="SuaSenha"

Experimente acrescentar no seu código objEmail.AddAttachment Ex. objEmail.AddAttachment “C:\temp\SeuArquivo.txt”

A minha resposta foi apenas um exemplo para possíveis adaptações. Agora querer que eu tenha bola de cristal pra adivinhar o que você já fez é demais. Post o que você já fez para que o pessoal possa ajudar, adaptar, etc.

Use workbook.add 1 para criar uma nova pasta de trabalho com uma nova aba

Considerado que a hora pesquisada está na célula, Tente formatar o textbox. Ex.: me.textbox1.text = vba.format(celula, "hh:mm:ss")

Tente assim linha=worksheet (pasta).Range("10000").End(xlUp).row

Segue exemplo: Sheets("LOG").Activate Range("B4:H4").Select Selection.Copy Sheets("HISTORICO").Activate Range("B4").Activate ActiveSheet.Paste Application.CutCopyMode = False Range("A1").Activate

Faca um Exemplo bem próximo do arquivo original com dados fictícios e imagens idem.

Nao entendi de onde quer copiar os dados !

@Ismael Souza voce nao pode "çolocar" variaveis entre aspas. Tente alterar isso e testar novamente *Altere esta linha tambem: If Dir(rootPath & "\" & Ano) = "" Then