Logo Hardware.com.br
piasserpa
piasserpa Novo Membro Registrado
3 Mensagens 0 Curtidas

Macro copia e cola se duas células iguais

#1 Por piasserpa 21/05/2022 - 05:34
Bom dia,

Preciso de uma macro para copiar valores de uma célula para outras células quando outras 2 células forem iguais, passo a explicar o que preciso:

Na folha com o nome Gráfico_SDemand_22, quando o valor da célula D3 for igual ao valor da célula A3 da folha com o nome Targets, copia o valor da célula B27 da folha Gráfico_SDemand_22 e cola na célula D6 da folha Gráfico_SDemand_22.

Na folha com o nome Gráfico_SDemand_22, quando o valor da célula E3 for igual ao valor da célula A3 da folha com o nome Targets, copia o valor da célula B27 da folha Gráfico_SDemand_22 e cola na célula E6 da folha Gráfico_SDemand_22.

e continua a fazer o mesmo até à coluna O inclusive.

Podem ajudar?

Grato antecipadamente
EdsonBR
EdsonBR Veterano Registrado
273 Mensagens 280 Curtidas
#2 Por EdsonBR
21/05/2022 - 10:15
Bom dia e bem vindo ao fórum, @piasserpa!

Como variam cada um desses intervalos D3:O3 e B27 da planilha (folha) Gráfico_SDemand_22 e A3 da Targets? Contêm fórmulas ou a entrada de dados é manual?
Preferivelmente sempre anexe um arquivo com estrutura pertinente à dúvida. Fica mais rápido pra vc receber respostas/soluções e facilita a quem for querer lhe auxiliar.
piasserpa
piasserpa Novo Membro Registrado
3 Mensagens 0 Curtidas
#5 Por piasserpa
23/05/2022 - 09:41
Muito obrigado, vou testar quando chegar a casa, mas poderia dizer-me também como fazer por fórmulas? Não estou mesmo a ver como se faz por fórmulas.

Muito obrigado pelo interesse em ajudar, mas não funciona como eu preciso, eu preciso que copie e cole, e esta opção mostra o valor na célula correta, mas quando muda o numero em A3 apaga o valor anterior e mostra apena o correspondente à célula dessa semana. Eu resolvi com esta opção.
Se puder partilhar como fazia com formulas da jeito que eu preciso eu agradeço muito, gostava de saber como se consegue sem Macro.

Sub ReplicaDados()

Dim i As Long

For i = 4 To 15
If Sheets("Gráfico_SDemand_22&quot.Cells(3, i) = Sheets("Targets&quot.[A3] And Sheets("Targets&quot.[A3] <> "" Then
Sheets("Gráfico_SDemand_22&quot.Cells(6, i) = Sheets("Gráfico_SDemand_22&quot.[B27]
End If
Next i

End Sub


Muito obrigado
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal