1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

VBA em excel

Discussão em 'Programação' iniciada por tromao, 29 de Junho de 2007. (Respostas: 1; Visualizações: 2154)

  1. tromao

    tromao Power Member

    Boa tarde gents

    Confesso que so a 3dias e que precisei de usar este tipo de linguagem dai estar a aprender mas estou a esbarrar nos problemas que eu acredito serem basicos.Estou a tentar impletar esta função mas da-me sempre um erro de compilação, se me podessem ajudar...

    Sub sendemail()

    ' ver se a celula esta vazia, se estiver acaba o macro, senao continua-----da-me erro aqui...o resto ja corre, como verifica a celula vazia?como faço end sub se a condição for verdadeira?como faço ele continuar o script se a condição for falsa?da-me sempre erros na compilaçao

    If Range("j9") = " " Then GoTo (l22)
    End if


    ' Select the range of cells on the active worksheet.
    ActiveSheet.Range("n21:n33").Select

    ' Show the envelope on the ActiveWorkbook.
    ActiveWorkbook.EnvelopeVisible = True

    With ActiveSheet.MailEnvelope
    ' .Introduction = "This is a sample worksheet."
    .Item.To = "E-Mail_Address_Here"
    .Item.CC = "Com conhecimento"
    .Item.Subject = Range("N21")
    ' .Item.Send
    End With


    End Sub

    Abraço e muito obrigado mm
     
  2. K0mA

    K0mA Power Member

    If Range("J9").value = "" then Exit Sub

    Com essa linha deve funcionar na perfeição!
     

Partilhar esta Página