-
Total de itens
1.711 -
Cadastrado em
-
Qualificações
0%
Reputação
804Sobre Basole
- Data de Nascimento 01/02/1974 (47 anos)
Informações gerais
-
Cidade e Estado
Sao Paulo
-
Sexo
Masculino
-
@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
- 8 respostas
- 11.042 visualizações
-
Excel vba abrir arquivo mais atual em pasta de trabalho
Basole respondeu ao tópico de Ismael Souza em Microsoft Office
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.- 8 respostas
- 427 visualizações
-
Excel Repetir a imagem para linhas abaixo - VBA Macro
Basole respondeu ao tópico de DiegoVieira46 em Microsoft Office
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 &- 2 respostas
-
- 1
-
- 265 visualizações
-
Excel vba abrir arquivo mais atual em pasta de trabalho
Basole respondeu ao tópico de Ismael Souza em Microsoft Office
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- 8 respostas
- 427 visualizações
-
Excel vba abrir arquivo mais atual em pasta de trabalho
Basole respondeu ao tópico de Ismael Souza em Microsoft Office
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- 8 respostas
- 427 visualizações
-
Excel vba abrir arquivo mais atual em pasta de trabalho
Basole respondeu ao tópico de Ismael Souza em Microsoft Office
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- 8 respostas
- 427 visualizações
-
Access (Consulta SQL) Resultado incorreto com mais registros.
Basole respondeu ao tópico de Midori em Microsoft Office
Ja tentou usar a funcao Max ? SELECT MAX(TN) from CHTABLE- 3 respostas
- 335 visualizações
-
PowerPoint Jogo no Power point
Basole respondeu ao tópico de Maria Thereza Morais em Microsoft Office
@Maria Thereza Morais da uma olhada neste exemplo que postei neste site https://cutt.ly/ljOQZpM- 2 respostas
- 430 visualizações
-
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
- 20 respostas
-
- 2
-
- 1.138 visualizações
-
Visual Basic Tooltip - Celula VBA (Comentario)
Basole respondeu ao tópico de DECOVIOTI em Programação - outros
Neste caso sim- 5 respostas
- 336 visualizações
-
Visual Basic Tooltip - Celula VBA (Comentario)
Basole respondeu ao tópico de DECOVIOTI em Programação - outros
Só passando o mouse não, mas selecionando a célula.- 5 respostas
- 336 visualizações
-
Visual Basic Tooltip - Celula VBA (Comentario)
Basole respondeu ao tópico de DECOVIOTI em Programação - outros
Já tentou usar o comentário da validação de dados ?- 5 respostas
- 336 visualizações
-
Outro Script VBS para envio de e-mails
Basole respondeu ao tópico de Junior Borges em Programação - outros
Experimente: objEmail.Configuration.Fields.Item_ ("http://schemas.microsoft.com/cdo/configuration/sendpassword")="SuaSenha"- 19 respostas
-
- 2
-
- 727 visualizações
-
Outro Script VBS para envio de e-mails
Basole respondeu ao tópico de Junior Borges em Programação - outros
Experimente acrescentar no seu código objEmail.AddAttachment Ex. objEmail.AddAttachment “C:\temp\SeuArquivo.txt”- 19 respostas
-
- 1
-
- 727 visualizações
-
Visual Basic text box hora inicial
Basole respondeu ao tópico de Formactory Windows Informa em Programação - outros
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.- 5 respostas
- 338 visualizações