Fóruns
Microsoft Excel - 2...
2024 - Fórmulas Ava...
clonando valor de c...
 
Notifications
Clear all

clonando valor de célula sem fórmula

 
2024 - Fórmulas Avançadas - Funções Microsoft Excel
Post Recente por xlarruda 7 anos atrás
4 Posts
2 Usuários
0 Reactions
575 Visualizações
RSS
 robsonleo
(@robsonleo)
Posts: 5
Active Member
Topic starter
 

pessoal outra dúvidas, não estou conseguindo fazer e nem encontrar a resposta, sei que os senhores irão me ajudar..

exemplo:

tenho um valor na célula E1,

gostaria que esse mesmo valor estivesse na célula A1,B1,C1. ótimo isso consigo fazer colocando um simples sinal de =.

perfeito, porem, nas células A2, B2, C2, deverá aparecer o mesmo valor, porem sem fórmula nenhuma, para que eu pudesse digitar outro valor caso eu queira, mas sem perder a fórmula.

existe um comando assim?

grato

 
Postado : 13/12/2017 5:47 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Se entendi bem acho que você quer isso...

Avisa aí caso não for

Abrç!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 13/12/2017 6:04 am
 robsonleo
(@robsonleo)
Posts: 5
Active Member
Topic starter
 

exatamente... isso.... como é feito??

 
Postado : 13/12/2017 8:51 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Resolvi com VBA..

Através desse código

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Rows.Count > 1 Or IsEmpty(Target) And Target.Column <> 5 And Target.Row <> 1 Then
Exit Sub
End If

If Target.Column = 5 And Target.Row = 1 Then
On Error Resume Next
[Plan1].Range("A2:C2").Value = [Plan1].Range("E1").Value
If Target.Value = Empty Then
[Plan1].Range("A2:C2").Value = "0"
End If
End If


End Sub

Se foi útil, por favor, clica no Joinha!

Abrç!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 13/12/2017 8:56 am
Forum Jump:
  Tópico Anterior
Próximo Tópico