Ir para conteúdo
Fórum Script Brasil
  • 0

COPIAR CÉLULAS E COLAR VALORES SE O VALOR DE UMA CÉLULA FOR IGUAL A OUTRA CÉLULA.


piasserpa

Pergunta

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.

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

Boa tarde, veja se esse código pode te ajudar :

Coloquei Planilha1, mas adapte a seu modo e coloque o nome da sua planilha

Sub copiaecola()

Dim valor As Range

Set valor = Planilha1.Range("a1")

With Planilha1
    If .Range("H30").Value = valor Then
        .Range("C22:C27").Copy .Range("H31")
    ElseIf .Range("K30").Value = valor Then
        .Range("C22:C27").Copy .Range("K31")
    End If
End With
End Sub

 

Editado por Luana Bailon
Link para o comentário
Compartilhar em outros sites

  • 0

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 Sub

 

Obrigado pela disponibilidade

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...