Ingo M P Américo

Ninguém?

Olá pessoal! Dúvida rápida dessa vez: tem como desabilitar os botões da janela do excel, deixando apenas a opção de fechar? Achei vários tutoriais para userform, mas não achei nada para a janela do excel em si.

Obrigado @diego_janjao , mas quando tento fazer dessa forma, o código fica vermelho e não funciona (abaixo). adicionado 2 minutos depois @Basole É uma pena não funcionar via rolagem de tela. Teria me atendido 100%. Vou tentar adaptar o que você mandou na minha planilha, pois vi que funciona se rolar a tela com a seta do teclado. Obrigado!

Olá pessoal! Preciso criar um menu fixo dentro da planilha, porém não sei como fazer. Já pesquisei e não encontrei nada a respeito. A ideia é fazer algo como se faz com CSS (vide: https://www.w3.org/Style/Examples/007/menus.pt_BR.html). Sei fazer congelando painel, mas não é o caso, ok? Alguma ideia? Segue um exemplo abaixo:

@Matheus Brasil Pelo que entendi, você está querendo usar referência cruzada: https://support.office.com/pt-br/article/Criar-uma-referência-cruzada-300b208c-e45a-487a-880b-a02767d9774b

WOW!!! Caiu uma lágrima aqui. Funcionou perfeitamente. Obrigado!

Reabrindo o tópico, pois estou com o mesmo problema e da forma como foi explicado acima, não funcionou. O que estou tentando é: quando mudar o texto da célula A2 para "SIM", executar a macro bloquear(). Minha função: Function bloquear() ActiveSheet.Unprotect Password:="" ActiveCell.Offset(0, 1).Select Selection.Resize(Selection.Rows.Count + 0, _ Selection.Columns.Count + 5).Select Selection.Locked = True Selection.FormulaHidden = True ActiveSheet.Protect Password:="" End Function Estou tentando usar seguinte fórmula na A1: =SE(A2="SIM";bloquear();"não deu") mas não funciona. Ilustrando: Estou mandando um exemplo anexo. exemplo chamar macro.zip

Boa tarde pessoal! Parece que essa é difícil. Estou tentando preencher duas células com o conteúdo de uma lista. Essa lista é formada a partir da concatenação de duas colunas via: CONCATENAR(A2;" - ";B2) . Ilustrando, é o seguinte: Consigo fazer PROCV tranquilamente na coluna A. As colunas que formam a lista são assim: Não sei nem por onde começar. Já procurei alguma coisa no pai dos nerds e não achei nada parecido com o que quero. Estou mandando o exemplo anexo. exemplo lista.zip

@Wendell Menezes Realmente deu problema. Usei a solução do @Basole e resolveu. Obrigado aos dois!

@Wendell Menezes Testei da forma que você falou e funcionou. Sub inserirCompleto() Sheets("inserir").Activate Range("H12").Activate Range("A1:P7").Activate Selection.Copy Sheets("DO").Activate ActiveCell.End(xlToLeft).Activate ActiveSheet.Paste End Sub

@Basole Obrigado pela a ajuda, mas consegui fazer de uma forma mais simples: ActiveCell.End(xlToLeft).Select

Olá gente boa! Pergunta simples: como faço para colocar a seleção (aleatória) da célula na primeira coluna da linha onde ela está? Tentei com ActiveCell.Offset(0, -1).Select mas isso só coloca a seleção atual 1 célula para a esquerda, mas como não sei exatamente onde o a seleção estará, não tenho como saber quantas células para a esquerda precisarei ir. Ilustrando é o seguinte:

@Ronni Pontes Infelizmente criar Dashboard é algo que o excel não faz automaticamente (pelo menos que eu saiba), por isso você terá que inserir gráficos e informações manualmente, mesmo que os dados sejam exibidos de forma dinâmica. Caso você não tenha tempo ou disposição para a tarefa, sugiro instalar o Qlik View e criar o Dashboard direto nele.

Fiz outro teste e percebi que quando o campo estava em branco ou quando clicava em "cancelar", a primeira linha que estava sem o código era apagada. Fiz a seguinte modificação e funcionou. Sub ExcluirComCritério() Application.ScreenUpdating = False ActiveSheet.Unprotect "aba" resp = InputBox("Digite o Código a ser Excluído") 'O código tem que estar na coluna 1 Set resp = Columns(1).Find(What:=resp, LookAt:=xlWhole) If resp <> "" Then resp.EntireRow.Delete End If 'ActiveSheet.Protect "aba" Application.ScreenUpdating = True End Sub

@Wendell Menezes Funcionou! Apenas modifiquei para funcionar com formas, ao invés de botão. Ficou assim: Sub Delete_Row() Rows(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row).Resize(3).Delete End Sub Obrigado pela ajuda!

@Wendell Menezes Funcionou perfeitamente. Apenas sugiro, para quem não tiver a planilha protegida, comentar a linha: ActiveSheet.Protect "aba" Quando fui testar, o código protegeu a planilha e eu não sabia a senha. Tive que fazer outra planilha de teste.

@Wendell Menezes Funcionou perfeitamente com uma linha. Obrigado! Porém, tentei reproduzir a lógica em um range e não funcionou (vide imagem abaixo). Ao invés de deletar as linhas que são ocupadas pelo botão, apenas a primeira linha do range é apagada. Tentei fazer conforme abaixo, mas dá "erro em tempo de execução". Sub Delete_Row() Rows(ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row).Select Selection.Resize(Selection.Rows.Count + 2, _ Selection.Columns.Count + 3).Select Selection.Delete End Sub Estou mandando o exemplo anexo. exemploApagarLinha.zip

@gabrieel_sa Além das formas descritas acima, você pode fazer assim: Copia a primeira célula onde está a fórmula da multiplicação; Seleciona todas as células que devem fazer a multiplicação (Ctrl + Shif + ↓ vai te ajudar); Cola a fórmula. Se fui útil, dá um joinha.

@Mateus Bodanese Consegui fazer da seguinte forma: Sub Macro3() ' ' Macro3 Macro ' ' Range("D5").Select Selection.EntireRow.Insert ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=127.5, Top:=61.5, Width:=15, Height:= _ 12.75).Select End Sub Estou mandando o arquivo anexo. Se tiver sido útil, dá um joinha. exemploInserirCheckbox.zip

