RafaVillani

@Neodenn Olá, creio que o código possa ser um pouco mais simples do que a forma como você esta tentando, veja se lhe atende dessa forma. Dim Texto As String, A() As String, B() As String Texto = Sheet1.Cells(4, 4) A() = Split(Texto, " ") B() = Split(A(1), "-") Sheet1.Cells(5, 4) = "*" & A(0) & " *Base " & B(0) & "mm " & "+*? Prat. " & B(1) Segue um modelo que criei. Se a resposta foi útil clique em curtir, se solucionou sua dúvida marque esta resposta como solução. Abraços RafaVillani Forum Modelo Neodenn.rar

@Tatyh Olá, tente desproteger a planilha no início de seu código (antes de Sheets(“Dados”).Select e proteger ao final (antes de Sheets(“Dados”).Visible = False) Sheets(“Dados”).Unprotect “senha” Sheets(“Dados”).Protect “senha” RafaVillani

@GabrielmanutencaoSeja bem vindo ao fórum. Vejo se esse exemplo lhe atende. Se essa resposta fui útil clique em curtir, se solucionou sua dúvida marque esta resposta como solução. RafaVillani Exemplo Botão.rar

Ops!!! Falha minha, segue a planilha. @paulotuca BOTÃO PINTURA.rar

@paulotucaVeja se é desta forma que você deseja. RafaVillani LEITURA - teste.rar

@paulotucaMe desculpe por não responder, voltei a trabalhar e meus dias são bastante corridos, principalmente nos finais de semana. Porém, não tenha dúvidas, assim que tiver um tempo tentarei atender. RafaVillani

@paulocezarpicosMe desculpe por não lhe responder, voltei a trabalhar e meus dias são bastante corridos, principalmente finais de semana. Contudo, que bom que você conseguiu resolver, no mais, se precisar, é só chamar. RafaVillani

@MrPaul e @karluxo vou deixar aqui duas soluções. A primeira você deverá seguir todo o conteúdo deste site: https://excelevba.com.br/imagens-dentro-da-propria-planilha/ Prós: não é necessário salvar a imagem para carrega-la no objeto de imagem. Contras: geralmente podem ocorrer conflitos no código, dependendo do seu tipo de sistema 32 ou 64 bits, código muito extenso. A segunda seria este código: Dim Plan As String Dim PastaNome As String Dim oImage As Shape Dim oSheet As Worksheet Dim oTemp As ChartObject Dim oChartArea As Chart Plan = Plan1.Name PastaNome = ThisWorkbook.Path & Application.PathSeparator & "imagem.gif" 'nome que será salvo a imagem Set oSheet = Plan1 Set oImage = oSheet.Shapes.Item("Imagem") 'insira o nome da sua imagem oImage.CopyPicture Set oTemp = oSheet.ChartObjects.Add(100, 100, oImage.Width, oImage.Height) Set oChartArea = oTemp.Chart oTemp.Activate With oChartArea .ChartArea.Select .Paste .Export Filename:=PastaNome, filtername:="GIF" End With UserForm1.Image1.Picture = LoadPicture(PastaNome) oTemp.Delete Este código copia e salva a sua imagem na pasta onde se encontra a pasta de trabalho, para depois carrega-la no objeto image. Prós: código simples e bem curto, não sobrecarrega. Contras: Não vejo contras neste código, pessoalmente prefiro ele. RafaVillani

@Jefferson TSTestei aqui, o & .Body funciona corretamenta (veja o video), você inseriu a assinatura no corpo da mensagem pelo outlook? RafaVillani Assinatura.rar @Jefferson TSDesconsidere o post acima, realmente, quando a assinatura contem imagem ela some, tentarei resolver aqui. RafaVillani @Jefferson TS, tente desta forma: Dim outl As Outlook.Application Dim novo_email As Outlook.MailItem Set outl = New Outlook.Application Set novo_email = outl.CreateItem(olMailItem) With novo_email .Display .To = UserFormEmail.TextBoxEndEmail.Value .CC = "[email protected]" .Attachments.Add pdf .Subject = "Ficha de treino PHYSICAL" .HTMLBody = "<BR><FONT COLOR=""002288"" SIZE=""4"" BOLD=TRUE>Olá aluno(a), segue em abaixo sua ficha de treino. Bons treinos!</FONT><BR>" & .HTMLBody '.Send End With MsgBox "Email enviado com sucesso", vbInformation, "Email e PDF" Set outl = Nothing Set novo_email = Nothing RafaVillani

@Jefferson TSPrimeiramente configure a assinatura para que apareça nas mensagens do outlook, se você ja tiver feito isso, apenas acrescente este código no final da linha .Body = "Olá aluno(a), segue em abaixo sua ficha de treino. Bons treinos!" & .body RafaVillani

@Gesiane DinizPara melhor lhe ajudar, poderia disponibilizar a planilha para download? RafaVillani

@Jefferson TSO filtro por CPF funcionou?

@paulocezarpicosQue nada, ainda estou aprendendo, se precisar é só chamar. Ps. Você marcou sua própria resposta como solução.

@Jefferson TSConfira se não tem uma mais atual na lista. Qual seu office? RafaVillani

@Jefferson TSVocê habilitou a biblioteca Microsoft Outlook 12.0 Object Library? Dentro do VBA, menu Ferramentas, Referências, selecione a biblioteca e aperte OK. RafaVillani