CasaDoHardware

No codigo que postei nao tem nenhuma informação de senha. Como você nao postou sua planilha com o codigo nao consigo reproduzir para corrigir Não excluir linhas com dados não foi informado no post inicial, logo nao houve preocupação para com isso. Colocar uma mensagem de confirmação é bem simples. Se tivesse no primeiro post postado a planilha como modelo a resposta seria mais completa Aguardando postar a planilha com os codigos que você esta usando porque no que postei nao precisa de senha para bloquear nem desbloquear. Compacte o arquivo para postar.

Para transformar a senha digitada em *** so criando um userform.

Tenta assim Somarproduto((coluna placa = placa)*(coluna data inicial >= data inicial)*(coluna data final <= data final)*(coluna motorista)) Placa, data inicial e data final funcionam melhor se você informar esses valores em uma celula ao invés da formula. Importante: Informe a data completa nao apenas o dia. Ex ao invés de informar dia 06 informe 06/01/2018

Experimente estes codigos. Cole todos em um unico modulo. Public LinhaTotal As Long Sub Inserir() With Sheets("Planilha1") 'troque planilha1 pelo nome da guia que você vai usar o codigo. .Unprotect LinhaTotal = .Range("A" & Rows.Count).End(xlUp).Row .Rows(LinhaTotal - 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove .Protect End With End Sub Sub Apagar() With Sheets("Planilha1") .Unprotect LinhaTotal = .Range("A" & Rows.Count).End(xlUp).Row .Range("A5:L" & LinhaTotal - 1).ClearContents .Protect End With End Sub Sub Deletar() With Sheets("Planilha1") .Unprotect LinhaTotal = .Range("A" & Rows.Count).End(xlUp).Row .Rows(LinhaTotal - 1).Delete .Protect End With End Sub

Nao entendi bem mas você quer ao terminar selecionar a coluna C? Se for isso é so acrescentar no codigo Columns("C:C").Select

Tente assim Private Sub cmd_exit_Click() Range(Cells(lClient, 3), Cells(lClient, 5)).ClearContents Unload Me End Sub

Dependendo da versao do seu office você precisa instalar um suplemento. Se nao me engano a a partir do 2013 ja vem no office. Da uma pesquisada no assunto você vai conseguir

Power Query

Se estas informações sao sigilosas, sugiro colocar no googledocs apenas o necessario.

Juntar todos os dados é o melhor caminho sem duvida. Da pra totalizar por tabela dinamica, ou com somase.

Não tenho bola de cristal e sem saber como é a planilha na maioria dos casos eu nao consigo ajudar. Se você tem esta capacidade de ajudar todos sem ver a planilha de quem pede ajuda parabens pra você. E como eu costumo realmente dizer e você repetiu. Quem quer ajuda precisa ajudar a obter ajuda.

Uma tabela dinamica resolve fácil

Monte um exemplo igual a sua planilha, os dados podem ser diferentes. Mostre o resultado esperado E poste no forum. Fica mais fácil conseguir ajuda.

Use uma unica base e tenha os totais por tabela dinamica. Simples e objetivo.

Se você criou uma Tabela Dinamica essa soma nas tabelas se fazem desnecessarias, ja que você tem o total na propria tabela dinamica. Ate onde sei a segmentação de dados nao interfere na base de dados apenas na TD. Pra ser sincero nao entendi esta ultima parte que você fala dos totais sumirem. O ideal seria postar a planilha com o problema

Experimente este codigo: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Select Case Planilha1.Range("A1") Case Is = 2013 Planilha1.Range("B1:M2").Copy Planilha2.Select Planilha2.Range("B1").PasteSpecial Paste:=xlPasteValues Planilha1.Select Case Is = 2014 Planilha1.Range("B3:M4").Copy Planilha2.Select Planilha2.Range("B3").PasteSpecial Paste:=xlPasteValues Planilha1.Select Case Is = 2015 Planilha1.Range("B5:M6").Copy Planilha2.Select Planilha2.Range("B5").PasteSpecial Paste:=xlPasteValues Planilha1.Select End Select End If Application.CutCopyMode = False End Sub Lembre-se que o codigo utiliza o valor da celula A1 Pode tentar tb colocar o codigo em um botao.

Ate onde sei nao tem como personalizar a lista da segmentação de dados.

Provavelmente os numeros estão como texto. Arrisco um palpite os numeros estão alinhados a esquerda e nao a direita como deveria. Selecione todos os numeros e va em limpar Formatos. Se nao funcionar disponibilize a planilha.

A unica coisa que eu fiz foi escrever (manualmente) Sim na frente da linha que se deseja apagar. O codigo varre toda a Pasta de trabalho e apaga tudo que tiver Sim na coluna F Se você tiver 50 planilha nao importa. a unica coisa que você vai precisar fazer é inserir um Sim na coluna F e rodar o codigo no final. Mas enfim alguem pode sugerir uma solução diferente. Com relação a usar a cor isso pode ser um problema, porque se quem for usar a planilha colocar uma cor diferente nao apaga.

Como eu disse você pintou, mesmo que manualmente com um criterio, afinal você nao quer apagar tudo, então existe um criterio para pintar a celula. Pelo que entendi você pretende apagar os titulos do meio da planilha. Não usei o criterio da cor mas tem explicações na planilha para que você possa usar o codigo. Teste neste arquivo antes de levar para o original. 2013 a 2015.xls

Ve se ajuda!! planilha de vendas vendedores.xlsx

Qual o criterio que você usa para pintar de azul? Use este mesmo criterio no VBA. Exemplo as celulas ficam azul porque o resultado é igual a 0 então no codigo você usa se celula = 0 deleta a linha. Importante Deletar é diferente de apagar conteudo.

O Jeito mais simples é lançar a informação de tempo na planilha principal e com isso fazer o grafico Se for o caso faça um grafico dinamico.

Tente trocar isso Windows("Atividades-CO_FAC_07_05_18.xml").Activate Por isso importFileName.Activate Tudo que você encontrar no codigo semelhante a isso ActiveWindow.SmallScroll Down:=-39 ActiveWindow.ScrollRow = 1137 ActiveWindow.ScrollRow = 1129 Pode ser apagado. adicionado 2 minutos depois porque abriu outro topico? Não entendi o motivo?

Se sao quatro fases cada fase concluida corresponde a 25 %. Partindo deste principio pode tentar algo assim: Em cada fase concluida escreva Concluido Na celula da linha onde você deseja que apareça o percentual cont.se(Intervalo;"Concluido")*0,25 (Formate como Porcentagem) Para o grafico basta selecionar os dados desejados e criar o grafico