Diogo Flammarion

Mimoso, muito obrigado pelas dicas, funcionou certinho, irei fazer mais alguns ajustes para ficar 100%. valeu!

Minoso, é justamente isso mesmo que eu precisava. Porém como posso estender essa verificação para as demais células?? ...Preciso fazer essa verificação em todos os campos a serem preenchidos (endereço, nascimento, etc). Uma dúvida, você inseriu esse comando : GoTo Final - ela "leva ao final sem executar aqueles demais comandos no meio da macro ou não? Agradeço pela solução, simples e eficaz.

Bom dia @minoso. Ainda não consegui bloquear o cadastro vazio. Segue link para download da planilha de teste, nela está em destaque as guias em VERMELHO. Entre em CONTROLE, depois em CADASTRO (faça um teste clicando em cadastrar, a macro retorna a mensagem dizendo que o cadastro foi efetuado com sucesso). Pensei em duas formas de bloquear isso: 1 - quando clicar em cadastrar, impedindo de realizar tal função e 2 - preenchendo célula á célula retornando a mensagem de campo não pode ficar vazio. Att http://www.4shared.com/file/PPEAayiWba/TESTE3.html

Muito boa sua dica DJunqueira, mas vou continuar a tentar aperfeiçar minha macro aqui como forma de aprendizado.

Boa tarde, consegui desenvolver na minha planilha uma guia somente para a função CADASTRAR, que no meu caso é para inserir os dados de um funcionário novo. A fórmula está funcionando bem, porém preciso impedir que ao clicar no botão CADASTRAR ela insira uma linha "vazia" no meu banco de dados (outra guia). Não tenho a mínima ideia de como fazer isso. Uma luz pessoal! Essa fórmula copia as colunas da guia de cadastro e leva para uma guia de transição, que só após isso a insere em um AUTOFILTRO que contém os demais cadastros de funcionários. Sub CADASTRAR()'' CADASTRAR Macro'' Sheets("COLETA").Select Rows("2:2").Select Selection.Copy Rows("3:3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Rows("3:3").Select Application.CutCopyMode = False Selection.Copy Sheets("CONTROLE").Select Rows("5:5").Select Selection.Insert Shift:=xlDown Sheets("CADASTRO").Select Application.CutCopyMode = False Range("AJ25,AJ26,AJ27,AJ28,AJ29,AJ30,AJ31").Select ActiveCell.FormulaR1C1 = "1" Range( _ "C8:S8,C10:S10,C12:S12,C14:H14,I14:Q14,C18:H18,I18:S18,C22:AF22,C25:AF27,U8:AF8,AC10:AF10,U14:AF14,U12,U18:Z18" _ ).Select Selection.ClearContents Range("D29").Select MsgBox "Cadastro efetuado com sucesso!", vbInformation

Boa noite amigo. Já havia feito algo parecido. O porém é que não "queria" que os outros usuários do sistema utilizassem de atalhos... preciso de uma coisa mais simplificada, apesar de ser simples esse procedimento rs. Vou fazer um teste: um botão que executa uma macro "acrescentar uma linha no fim da tabela". Gostaria de te enviar o programa que desenvolvi para ter noção do que estou falando e ajudar a melhora-lo, pois se trata de um programa para gestão de RH, atualmente tenho 250 funcionários ativos, e uns 200 inativos. Portanto trata-se de um volume de informação muito grande. Abraços

Boa tarde galera, tenho uma planilha onde nela tem uma tabela com AUTOFILTRO, Minha dúvida é a seguinte, quando eu protejo a planilha, ao inserir uma nova entrada em uma linha ela não "insere a respectiva linha automaticamente na tabela", isso mesmo quando eu marcos as opções dentro do menu proteger. Também tentei pela opção "PERMITIR QUE OS USUARIOS EDITEM INTERVALOS", e também não deu. Como a planilha é de uso compartilhado preciso bloquea-la para impedir que apaguem certas formulas, etc.... Alguem pode ajudar? Anexei um exemplo para facilitar a compreensão, por favor, insiram uma linha com a planilha desbloqueada, e depois faça o teste inserindo uma linha com ela bloqueada. teste.xlsx

valeu pela dica, nem tinha me atentado para isso!

Resolvido pessoal; utilizei a seguinte fórmula, onde altero somente a idade no meio da formula; CONT.SES(Tabela1[iDADE];"19";Tabela1[sTATUS];"ATIVO")

Bom dia, estou com dificuldade em uma fórmula, onde tenho um quadro de funcionários; ATIVOS e INATIVOS, assim montei um quadro de estatística onde preciso saber quantos funcionários tem por idade, porém preciso dessa estatística mostrando apenas os ATIVOS, pois os inativos já não são mais necessários (funcionários foram dispensados). Fiz uma planilha de teste para facilitar a compreensão. Quem puder ajudar, fico grato! teste.xlsx