Visual Basic Como copiar e colar dados específicos no excel - VBA

[Catarina Silva]

Boa tarde,

Acho que o meu problema não é difícil, mas a falta de bases não ajuda. Já tentei algumas abordagens, mas não obtive nenhum resultado.

Resumidamente tenho uma tabela com ''nomes'' na primeira coluna, e na segunda uma espécie de ''check'' para saber se existe ou não a qual está preenchida por um 1 para evitar erros do Excel.

Então por exemplo

Nome     ''Check''
Maria         
Manel        1
Joana        1
Maria

O que eu precisava era de um ciclo no vba que me visse na coluna do check quais é que são iguais a 1, e que quando isso acontecesse os nomes fossem copiados por exemplo para um coluna ao lado. De forma a ter no relatório uma lista daqueles que cumprem a condição e sendo iguais a 1.

Alguém me consegue ajudar?

Obrigado.

[Basole]

Veja se e isso que deseja:

 

* Crie um modulo e cole o codigo abaixo

 *Aperte as teclas alt+F8 e execute a macro

Sub Copiar_colar_dados_específicos_no_excel()
Dim r As Range
Dim E1 As String
Dim Lr!

Set r = ActiveSheet.Columns(2).Find(1)
  If Not r Is Nothing Then
  E1 = r.Address
  Lr = Cells(Rows.Count, 3).End(xlUp).Offset(1).Row
  Cells(Lr, 3) = r.Offset(, -1).Value2
        Do
          Set r = ActiveSheet.Columns(2).FindNext(r)
              If r Is Nothing Or r.Address = E1 Then
                Exit Do
              Else
                  Lr = Cells(Rows.Count, 3).End(xlUp).Offset(1).Row
                  Cells(Lr, 3) = r.Offset(, -1).Value2
              End If
        Loop
  End If
  
End Sub