none
Copiar e Colar em outra planilha VBA RRS feed

  • Pergunta

  • 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

    quarta-feira, 12 de junho de 2013 19:07

Todas as Respostas