Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
#72253
Tenho uma função que percorre uma lista e possui a condição se RANGE = "SIM" então uma variável recebe os valores das células ao lado adicionando. Gostaria que os valores desta variável fosse adicionado a um Array e no final a função retornasse os valores que estão contidos neste Array.
Código: Selecionar todos
Function validaLicenca()

    Dim cel As Range
    Dim CnaeExigivel As String
    Dim Cnaes As New ArrayList
    
    Worksheets("PlanCnae").Select
    
    For Each cel In Range("B21:Q80")
        If cel.Value = "SIM" Then
             
             CnaeExigivel = cel(1, -14).Value & " - " & cel(1, -12)
             
             Debug.Print CnaeExigivel
             
             Cnaes.Add (CnaeExigivel)
        End If
    Next cel
    validaLicenca = Cnaes.Items

End Function

Observação:
A Macro que chama a função cria um e-mail e insere os valores retornado da função no corpo de um e-mail.
Código: Selecionar todos
Sub Enviar_Email2()

'CnaeObrigatorioLicenca
Set objeto_outlook = CreateObject("Outlook.Application")
Set Email = objeto_outlook.createitem(0)
    
    validaLicenca 'Chama Função
    
    Email.display
    Email.To = "teste@gmail.com"
    Email.cc = "usuario@hotmail.com"
    Email.Subject = "Dispensa / Licença Ambiental"
    texto1 = "Prezados," & "<br><br>" & "Em consulta aos CNAEs da Empresa veriquei a obrigatóriedade de apresentação de licença ambiental para os CNAES abaixo:" & _
    "<br><br>" & validaLicenca & "<br><br>" & "Atenciosamente," & "<br>" & "Fulano de Tal"
    Email.HTMLBody = texto1
    Email.send
Você não está autorizado a ver ou baixar esse anexo.
Editado pela última vez por eduardoadm em 19 Set 2022 às 23:04, em um total de 1 vez.
Avatar do usuário
Por Foxtri
Posts Avatar
#72259
Boa tarde.
Veja se pose ser desta maneira.
Até
Foxtri

Sub Enviar_Email2()
Dim Xvar As String
Set objeto_outlook = CreateObject("Outlook.Application")
Set Email = objeto_outlook.createitem(0)
Dim cel As Range
Dim CnaeExigivel As String
Worksheets("PlanCnae").Select
For Each cel In Range("Q21:Q80")
If cel.Value = "SIM" Then
CnaeExigivel = cel(1, -14).Value & " - " & cel(1, -12)
Xvar = Xvar & CnaeExigivel & "<br>"
End If
Next cel
Email.display
Email.To = "teste@gmail.com"
Email.cc = "usuario@hotmail.com"
Email.Subject = "Dispensa / Licença Ambiental"
texto1 = "Prezados," & "<br><br>" & "Em consulta aos CNAEs da Empresa veriquei a obrigatóriedade de apresentação de licença ambiental para os CNAES abaixo:" & _
"<br><br>" & Xvar & "<br>" & "Atenciosamente," & "<br>" & "Fulano de Tal"
Email.HTMLBody = texto1
Email.send
End Sub
eduardoadm agradeceu por isso

=SE(MÊS(A1)&lt;7;&quot;1º sem&a[…]

Bom Dia Senhores. Tenho uma macro que preciso dei[…]

Free relationships without drama and obligations. […]

Girar Imagem e Zoom

Boa noite Teria alguma forma de dar um &quot;[…]

Valeu. Muito Obrigado!!!!!!!!

Pessoal, Ao clicar no botão Copiar (Guia C[…]

Procv com serro em vba

Resolvido

Bom dia, pessoal! com a data de nascimento e data […]

Estamos migrando para uma comunidade no Discord