felix mauricio gasiglia
Membros-
Total de itens
8 -
Registro em
-
Última visita
Sobre felix mauricio gasiglia
Últimos Visitantes
O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.
felix mauricio gasiglia's Achievements
0
Reputação
-
Manter o form na frente (visível) quando está em execução
pergunta respondeu ao felix mauricio gasiglia de felix mauricio gasiglia em VBA
Pessoal Alguma sugestão? -
Manter o form na frente (visível) quando está em execução
pergunta respondeu ao felix mauricio gasiglia de felix mauricio gasiglia em VBA
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, -
Manter o form na frente (visível) quando está em execução
uma questão postou felix mauricio gasiglia VBA
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, -
COMO ALTERAR A CÉLULA DA COLUNA 2 DE UMA LINHA FILTRADA EM VBA
pergunta respondeu ao felix mauricio gasiglia de felix mauricio gasiglia em VBA
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 -
COMO ALTERAR A CÉLULA DA COLUNA 2 DE UMA LINHA FILTRADA EM VBA
pergunta respondeu ao felix mauricio gasiglia de felix mauricio gasiglia em VBA
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
-
COMO TESTAR O SUCESSO DA CONEXÃO COM O GMAIL
pergunta respondeu ao felix mauricio gasiglia de felix mauricio gasiglia em VBA
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