Ir ao conteúdo

Douglas ianes

Membro Pleno
 Perfil  Explorar Conteúdo

  • Posts

    28

  • Cadastrado em

  • Última visita

  1. Douglas ianes
    @Midori no caso o setfocus seria logo abaixo do log = empty Private Sub Log_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Len(Log) = 9 Then Sheets("BD").Select Range("B3").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select ActiveCell = Log.Value Log = Empty Log.SetFocus Sheets("plano").Select Else MsgBox "SN Incorreto!!!" Log = Empty End If End Sub
  2. Douglas ianes
    @Midoriconsegue me ajudar, por favor.
  3. Douglas ianes
    Bom dia caros amigos. estou com dificuldade em colocar o setfocus na caixa textbox que preciso ao final do código. Private Sub Log_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Len(Log) = 9 Then Sheets("BD").Select Range("B3").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select ActiveCell = Log.Value Log = Empty Sheets("plano").Select Else MsgBox "SN Incorreto!!!" Log = Empty End If End Sub podem me ajudar por favor.
  4. Douglas ianes
    @Midori estou tendo a seguinte mensagem.
  5. Douglas ianes
    @Midoriainda a respeito deste caso, consegui fazer funcionar direcionando pra impressora correta. Agora estou enfrentando outro problema, a impressora e compartilhada em rede através de um PC local, todos os dias pelas manha tenho dificuldade em usar a planilha devido o computador ter senha de acesso, ai eu tenhoq ue ir em todos os PCs que usam essa planilha e "mapear" o PC compartilhado com a impressora. è possivel eu incluir o usuario e senha no código?
  6. Douglas ianes
    \\105.103.176.169\EasyCoder PF4i (203 dpi) - DP em Ne04: conseguir entender a execução da rotina e funcionou, muito obrigado pela ajuda.
  7. Douglas ianes
    @Midori quando eu coloco ela como padrão manualmente ai sim o codigo pega a string, mas quando volto para a outra impressora comun que deve ser a padrão ai imprimi da errada. acho que eu não estou entendendo a forma de usar activeprinter.
  8. Douglas ianes
    Não deu certo, imprimiu direto na impressora que uso como padrão.
  9. Douglas ianes
    @Midori consegue me ajudar
  10. Douglas ianes
    Boa tarde pessoal. estou usando este codigo para imprimir uma userform em uma impressora especifica. 'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ 'IgnorePrintAreas:=False Problema é que uso outras planilhas automatizadas que precisam imprimir em outra impressora, então esse codigo precisaria indicar o endereço da impressora a ser impresso, que no caso seria esse: \\105.103.176.169\EasyCorder_PF4i_(203_dpi)-DP consegue me ajudar a fazer com que esse codigo imprima direto neste endereço?
  11. Douglas ianes
    BOm dia Pessoal. estou utilizando o codigo abaixo para me ajudar a criar pastas para um banco de dados de possue. porém ele utiliza um campo de data para dar nome a pasta, como neste campo tem / o codigo da erro. eu preciso substituir o / por - <Sub criar_patas() Dim Rng As Range Dim maxRows As Long, maxCols As Long, r As Long, c As Long Range("B3").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Set Rng = Selection maxRows = Rng.Rows.Count maxCols = Rng.Columns.Count r = 1 Do While r <= maxRows If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, 1), vbDirectory)) = 0 Then MkDir (ActiveWorkbook.Path & "\" & Rng(r, 1) & " - " & Rng(r, 2) & " - " & Rng(r, 9) & " - " & Rng(r, 14)) On Error Resume Next End If r = r + 1 Loop End Sub> no campo grifado e em negrito é onde ele busca a celula onde contem data. alguem pode me ajudar.
  12. Douglas ianes
    @Midori Funcionou perfeitamente. agora vou aperfeiçoar outras funções. muito obrigado pela ajuda.
  13. Douglas ianes
    @Midori a principio o codigo que me passou deu certo. ficou assim. Sub Enviar_email() Set objeto_outlook = CreateObject("outlook.application") Set Email = objeto_outlook.CreateItem(0) Email.Display Email.To = "[email protected]" Email.cc = Cells(2, 1).Value & "@gmail.com" Email.Subject = "Segue notificação de falha" Email.attachments.Add ActiveWorkbook.FullName Email.attachments.Add "C:\Temp\painel.JPG" Email.HTMLBody = "Olá," _ & Chr(10) & Chr(10) & "Segue em anexo notificação de falha encontrada em OQC." _ & Chr(10) & Chr(10) & "Qualquer dúvida, favor entrar em contato com " & Cells(2, 1).Value & _ "<html><img src=""cid:painel.JPG""</img></html> Email.send End Sub somente as quebra de texto que não estão funcionando. ja tentei <br> também e não consegui.
  14. Douglas ianes
    Boa tarde pessoal. estou montando esse código para enviar uns relatórios por email, porém preciso anexar um grafico no corpo do email como imagem. Fato é que se eu salvar o arquivo em algum local como imagem pra depois usar no codigo um SW da empresa bloqueia essa imagem, então eu preciso que gere a imagem direto no corpo do email. <Sub Enviar_email() Call Mostra Set objeto_outlook = CreateObject("outlook.application") Set Email = objeto_outlook.CreateItem(0) Email.Display Email.To = "[email protected]" Email.cc = Cells(2, 1).Value & "@samsung.com" Email.Subject = "Segue notificação de falha" Email.Body = "Olá," _ & Chr(10) & Chr(10) & "Segue em anexo notificação de falha encontrada em OQC." _ & Chr(10) & Chr(10) & "Qualquer dúvida, favor entrar em contato com " & Cells(2, 1).Value Email.attachments.Add ActiveWorkbook.FullName Email.send End Sub> como se fosse concatenado com o corpo do email alguem pode me ajduar??
  15. Douglas ianes
    Deu certo sim, muito obrigado pela ajuda.

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

Mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!