Jmbs

Boa tarde, amigos

Gostaria de contar com a colaboração de vocês para totalização de valores entre duas planilhas usando um só critério conforme anexo. Tentei com o SOMASE mas não consegui.

Atenciosamente

Tipo SOMASE entre duas planilhas.xlsx

@Muca Costa

Boa tarde

Hoje estou finalmente fazendo os ajustes finais da planilha em questão, a sua orientação é otima, porém não consigo adaptar a minha planilha, porque retorna os erros conforme print. Se possivel me ajude, já pesquisei sobre o tal erro mas nada que resolvesse. 

Att

18 minutos atrás, osvaldomp disse:

No seu arquivo do post #1, no Módulo1, na sub OcultarLinha você colocou este comando ~~~> Range("B28").End(xlUp).Row

que também pode ser escrito assim ~~~> Range("B28").End(3).Row

 

Em lugar de xlToLeft, xlToRight, xlUp e xlDown você pode utilizar respectivamente os números 1, 2, 3 e 4.

@osvaldomp

Meus sinceros agradecimentos pela gama de esclarescimentos.

Att

1 hora atrás, osvaldomp disse:

Veja se ajuda.

Esta solução utiliza um botão em cada planilha e um código único. Siga a sequência abaixo.

 

1. instale uma cópia do código abaixo em um módulo comum, por exemplo no Módulo1

2. insira em qualquer das planilhas, por exemplo na Planilha4, um botão Controles de Formulário (não ActiveX, como os atuais)

3. vincule o botão inserido à macro OcultaReexibeLinhas (referente ao código abaixo)

4. clique com o direito sobre o botão / Copiar / cole uma cópia dele na Planilha5 e cole outra cópia na Planilha6

 

obs. não é necessário alterar manualmente o rótulo do botão, pois o código irá alterar após o primeiro clique

 

Sub OcultaReexibeLinhas()
 Dim linha As Long
  Application.ScreenUpdating = False
  Rows.Hidden = False
  If ActiveSheet.Buttons(Application.Caller).Caption = "REEXIBIR LINHAS" Then
   ActiveSheet.Buttons(Application.Caller).Caption = "OCULTAR LINHAS"
   Exit Sub
  Else
   If ActiveSheet.Name = "Planilha4" Then
    For linha = 2 To Cells(Rows.Count, 1).End(3).Row
     Rows(linha).EntireRow.Hidden = Cells(linha, 1) = 0
    Next linha
   ElseIf ActiveSheet.Name = "Planilha5" Then
    For linha = 2 To Cells(Rows.Count, 2).End(3).Row
     Rows(linha).EntireRow.Hidden = Cells(linha, 2) = "Vencida"
    Next linha
   ElseIf ActiveSheet.Name = "Planilha6" Then
    For linha = 2 To Cells(Rows.Count, 3).End(3).Row
     Rows(linha).EntireRow.Hidden = Cells(linha, 3) = 0
    Next linha
   End If
  End If
  ActiveSheet.Buttons(Application.Caller).Caption = "REEXIBIR LINHAS"
End Sub

 

@osvaldomp

Muito obrigado.

Exatamente isso que eu buscava, porém, não sabia aplicar, mais com a sua didática ficou fácil.

A titulo de aprendizado, gostaria que você me explicasse qual a função e vinculo desse 3.

Att

@osvaldomp

Muito obrigado, dificuldade 1 resolvida.

Com relação a 2 dificuldade, não me expressei corretamente. Digo, as três planilhas vou utilizar macro com a mesma função, ocultar e reexibir linhas, porém em intervalos diferente. Ao invés de abrir três macro separadas posso ter só uma macro ?

Att

Boa noite,

Estou com duas dificuldade em relação a planilha anexa, gostaria se possivel contar com a ajuda dos amigos.

1 - Não aplanilha 5 não consigo ocultar os valores conforme o critério;

2 - Gostaria de juntar as 3 variaveis em um modulo só...

Att

Ocultar reexibir.zip

2 horas atrás, osvaldomp disse:

 

Coloquei na busca do Google ~~~> excel converter horas em decimais

retornou 105.000 resultados, entre eles o link abaixo

https://pt.linkedin.com/pulse/mágica-do-24-converter-horas-em-decimal-e-vice-versa-couto-fernandes

@osvaldomp

Obrigado pela colaboração.

Peço desculpas a todos, fui pouco cuidadoso nas pesquisas...

Att

Boa tarde,

Gostaria de contar com a ajuda dos amigos para converter horas convencionais acima de 24 horas em horas decimais.

Att

Converter horas convecionais em decimais.xlsx

Em 07/08/2020 às 19:15, osvaldomp disse:

Se você tiver interesse que eu continue tentando ajudar então disponibilize a sua planilha COM TODAS AS FÓRMULAS contidas no intervalo D4:I3301, independente de seu tamanho.

 

