Fernando.Igor

Minoso, então... tinha pensado mesmo no "=se". Mas como disse, ia ficar gigante porque são mais de 15 colunas. E o problema nem é escrever a fórmula, mas é que fica difícil de alguém entender e fácil de dar problema depois. Mas de qualquer forma valeu. Osvadomp, valeu, cara! A fórmula é perfeita mesmo! Muito simples! Obrigado! Na verdade, acabei resolvendo depois adaptando um "proch". Atendeu à necessidade, mas esse "=corresp" é bem melhor mesmo! valeu gente! Abs!

Pessoal, bom dia! Estou com um pequeno problema! Gostaria de uma fórmula que me desse a posição de uma célula não vazia em determinada linha. Exemplo: Supondo as colunas A, B, C e D. Gostaria que uma fórmula na coluna E sempre me retornasse 1, se houver um "x" na coluna A; 2, se houvesse um "x" na B e assim por diante. Pensei em um "se". Mas ficaria gigante, porque são mais de 4 colunas na verdade. Se alguém souber de um jeito mais fácil e mais seguro! Segue Exemplo em anexo. A coluna "E" está preenchida manualmente com o valor que eu gostaria de ter, mas queria que fosse por fórmula. valeu... Abs! Exemplo.xlsx

@osvaldomp Poise, Osvaldo, foi o que eu tinha entendido (apenas me confundi com o True e False)! Mas o problema é que isso desabilita não a barra de ferramentas, mas o menu que se abre com o botão direito. Pelo que eu li em várias outras macros que usavam esse código e pelo próprio nome do comando (commandbars), eu esperava que desabilitasse aqueles botões na Barra de Ferramentas (na guia "Página Inicial"). Mas não é! Olha o que acontece: Existem três formas mais usadas para se copiar/colar: 1)Botão direito; 2) Atalho no teclado (ctrl + c/v); e 3)Barra de Ferramentas; Esse código e um outro que eu testei conseguem desabilitar os dois primeiros, mas não consegui de jeito nenhum desabilitar a BF. Se eu conseguisse, não precisaria usar o cutcopymode=false, que pode me atrapalhar em outras funções. Acha que é possível desabilitar a BF? Vou disponibilizar o arquivo mais tarde. valeu... Abs!

Basole, obrigado pela resposta. A sua planilha, no entanto, gera a mesma dificuldade da que eu estou usando (o cutcopymode)! ScientiaArca e Osvaldomp, muito obrigado também pela ajuda. A ideia do range = range foi ótima! Não conhecia esse código. Vou estudar a possibilidade de substituição na minha macro. Mas ainda sobre o código que postei, alguém sabe me explicar essa função: For Each oCtrl In Application.CommandBars.FindControls(ID:=19) oCtrl.Enabled = True Next oCtrl Pelo que pesquisei, ela desabilita os botões que ficam na Barra de Ferramentas, certo? Sendo cada ID um controle. Mas na macro ela parece não funcionar. Se eu conseguisse resolver isso, me ajudaria bastante nessa e em outras planilhas que estou trabalhando. Se alguém souber me explicar... Mais uma vez, obrigado. Abs!

DJunqueira, obrigado pela resposta. Mas este não é o foco da minha duvida. Eu não posso simplesmente proteger a planilha e deixar alguns intervalos editáveis porque essa permissão tb inclui colar e copiar. Eu queria que o usuário pudesse escrever nas células, mas não copiar e colar.

Pessoal, boa tarde. Estou com um pequeno problema e agradeceria a ajuda. Preciso que uma determinada planilha seja bloqueada a função de copiar e colar (não posso simplesmente proteger, pois preciso de um intervalo editável). Entre vários códigos que procurei (inclusive por aqui), esse foi o melhor que encontrei: ___ Private Sub Workbook_Activate() Dim oCtrl As Office.CommandBarControl 'Desabilita todos os comandos de Recortar For Each oCtrl In Application.CommandBars.FindControls(ID:=21) oCtrl.Enabled = False Next oCtrl 'Desabilita todos os comandos de Copiar For Each oCtrl In Application.CommandBars.FindControls(ID:=19) oCtrl.Enabled = False Next oCtrl Application.CellDragAndDrop = False End Sub Private Sub Workbook_Deactivate() Dim oCtrl As Office.CommandBarControl 'Habilita todos os comandos de Recortar For Each oCtrl In Application.CommandBars.FindControls(ID:=21) oCtrl.Enabled = True Next oCtrl 'Desabilita todos os comandos de Copiar For Each oCtrl In Application.CommandBars.FindControls(ID:=19) oCtrl.Enabled = True Next oCtrl Application.CellDragAndDrop = True End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) With Application .CellDragAndDrop = False .CutCopyMode = False 'limpa a área de transferência End With End Sub ___ Para a função de proibir a cópia/cola, funcionou perfeitamente! No entanto, quando fui executar outras macros da planilha deu errado. No formulário, há uma macro que copia o texto inserido e empilha depois em uma base e por causa desse Cutcopymode, o texto copiado se perde todo. Tentei deixar essa parte da macro condicionada a alguma planilha ou células ou ser interrompida em determinado momento. Mas não consegui. Se alguém puder me ajudar. valeu! Abs!