piasserpa
-
Total de itens
5 -
Registro em
-
Última visita
Posts postados por piasserpa
-
-
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
-
Olá Luana,
Não tem de pedir desculpa, eu é que agradeço a disponibilidade em procurar ajudar.
Continua a dar erro na mesma linha, mas consegui fazer assim dessa maneira.
Sub CopiaeCola()
Dim k As Long
For k = 4 To 56
If Cells(30, k) = [A1] Then Cells(31, k).Resize(6).Value = [C22:C27].Value: Exit Sub
Next k
End SubObrigado pela disponibilidade
-
Olá Luana,
Obrigado pela resposta.
Dá erro nessa linha "Set valor = Planilha1.Range("a1")" eu troquei o "Planilha1" pelo nome da minha planilha e não funciona.
Obrigado
-
Queria uma macro para copiar valores de umas células quando o valor de uma célula é igual ao valor de outra célula e colar valor noutras células. Ex: se o valor da célula A1 for = ao valor da célula H30 então copia os valores das células C22; C23; C24; C25; C26; C27 e cola valores nas células H31; H32; H33; H34; H35; H36. se o valor da célula A1 for = ao valor da célula I30 então copia os valores das células C22; C23; C24; C25; C26; C27 e cola valores nas células I31; I32; I33; I34; I35; I36. A1 for = ao valor da célula J30 então copia os valores das células C22; C23; C24; C25; C26; C27 e cola valores nas células J31; J32; J33; J34; J35; J36 e assim por diante coluna após coluna.
Ex: encontra o valor da célula A1 na célula H30, então copia os valores das células C22; C23; C24;
C25; C26; C27 e cola nas células H31; H32; H33; H34; H35; H36. Se o valor da célula A1 for encontrado na célula K30 então
cola nas células K31; K32; K33; K34; K35; K36
As células do exemplo são as que estou usando na planilha.
Obrigado.
Macro copia e cola se duas células iguais
em VBA
Postado
Muito obrigado pelo interesse em ajudar, estive a testar e não funciona.
Encontrei esta forma que resolveu o meu problema.
Sub ReplicaDados()
Dim i As Long
For i = 4 To 15
If Sheets("Gráfico_SDemand_22").Cells(3, i) = Sheets("Targets").[A3] And Sheets("Targets").[A3] <> "" Then
Sheets("Gráfico_SDemand_22").Cells(6, i) = Sheets("Gráfico_SDemand_22").[B27]
End If
Next i
End Sub