Ir ao conteúdo
  • Cadastre-se

Basole

Membro Pleno
  • Total de itens

    1.711
  • Cadastrado em

  • Qualificações

    0%

Reputação

804

Sobre Basole

  • Data de Nascimento 01/02/1974 (47 anos)

Informações gerais

  • Cidade e Estado
    Sao Paulo
  • Sexo
    Masculino
  1. @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
  2. 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.
  3. 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 &
  4. 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
  5. 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
  6. 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
  7. Ja tentou usar a funcao Max ? SELECT MAX(TN) from CHTABLE
  8. @Maria Thereza Morais da uma olhada neste exemplo que postei neste site https://cutt.ly/ljOQZpM
  9. 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\luizj
  10. Neste caso sim
  11. Só passando o mouse não, mas selecionando a célula.
  12. Já tentou usar o comentário da validação de dados ?
  13. Experimente: objEmail.Configuration.Fields.Item_ ("http://schemas.microsoft.com/cdo/configuration/sendpassword")="SuaSenha"
  14. Experimente acrescentar no seu código objEmail.AddAttachment Ex. objEmail.AddAttachment “C:\temp\SeuArquivo.txt”
  15. 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.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Aprenda a ler resistores e capacitores

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!