felix mauricio gasiglia
-
Total de itens
8 -
Registro em
-
Última visita
Posts postados por felix mauricio gasiglia
-
-
Olá Alyson Ronnan
Boa noite.
Não entendi, foto de que?
Com a foto você não vai entender. Porque é muito simples, eu preciso que o form que está em execução, ou seja, o último aberto, fique em primeiro plano e não atrás do form que o chamou?
Entendeu?
Abs,
-
Senhores
Boa tarde.
Tenho uma aplicação em VBA que quando um form é aberto e executado uma pesquisa neste form por um botão, ele fica atrás de outro form que o chamou. como manter ele sempre visível, na frente, enquanto está carregado em execução, por ser o último que foi aberto?
Já tentei várias coisas mas não modifica.
Obrigado,
-
Alexandre
Boa noite.
Na mosca, deu certo, estava faltando um jeito de fato para selecionar a linha filtrada que é exibida da linha 2.
No exemplo abaixo a linha que contém o argumento é a linha 5384 que após o filtro é exibida na linha 2. Mas eu precisava em que linha (5384) foi encontrada o conteúdo/parâmetro pesquisado.
Então (Selection.End(xlDown).Select) resolveu tudo, porque com isso seleciona a linha filtrada que é exibida na linha 2.
Portanto, bastou perguntar o número da linha que estava selecionada.
Muito obrigado mesmo, resolveu definitivamente, arrasou !!!!!!
Servirá de case para as demais pessoas.
Veja como ficou abaixo:
Sub teste_filtro()
Dim LINHA As Long
Dim LOCALIZACAO As String
Dim LINHA_FILTRADA As Long
'
' teste_filtro Macro
''
'DESABILITAR FILTRO ANTERIOR POR GARANTIA
Windows("TrovaoFilmes_APP.xlsm").Activate
Sheets("LOCAL FIXO TEMP").Select
For Each sht In Worksheets
If sht.AutoFilterMode = True Then
sht.AutoFilter.ShowAllData
End If
Next'FILTRAR
Windows("TrovaoFilmes_APP.xlsm").Activate
Sheets("LOCAL FIXO").SelectRange("A2").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$B$50000").AutoFilter Field:=1, Criteria1:="00101D018"Selection.End(xlDown).Select
LINHA_FILTRADA = Selection.Row
MsgBox "linha_filtrada : " & LINHA_FILTRADA
End Sub
-
Olá Alexandre
Boa noite.
Primeiramente muito obrigado pela ajuda.
Bem, será sempre apenas uma linha, o critério de busca é uma chave única (um código) distinto.
Eu não entendi como fazer , seleciono a linha 1 (cabeçalho), beleza, e como usar idexof para selecionar a linha abaixo?
Tem como dar um exemplo?
Obrigado,
-
Senhores
Bom dia.
Após filtrar uma linha automaticamente, mediante um critério, como alterar a célula da coluna 2 desta linha filtrada em VBA?
Segue o código até o filtro:
'FILTRAR
Windows("CONTROLE_APP.xlsm").Activate
Sheets("CAD-EQUIPAMENTOS").SelectRange("A2").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$Z$50000").AutoFilter Field:=1, Criteria1:=COD_EQUIPAMENTO_PESQUISA'Eu preciso neste ponto alterar a célula da coluna 2 desta linha filtrada
Quem poder ajudar, obrigado,
Felix Mauricio
-
Boa noite Alyson Ronnan
Tudo bem?
A questão é que o meu código funciona muito bem, TENDO INTERNET OU NÃO, está perfeito, porque eu testo antes da rotina de envio se a máquina está com internet ou não, então sem nenhum problema.
O único problema é quando há internet mas a mesma está muito fraca aí então não consegue fechar a conexão, portanto, como não teste pra isso, a aplicação depura sem o tratamento deste erro.
Então o que eu preciso é simples, preciso somente testar se a rotina conseguiu conectar o servidor do GMAIL, antes da rotina abaixo.
Código:
Function EnviaEmail_PEDIDO_SAIDA()
'Function EnviaEmail()
Dim iMsg, iConf, FldsSet iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fieldsschema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
'Configura o smtp
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
'Configura a porta de envio de email
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
'Configura o email do remetente
Flds.Item(schema & "sendusername") = EMAIL_REMETENTE '...........@GMAIL.COM
'Configura a senha do email remetente
Flds.Item(schema & "sendpassword") = "SENHA_GMAIL"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
'Email do destinatário
.To = EMAIL_CONTATO_SAIDA_PARA
.CC = EMAIL_COMCOPIA_SAIDA
'Seu email
.From = EMAIL_REMETENTE
'Título do email
.Subject = "SAÍDA DE REMESSA DE EQUIPAMENTOS (PEDIDO: " & COD_PEDIDO_EDICAO & ")"
'Mensagem do e-mail, você pode enviar formatado em HTML
.HTMLBody = "Senhores," & "<br/>" & "Seguem em anexo, os dados do pedido " & COD_PEDIDO_EDICAO & "& "<br/>" & "<br/>" & "Atenciosamente, "
'Seu nome ou apelido
.Sender = "Teste"
'Nome da sua organização
.Organization = ""
'e-mail de responder para
.ReplyTo = "felixmauriciogasiglia@gmail.com"
If TPDRIVE = 2 Then
'Anexo a ser enviado na mensagem. Retire a aspa da linha abaixo e coloque o endereço do arquivo
.AddAttachment ("D:\APLICACOES\TrovaoFilmes\Slip saida temp/" & NOME_ARQUIVO_SLIP_SAIDA & ".pdf")
Else
End If
If TPDRIVE = 1 Then
'Anexo a ser enviado na mensagem. Retire a aspa da linha abaixo e coloque o endereço do arquivo
.AddAttachment ("C:\APP TROVAO FILMES\TrovaoFilmes\Slip saida temp/" & NOME_ARQUIVO_SLIP_SAIDA & ".pdf")
Else
End If
Set .Configuration = iConf
.Send
End With
'página para possibilitar aplicativos não seguros acessar a conta do gmail
'https://myaccount.google.com/lesssecureapps?pli=1Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
End Function
Muito obrigado,
Felix Mauricio
-
Senhores.
Bom dia.
Eu tenho uma rotina de envio de email pelo gmail que funciona muito bem, sem nenhum problema, mas quando a internet do cliente está fraca, a rotina não consegue fechar a conexão com servidor "smtp.gmail.com".
Eu já faço o teste se há internet conectada a máquina que está funcionado muito bem, mas preciso testar se a conexão foi realizada com sucesso para não deixar a aplicação depurar..
Como fazer este teste?
Muito obrigado pela ajuda,
Atenciosamente,
Felix Mauricio Gasiglia
Manter o form na frente (visível) quando está em execução
em VBA
Postado
Pessoal
Alguma sugestão?