felix mauricio gasiglia

Pessoal Alguma sugestão?

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").Select Range("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").Select Range("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, Flds Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields schema = "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=1 Set 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