Copiar e Colar em outra planilha VBA

Question

Sub Copiar()

    Dim i As Long, Fim As Long

    Dim Linha As Long

    Dim Criterio1 As String

   

    Dim Coluna1 As Integer

   

    Sheets("Relatório").Select

    Fim = [A1].CurrentRegion.Rows.Count

   

    Criterio1 = "Sim"

    Coluna1 = 26

   

    Linha = 14

    For i = 14 To Fim

        If Cells(i, Coluna1).Value = Criterio1 Then

            Sheets("Relatório").Range(Cells(i, 14)).Copy Plan2.Cells(Linha, 1)

            Linha = Linha + 1

        End If

    Next

    MsgBox "Fim de execução da macro"

End Sub

grata pela ajuda

Answer 1

Olá, qual é sua pergunta?

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br