Excel função do excel para vba

[Tentar]

Teria como colocar a função =se(e2<>"";datam(e2;6);"") para vba? Bloqueie a célula para alteração porém quando preciso alterar tenho que desbloquear. Colocando no vba ficaria mais fácil para não ter que desbloquear. Poderia ser para  a coluna E toda? 

[Scofieldgyn]

@Tentar

 

segue solução.

 

O código vba foi baseado na suposição que as datas estejam na coluna [E] conforme mencionou anteriormente, nesse caso eu coloquei pra colar a fórmula na coluna [F], mas você pode alterar a referência conforme desejar.

 

Sub ColarFormula()

Dim lin_fin As Double
lin_fin = Sheets("Planilha1").Range("E1048576").End(xlUp).Row
Range("F2:F" & lin_fin).FormulaR1C1 = "=IF(RC[-1]<>"""",EDATE(RC[-1],6),"""")"

End Sub

 

em relação ao bloqueio, não precisa fazer via vba, pode fazer com o próprio recurso do Excel.

 

Selecione a coluna que não quer que os usuários façama edições, depois vá em formatar, clique em bloquear célula, depois em Proteger planilha, agora você defini a senha em duas etapas e pronto.

[Tentar]

Não funcionou. Você poderia mandar uma planilha no vba? E, havia colocado assim como você mencionou, bloqueando a célula para não ser excluída ai tenho q colocar uma senha todas as vezes que quero excluir.

[Scofieldgyn]

@Tentar

Segue em anexo.

 

Coloquei um bloqueador de célula por vba na coluna [E].

VENCIMENTO.zip

[Tentar]

Não teria como colocar a fórmula em vba para ela não ficar exposta? Ai não precisa bloquear e nem macro

[Scofieldgyn]

@Tentar Nunca vi esse recurso meu caro.

 

Só há duas formas pra deixar do jeito que você quer:

 

1 - Bloquear para o usuário não digitar na célula via vba (É o que já está aplicado na planilha que te enviei) ou recurso nativo do Excel; 

2 - Vba que após colar a fórmula na célula, inserir uma outra instrução na rotina pra colar a mesma em valores.

[Tentar]

Não precisa bloquear, só queria que a função ficasse oculta via VBA sem precisar bloquear. 

[Scofieldgyn]

@Tentar Pra que eu consiga entender melhor o que você quer, me sinalize na própria planilha que te enviei, o que não quer o usuário veja.

 

Seria fórmula? 

[Tentar]

Sim, seria a fórmula. Fiz assim em bloquear e ocultar. Mas, todas as vezes que preciso alterar tenho que desbloquear a célula. 

[Scofieldgyn]

@Tentar veja se é isso que precisa.

 

anexo.

VENCIMENTO.zip

[Tentar]

Bom dia!

Ficou bom mas, ainda não seria isso. Na planilha consta como é, e gostaria que essa função fosse colocada no VBA. Não precisa colocar na macro para executar, ela seria executada quando digitasse, só que não ficaria visível como está. Não sei aplicar no VBA, por isso não fiz. Na planilha que você fez coloquei uma data e depois apertei a macro olha o que aconteceu. Como funciona?

 

VENCIMENTO v.02.zip

[OreiaG]

Em 03/08/2023 às 10:13, Tentar disse:

 

... ela seria executada quando digitasse ...

 

 

Veja se entendi: após você digitar um data na coluna A o código irá colocar um data correspondente a 6 meses à frente na coluna B.

 

O código deve ser colocado no módulo da Planilha1 (clique com o direito na guia da Planilha1 e selecione Exibir Código.

 

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column > 1 Then Exit Sub
 Target.Offset(, 1).Value = ""
 If IsDate(Target.Value) Then Target.Offset(, 1).Value = DateAdd("m", 6, Target.Value)
End Sub

 

[Tentar]

Isso, fechou. Só mais uma pergunta. No código consta em qual coluna esta o resultado? Não consegui visualisar  Valeu. agradeço a todos que me ajudaram.

[OreiaG]

A célula em que é colocado o resultado é determinada pela parte em vermelho na linha abaixo. Atualmente é colocado na coluna B.

If IsDate(Target.Value) Then Target.Offset(, 1).Value = DateAdd("m", 6, Target.Value)

 

Se você quiser o resultado em outra coluna, substitua o número 1 pelo [número da outra coluna menos 1], conforme exemplos abaixo:

resultado na coluna C (que é a coluna 3) >>> Target.Offset(, 2)

resultado na coluna D (que é a coluna 4) >>> Target.Offset(, 3)

resultado na coluna J (que é a coluna 10) >>>Target.Offset(, 9)

 

Conforme a coluna x que você escolher na linha acima, altere também na linha abaixo.

Target.Offset(, x).Value = ""

[Tentar]

Oie, foi esclarecido. Valeu mesmo

[Tentar]

Olá. Fiz a alteração na planilha origem e me resultou com: Erro em tempo de execução '1004: Erro de definição de aplicativo ou de definição de objeto.tenho a data na coluna E e o resultado da data na coluna I. Pode me ajudar? Na alteração fiz assim: 

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column > 5 Then Exit Sub
 Target.Offset(, 4).Value = ""
 If IsDate(Target.Value) Then Target.Offset(, 4).Value = DateAdd("m", 6, Target.Value)
End Sub

[OreiaG]

Olá.

O código que você alterou está certinho. A única recomendação é substituir > 5 por <> 5.

 

E se o erro que você apontou continuar aí precisaria de mais detalhes sobre a situação em que o erro aparece ou anexe o seu arquivo.

[Tentar]

Acho que agora foi. Vou continuar testando, se acaso voltar aviso aqui novamente. Valeu!