none
Ajuda em código macro RRS feed

  • Pergunta

  • Olá galera, estou com uma dúvida no meu código, aparentemente o while não está funcionando. Não sei como tratar melhor a variável coluna! Obrigado pela ajuda!

    Sub EnviarEmail() Dim OutApp As Object Dim OutMail As Object Dim texto As String Dim rCell As String Dim m As Integer Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) m = 0 DevolveLocalCelulas linha = Sheets("apoio3").Cells(6, 13) coluna = Sheets("apoio3").Cells(7, 13) texto = "Prezado(a) Sr(a) Administrador(a) da Comarca de " & Sheets("controle").Cells(linha, 1) & "," & vbCrLf & _ "" & vbCrLf & _ "Pedimos a gentileza de nos enviar as listas de presença referentes às aulas abaixo:" Do While coluna <= Sheets("apoio3").Cells(8, 13) If Sheets("controle").Cells(linha, coluna) = "Não enviada" Then texto = texto + " " & vbCrLf & _ Sheets("controle").Cells(1, coluna) & vbCrLf

    m = 1 End If coluna = coluna + 1 Loop If m = 0 Then Exit Sub End If texto = texto + " " & vbCrLf & _ "Gratos pela contínua cooperação," & vbCrLf & _ "Equipe ****" With OutMail .To = Sheets("controle").Cells(linha, 7) .CC = "" .BCC = "" .Subject = "Aulas *** - Listas de presença pendentes de envio" .Body = texto .SentOnBehalfOfName = "***@****.br" .Display 'Utilize Send para enviar o email sem abrir o Outlook End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub Private Sub DevolveLocalCelulas() Dim rCell As Range Set rCell = Sheets("controle").Cells.Find(Sheets("apoio3").Cells(7, 7)) Sheets("apoio3").Cells(6, 13) = rCell.Row Set rCell = Sheets("controle").Cells.Find(Sheets("apoio3").Cells(9, 7)) Sheets("apoio3").Cells(7, 13) = rCell.Column Set rCell = Sheets("controle").Cells.Find(Sheets("apoio3").Cells(9, 8)) Sheets("apoio3").Cells(8, 13) = rCell.Column End Sub






    quarta-feira, 30 de julho de 2014 20:13

Todas as Respostas