@Wendell Menezes Testei e funcionou, apenas dá uma mensagem de erro quando não acha o código.

@Wendell Menezes Obrigado pela dica! Estou mandando um exemplo anexo (com VBA comentado) e abaixo uma imagem do que eu estou querendo fazer: quando clicar em "apagar", apagar a linha da tabela e o botão. exemploApagarLinha.zip

@deciog WOW!!!! Caiu uma lágrima aqui. Muito obrigado, meu velho! Funcionou 100%. Só fiz uma pequena melhoria: =SEERRO(PROC(2;1/(D3:O3<>"");D3:O3);"-")

@deciog Obrigado! Era isso mesmo. Só deu um pequeno "bug" quando inseri "0" na célula, pois "REALIZADO ATUAL" mostra o valor da coluna anterior", ao invés de mostrar o "0" que foi digitado. @Patropi Obrigado pela ajuda, mas do jeito que você fez não funcionou direito. adicionado 43 minutos depois @deciog Acho que o "bug" está na divisão 1/(D3:O3<>0) . Quando coloco "0" na fórmula, o resultado dá #DIV/0! . Tentei corrigir, mas não funcionou. Você fez assim: =PROC(2;1/(D3:O3<>0);D3:O3) Eu tentei assim: =PROC(2;1/(D3:O3=0);D3:O3) , =PROC(2;1/(D3:O3>=0);D3:O3) e =PROC(2;1/(D3:O3<=0);D3:O3) mas a coluna "REALIZADO ATUAL" congelou em "0%". Também tentei assim: =PROC(0;1/(D3:O3<>0);D3:O3) e também congelou em "0%". Não dá pra presumir que, por se tratar de uma progressão, a casa à direita nunca volte para zero, pois pode ser que seja necessário recomeçar zero.

Natan, que ótimo que o Patropi resolveu. Eu ia escrever exatamente a mesma solução: PROCV. Tem muita coisa que você consegue resolver consultando a própria referência da Microsoft para o Excel, tipo, essa: https://support.office.com/pt-br/article/PROCV-Função-PROCV-0bbc8083-26fe-4963-8ab8-93a18ad188a1 Perceba que, além do PROCV, você também pode usar PROCH (https://support.office.com/pt-br/article/PROCH-Função-PROCH-a3034eec-b719-4ba3-bb65-e1ad662ed95f) ou simplesmente PROC (https://support.office.com/pt-br/article/PROC-Função-PROC-446d94af-663b-451d-8251-369d5e3864cb) A referência completa, separada por categoria, você encontra aqui: https://support.office.com/pt-br/article/Funções-do-Excel-por-categoria-5f91f4e9-7b42-46d2-9bd1-63f26a86c0eb

Boa tarde pessoal! Estou com um problema que deve ser, aparentemente, fácil de resolver, mas estou tentando há vários dias e não consigo. Simplesmente não sei o que está faltando. Fiz uma planilha que possui duas linhas: "esperado" e "realizado". As colunas dessas linhas estão classificadas por mês (jan, fev, mar etc.). Em cada mês serão inseridos o resultado esperado e o resultado alcançado. Acontece que estou tentando mostrar em uma célula à parte (na mesma planilha) o "resultado atual", mas não estou conseguindo. Estou mandando a planilha anexa. Estou tendo a seguinte fórmula: =SE(N3="";M3;SE(M3="";L3;SE(L3="";K3;SE(K3="";J3;"-")))) A linha 3 é onde estão os resultados alcançados. A formula deveria verificar se dezembro está "vazio", caso positivo, mostrar o valor de novembro e, assim, sucessivamente. Porém, quando chega a hora de verificar se novembro está vazio e mostrar outubro, o resultado que aparece é "0". HEEEEEELP!!!! exemplo.xlsx