Basole

Segue em anexo veja se é isso que deseja. Arqs.zip

Faça 2 exemplos do modelo das suas planilhas, c/ alguns dados ficticios, demostrando manualmente o resultado esperado.

Desculpe, mas acho q voce nao entendeu: Eu pedi para voce disponibilizar seu arquivo (*.xlsx) original ou um exemplo com alguns dados ficticios de demostrando o resultado esperado.

Disponibilize a planilha ou um exemplo demonstrando o resultado esperado.

Disponibilize a planilha ou um exemplo demostrando o resultado esperado.

Sim é possivel. Vou começar a cobrar ein amigo... Inicio_1_2.zip

Obrigado querida por ter dado o retorno. Fico contente que tenha dado certo.

Sim ele atualiza tomaticamente a lista de slides no combobox, conforme voce vai adicionando. Veja este exemplo Inicio_1.zip

@MARDROCK ao invés de digitar e e apertar o ok, não seria melhor selecionar o Slide e ir para, o selecionado:? Segue em anexo, veja se é isso que deseja. Aguardamos retorno. Inicio.zip

A resposta é sim. Disponibilize seu ppt ou um exemplo.

Ok entendi, veja se é isso: Sub Exemplo_1() Dim rng As Range, rngDel As Range, sAdrs As String, j As Long, i As Long, W As Worksheet, _ Y As Worksheet, pula_aba2 As String Set W = Sheets("C.Custo") pula_aba2 = W.Range("L2") i = 2 Set Y = Sheets("Balancete") With Y Do While W.Range("L" & i) <> "" 'faz loop na coluna "L" ate a prx cel vazia For j = 1 To 8 ' faz loop nas col A ate H Set rng = .Columns(j).Find(pula_aba2) If Not rng Is Nothing Then sAdrs = rng.Address Do If rngDel Is Nothing Then Set rngDel = rng 'agrupa cel encontradas Else Set rngDel = Union(rngDel, rng) 'agrupa cel encontradas End If Set rng = .Columns(j).FindNext(rng) Loop While Not rng Is Nothing And sAdrs <> rng.Address End If If Not rngDel Is Nothing Then rngDel.EntireRow.Delete 'Exclui as linhas encontradas End If Set rngDel = Nothing Next i = i + 1 Loop End With End Sub

Veja esse exemplo, de rotina + funcao que verifica se a Pasta_de_trabalho esta aberta ou não. Tente adaptar a uma rotina que lista as planilhas. Sub Verif_Arquivo_Aberto() Dim strFile As Variant strFile = IsWorkBookOpen _ ("C:\temp\Nome_Sua_Planilha.xlsx") '* Altere diretorio/nome do arq. If strFile = True Then MsgBox "Arquivo esta Aberto" Else MsgBox "Arquivo esta Fechado" End If End Sub Function IsWorkBookOpen(FileName As String) Dim ff As Long, ErrNo As Long On Error Resume Next ff = FreeFile() Open FileName For Input Lock Read As #ff Close ff ErrNo = Err On Error GoTo 0 Select Case ErrNo Case 0: IsWorkBookOpen = False Case 70: IsWorkBookOpen = True Case Else: Error ErrNo End Select End Function

Veja se é isso a macro faz varredura nas col A ate H e busca todas as correspondências e exclui a linha inteira Sub Exemplo_1() Dim rng As Range, rngDel As Range, sAdrs As String, j As Long Set W = Sheets("C.Custo") pula_aba2 = W.Range("L2") Set Y = Sheets("Balancete") With Y For j = 1 To 8 ' faz loop nas col A ate H Set rng = .Columns(j).Find(pula_aba2) If Not rng Is Nothing Then sAdrs = rng.Address Do If rngDel Is Nothing Then Set rngDel = rng 'agrupa cel encontradas Else Set rngDel = Union(rngDel, rng) 'agrupa cel encontradas End If Set rng = .Columns(j).FindNext(rng) Loop While Not rng Is Nothing And sAdrs <> rng.Address End If If Not rngDel Is Nothing Then rngDel.EntireRow.Delete 'Exclui as linhas encontradas End If Set rngDel = Nothing Next End With End Sub

Ok, veja se é isso que precisa: Gestão de Risco Taboão - JUNHO.zip

@Flávia Soares da Silva verifiquei que as celulas nao sao coloridas atraves de formatacao condicional e sim manual. Qual o criterio que usa para alterar as cores?

Seria bom se pudesse disponibilizar seu arquivo ou um exemplo com alguns dados, pois fica difícil analisar todo o conteúdo e o cenário da sua planilha através das imagens.

Disponibilize seu arquivo ou um exemplo com alguns dados ficticios, para que possamos analisa-lo e testarmos.

Sim, desconheço uma outra forma;

Sim mas tem que referenciar cada celula.

Veja se este exemplo lhe atende: Contagem_Regressiva.zip

Este site é um editor html on line: https://www.quackit.com/html/online-html-editor/ que permita que você prepare um email agradàvel formatado. Coloque o texto que deseja e click no botao [codigo fonte], copie o codigo html e defina a variavel Mensagem = "seu codigo html" Exemplo: Mensagem = <h1>Isto &eacute; um <strong>Teste</strong></h1> ' Substitua o .Body por: .HTMLBody = Mensagem

@LaerteB veja se é isso que precisa! FORMULARIO CADASTRO E PESQUISA teste_1.zip

Disponilbilize seu arquivo ou um exemplo emu amigo. Acho que fica mais fácil entender o que possa estar ocorrendo.

Tente substituir esta linha: If dataset.RecordCount <> 0 Then por esta: If dataset.EOF = False or dataset.BOF = False

Acredito para resolver este problema, somente com um script, pois com as atualizaçoes de dados os valores das das formulas são alterados.