E tenha fé, apesar do tamanho, a sua fórmula vai conseguir passar pelos cabos da internet e chegar aqui no fórum.

 

Ainda, outra solução: coloque as suas fórmulas fora do intervalo D4:I3301

@osvaldomp

Muito obrigado pela orientação. Substistitui por macro as fórmulas que estão dentro do referido intervelo. Com isso pude aplicar a macro de limpar em um unico intervalo como você sugeriu.

Att

@osvaldomp

Então, a planilha que irei utilizar a formula é muito grande por isso postei apenas o exemplo.

Att

@osvaldomp

A divisão ocorre porque nesses intervalos vazios tem células com formulas referente a totais das referidas colunas, se não todas as vezes terei que inseri-las...

Att  

Boa tarde,

Amigos,

Montei uma macro para apagar o conteúdo de determinados intervalos, porém, a instrução ficou muito grande e estou com dificuldade para fazer a quebra de linha, alguém poderia me ajudar.

Att

Teste Macro delete.zip

@osvaldomp

Muito obrigado por mais essa contribuição.

Att

Boa tarde,

Meus amigos,

Estou tentando utilizar a função cont.ses, para totalizar em uma célula a quantidade de funcionários por categoria. Exemplo: Adm A, Adm B, Adm C, Adm D, porém não estou conseguindo, alguém poderia me ajudar.

Att

Att

FUNÇÃO CONT.SES.xlsx

Obrigado a todos,

As informações que recebi nesse tópico foram de grande utilidade e aprendizado.

Att

Boa tarde,

Olá meus amigos,

Alguém poderia me ajudar com uma formula para transpor de forma automática as informações da planilha1 (vertical) para planilha2 (horizontal) conforme anexo?

Att

Vertical X Horizontal.xlsx

Ola pessoal, tudo bem?

Gostaria de contar com a colaboração de vocês em relação: Tenho esta planilha anexa referente a um espelho de folha de ponto e gostaria de obter uma forma automática de copiar mês a mês a coluna K para a planilha banco de horas. Poderia simplesmente copiar e colar, porém, tem vários fatores, numero elevado de funcionários, rotatividade, e a atualização mensal na planilha matriz em que os nomes dos funcionários mudam de posições.

Att

BANCO DE HORAS MÊS A MÊS.xlsx

@Wal SJC

Obrigado pela contribuição,

Então esse formato [h]:mm:@ eu tentei porém observe que na célula O23 não retorna o valor exato.

Att

Bom dia,

Tenho varias planilhas para somar horas de trabalho, porém, estou com um problema que ao somar uma determinada coluna o valor me retorna as vezes um segundo a menos ou a mais, já fiz varias tentativas de formatos e não consegui identificar o problema, alguém por favor poderia de ajudar...

Att

Diferença ao somar horas.xlsx

Olá amigos,

Estou com essa planilha cartão, e precisava de copiar e colar na planilha final, porém, o resultado que eu preciso levar pra planilha final serão em media 300 e não são linhas seguidas tem um intervalo de 37 linhas, então gostaria de contar com a colaboração dos amigos com uma formula,  tipo arrastar com um intervalo de linhas... 

Att

Arrastar e com intervalo de linhas.xlsx

@Muca Costa

Beleza, ta ficando muito bom.

Mais como eu havia perguntando tem como colocar uma condição pra quando o cara clicar em um botão relacionado uma aba que ele não tem permissão, encerrar e sair do aplicativo pra evitar que cada vez que ele clicar retorna pra aba que ele tem permissão...

Att

@Muca Costa

Muito legal a sua orientação.

Mas preciso de sua ajuda, visto que terei varias abas optei em trabalhar com um FormMenu, tem como inserir uma condição pra quando o usuário clicar em um botão referente a uma planilha que ele não tem permissão ele receber uma msgbox e fechar o aplicativo ou se manter no FormMenu? 

Att

Bom dia, Amigos

Estou montando esta planilha e gostaria de contar com a ajuda de você para inserir uma condição para permitir os usuários, Aux1 e Aux2 acesso apenas as abas cadastro e anexos.

Usuário: admin

Senha: 123

Att

Rotinas - Copia.zip

Boa noite,

Amigos peguei esta planilha pronta (o autor disponibilizou e autorizou as adaptações) e gostaria de fazer umas alterações e pra começar criei o (USERFORMMENU), porém estou com dificuldade para quando o usuário não tiver acesso a uma determinada aba (exemplo aba senhas) mesmo que ele click no botão correspondente ele se mantenha no useformenu ou encerrar...
Usuário: admin
Senha: admin

Att

Controle de estoque Excel VBA 2.0 Limpa.xlsm.7z

 @Patropi

Muito obrigado.

Att