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

@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

@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

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

@paulocezarpicosQuando você alterou o código você colocou o Exit Sub no lugar errado, o que está acontecendo é que o filtro esta ocorrendo e, após, o código Exit Sub é ativado e o código é interrompido, e as linhas abaixo do End If não são lidas-executadas, na verdade, o código deve ser interrompido quando a variável QtdLinhaFiltro foi maior que 31.
 
Para corrigir basta você mover o Exit Sub e coloca-lo acima do Else, ficando assim:
If QtdLinhaFiltro > 31 Then MsgBox "Intervalo entre datas muito grande, selecione outro intervalo!", vbInformation, "FILTRO" Exit Sub Else: Plan16.Range("A7:K" & QtdLinhaFiltro + 6) = MatrizFiltro End If Call imprimir Unload UserForm1 Unload Me End Sub 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 TSVocê habilitou a biblioteca Microsoft Outlook 12.0 Object Library?
 
Dentro do VBA, menu Ferramentas, Referências, selecione a biblioteca e aperte OK.
 
RafaVillani

@Jefferson TSSegue sua planilha, fiz o filtro dos Ativos e Inativos, e acrescentei um novo botão de opção para mostrar todos.
 
Quanto a forma de alterar o Status, fiz com apenas um botão, se o status for Ativo ele é altera para Inativo, se for Inativo é alterado para Ativo.
 
Quanto a opção do filtro por CPF ou Nome, acredito que o @AfonsoMirajá o instruiu no outro tópico.
 
RafaVillani
CONTROLE NOVO.rar

@genecioficialconsegui usando apenas uma célula. segue a fórmula:
 
=SE(G2<=F2;" VIGENTE Falta(m) "&SE(DATADIF(G2;F2;"y")=0;"";DATADIF(G2;F2;"y")&" Ano(s), ")&SE(DATADIF(G2;F2;"ym")=0;"";DATADIF(G2;F2;"ym")&" Mês(es) e ")&SE(DATADIF(G2;F2;"md")=0;"";DATADIF(G2;F2;"md")&" Dia(s)")&" para o vencimento da CNH.";"VENCIDO a "&SE(DATADIF(F2;G2;"y")=0;"";DATADIF(F2;G2;"y")&" Ano(s), ")&SE(DATADIF(F2;G2;"ym")=0;"";DATADIF(F2;G2;"ym")&" Mês(es) e ")&SE(DATADIF(F2;G2;"md")=0;"";DATADIF(F2;G2;"md")&" Dia(s)")&" RENOVAR CNH.")
 
RafaVillani

@Jefferson TSSubstitua essas linhas:
 
Tabela1.DataBodyRange.Cells(L).Delete por
 
Tabela1.ListRows(L).Delete  
e Tabela2.DataBodyRange.Cells(L).Delete por
 
Tabela2.ListRows(L).Delete  
Veja se funciona assim, aqui funcionou com ambas as linhas.
 
RafaVillani

@Mayara RezendeSe entendi direito isso deve resolver. Dentro do evento SelectionChange adicione o comando If antes de chamar sua Sub lsMover, assim:
 
If ToggleButton1_onoff.Value = True Then lsMover Else: MsgBox "Favor Ativar Movimentação do Quadro!" Exit Sub End If RafaVillani

@Jefferson TSVeja se dessa forma lhe atende.
 
RafaVillani
CONTROLE NOVO.rar

@LucasExcelVeja agora, alterei os campos de para a planilha grafico.
Avaliação.rar

@LucasExcelVeja agora, alterei os campos de para a planilha grafico.
Avaliação.rar

@LucasExcelVeja agora, alterei os campos de para a planilha grafico.
Avaliação.rar

@ROSANO100Que bom que ficou satisfeito com o resultado, foi um bom aprendizado para mim que nunca havia trabalhado com o visual studio vinculado a uma planilha.
 
Qualquer dúvida que tiver estou a disposição para auxiliar.
 
Não esqueça de curtir e marcar minha resposta como solução.
 
RafaVillani

Olá @LucasExcelveja se lhe atende!
 
RafaVillani
Teste.rar

@rotiv1 Veja se é isto que você queria, fiz no "Inserir Recebimento", se desejar fazer nos demais formulários basta usar o mesmo código.
 
RafaVillani
SISTEMA DE CONTROLE GERAL 1.rar

@paulotucaSegue a planilha, para poder acrescentar a "," necessitei alterar a forma de se salvar a capacidade na Sub Salvar, bem como fiz algumas alterações nos eventos change, beforeupadate e enter dos textbox capacidade, metro e diametro.
 
Veja se lhe atende.
 
RafaVillani
Relação de Orçamento - TESTE.rar

@Andre4Substitua esta linha
 
Folha3.foto_produto.Picture = LoadPicture(FotoNome)
 
por esta

ActiveSheet.Shapes("foto_produto").Fill.UserPicture (FotoNome)
 
Veja se funciona.
 
RafaVillani

@josequali, veja se lhe atende.
 
RafaVillani
modelo_restricao_textbox.rar

@Daniela.Dias, engraçado, eu apaguei todos os dados antes de enviar, na hora de anexar posso ter me enganado e enviado o arquivo errado, salvei com outro nome "teste2", segue a planilha, será necessário descompactar.
 
RafaVillani
teste2.rar

Olá @paulocezarpicos, veja se lhe atende!
 
RafaVillani
Adilau.rar

Amigo, boa noite! O que você procura é uma macro bem simples, contudo, para faze-la necessito de mais informações, como, por exemplo, as células onde você informa (ambiente, litros, e peso). Criaremos 2 botões, Editar e Cadastrar, ao clicar em Editar se tipo de operação, destino, produto e tanque forem iguais aos informados a macro edita os campos que você desejar, e cadastrar seria para cadastrar novo navio ou uma nova operação, me informe as células em CACL_RAIZEN onde você informa ambiente, litros e peso, ou disponibiliza aqui sua planilha.
 
RafaVillani