Bom dia, o forum aqui é muito interessante, e acho que o propósito aqui é trocar informações e ajudar aqueles que como eu , procuram aprender e tirar dúvidas ou solicitar dicas.
Desde que aqui entrei, e tem muito pouco tempo, tenho recebido ajuda pois tento explicar de forma detalhada aquilo que preciso. Muitas das vezes fui atendido e em outras nao, dai tive que pesquisar bastante aqui e acolá para achar meu problema. Nao sou Expert em Vba e nem chego perto de ser, mas minhas planilhas nao envolvem somente Macro, tanto que nem peço ajuda nenhuma quando envolve formulas, e outros detalhes do Excel. Mas Macro nao é meu forte e nao entendo nada mesmo sobre o assunto. Entao aqui neste Forum e no Guru Excel, aprendi muita coisa de Macro e muitos de vcs me ajudaram.
Infelizmente neste post nao recebi a ajuda necessaria, para resolver um problema simples, nao pra mim é claro, entao desde ontem estou batendo cabeça, e hj depois de uma boa noite de sono, resolvi fazer varios experimentos e retirei aquilo que nao ajudava em nada, isso depois de pesquisar a instrucao
worksheetfunction.countA(columns(“A”)) -
era assim :
Sub Sample()
'Setting up the Excel variables.
Dim olApp As Object
Dim olMailItm As Object
Dim iCounter As Integer
Dim Dest As Variant
Dim SDest As String
'Create the Outlook application and the empty email.
Set olApp = CreateObject("Outlook.Application")
Set olMailItm = olApp.CreateItem(0)
'Using the email, add multiple recipients, using a list of addresses in column C.
With olMailItm
SDest = ""
For iCounter = 1 To WorksheetFunction.CountA(Columns(1))
If SDest = "" Then
SDest = Cells(iCounter, 1).Value
Else
SDest = SDest & ";" & Cells(iCounter, 1).Value
End If
Next iCounter
Entao cheguei a isso e deu certo
Sub Sample()
'Setting up the Excel variables.
Dim olApp As Object
Dim olMailItm As Object
Dim iCounter As Integer
Dim Dest As Variant
Dim SDest As String
iCounter = 1
'Create the Outlook application and the empty email.
Set olApp = CreateObject("Outlook.Application")
Set olMailItm = olApp.CreateItem(0)
'Using the email, add multiple recipients, using a list of addresses in column C.
With olMailItm
For iCounter = 1 To WorksheetFunction.CountA(Columns(3))
SDest = SDest & ";" & Cells(iCounter, 3).Value
Next iCounter
Grato a todos vcs que nos ajudam de uma forma ou de outra.
Nao posso esquecer que minhas outras Macros foram resolvidas com a ajuda de vcs e noutras acabei eu mesmo resolvendo, o importante é estar aqui e poder contar com a colaboracao de vcs.
Andre Luiz
Postado : 16/12/2015 6:57 am