none
Copiar células e colar valores se o valor de uma célula for igual a outra célula. RRS feed

  • Pergunta

  • Queria fazer 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. Criar botão para executar a macro. Acha que é possível fazer isto? Acha que me consegue ajudar? Obrigado.
    domingo, 16 de maio de 2021 10:49

Todas as Respostas

  • Pias,

        Montei esta solução abaixo. Espero que ajude.

    Private Sub CmdCopiaColaCelulas_Click()
        Dim str As String
        Dim strValue As String
        Dim strA1 As String
    
        Sheets("Planilha1").Select
           
        str = Application.InputBox("Entre com a letra da coluna")
          
        strA1 = Range("A1").Value
        strValue = Range(str + "30").Value
        
        If strA1 = strValue Then
            Range("C22:C27").Select
            Selection.Copy
            Range(str + "31").Select
            ActiveSheet.Paste
        End If
    
    End Sub

        Links interessantes:

    ========================
    Método Application.InputBox (Excel)

    https://docs.microsoft.com/pt-br/office/vba/api/excel.application.inputbox
    ========================
    Método Range.Copy (Excel)

    https://docs.microsoft.com/pt-br/office/vba/api/excel.range.copy
    ========================

    []'s,
    Fabio I.
    • Editado Fabio I domingo, 16 de maio de 2021 12:04
    domingo, 16 de maio de 2021 12:03
  • Olá Fabio,

    Não está a funcionar, de qualquer forma o código que me enviou parece ser apenas para colar uma vez ou para colar sempre nas mesmas células e não é assim, se reparar no exemplo que dei vai procurar o valor da célula A1 na linha 30 e quando encontrar cola nas células abaixo dessa célula da linha 30. Não sei se percebeu.

    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

    segunda-feira, 17 de maio de 2021 18:10