Macro excel

Eduardo.torres · 19 de abril de 2013

Bom dia a todos!

Estou com um belo de um problema... trabalho com uma planilha do excel que contém 4 abas, exemplo , aba1, aba2, aba3 e geral... as 3 primeiras abas são informações que puxo do sistema de minha empresa diariamente, e por se tratar de notas fiscais, todos os dias aumenta a quantidade de linhas, e na aba "geral" eu junto as 3 planilhas nesta aba e ai organizo por data e blá blá blá..o que preciso da ajuda de vocês, é que esta macro selecione todas as linhas das primeiras abas, pois está selecionando somente a quantidade de linhas que teve no dia que gravei a macro... na hora que estava gravando a macro, pressionei ctrl+t para selecionar a planilha inteira... mas ai no outro dia, a planilha não tinha mais 100 linhas, tinha 150, mas na aba geral a macro só puxou 100 linhas... man.. tomara que tenha conseguido explicar... me ajudaria muito, pois é um processo maçante e sei que dá para fazer tudo pela macro, só falta algum detalhe...

Me ajudem por favor!!!!!

meu excel é o 2010.

Midori · 19 de abril de 2013

Sugiro que você declare uma variável Long que receberá a última linha com dados.

Vamos supor que sua tabela comece na coluna B3. Fiz apenas um exemplo para a primeira aba, mas essa macro pode ser facilmente adaptada para as demais abas.


Sub Main()
    Dim lngUltimaLinha  As Long
    Dim AreaLinhas      As Range

    With ThisWorkbook.Worksheets("aba1")
        lngUltimaLinha = .Range("B65536").End(xlUp).Row

        Set AreaLinhas = .Range("B3:B" & lngUltimaLinha).EntireRow

            AreaLinhas.Select

    End With
End Sub

Veja que considero que a coluna B não aceita registros em branco, pois é nessa coluna que verifico qual é a última linha em branco, para atribuir o range de todas as linhas. Mas você pode adaptar conforme seu caso.

Patropi · 19 de abril de 2013

Boa tarde

No link abaixo tem uma explicação do que você deseja:

http://pt.kioskea.net/faq/9238-vba-ultima-linha-nao-vazia-todas-as-versões

Dê retorno.

Abraço.

Eduardo.torres · 19 de abril de 2013

primeiramente, obrigado pela ajuda, porém tenho dúvida, na hora que vou depurar o codigo vba, aonde que coloco esta programação?

posso enviar copiar o código vba inteiro se for facilitar... agradeceria imensamente ajuda

para facilitar

Sub organizador()

'

' organizador Macro

'

Sheets("CPQ").Select

Range("A1:AL870").Select

Selection.Copy

Sheets("Geral").Select

Range("A1").Select

ActiveSheet.Paste

End Sub

Como faço para quando eu colocar na base mais informações puxar mais linhas não só as 870?

Patropi · 20 de abril de 2013

Boa tarde Eduardo

Experimente copiar e colar está macro:

Sub organizador()
Application.EnableEvents = False
Sheets("CPQ").Select
Range("A1:AL10000").Select
Selection.Copy
Sheets("Geral").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.EnableEvents = True
End Sub

Um abraço.

Eduardo.torres · 22 de abril de 2013

Bom dia...obrigado pela ajuda, porém ainda tenho dúvidas....

Preciso que a macro rode da seguinte maneira.

- Copia tudo da aba "cpq"

- Cole na aba "geral"

-copie tudo da aba "catalão"

- Cole na aba "geral" porém na ultima linha que foi colada as informações da aba "cpq"

- Copie tudo na aba "water"

- Cole na aba "geral" porém na ultima linha que foi colada as informações da aba "catalão"

é que a programação abaixo está programado para colar até certa linha, e a minha planilha aumenta a quantidade de linhas diariamente, portanto, precisa aumentar a quantidade de linhas copiada e consequentemente irá colar mais linhas.... se todos os dias fossem a mesma quantidade de linhas, esta macro rodaria perfeitamente.... abaixo segue a macro inteira.. por favor .. me ajudem!!!!!

Sub Organizator()

'

' Organizator Macro

'

Sheets("CPQ").Select

Range("A1:AL922").Select

Selection.Copy

Sheets("Geral").Select

Range("B1").Select

ActiveSheet.Paste

Range("A1").Select

Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = "Cidade"

Range("A2").Select

ActiveCell.FormulaR1C1 = "Campinas"

Range("A2").Select

Selection.Copy

Range("B2").Select

Selection.End(xlDown).Select

Range("A922").Select

Range(Selection, Selection.End(xlUp)).Select

Range("A3:A922").Select

Range("A922").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

Range("B923").Select

Sheets("Catalão").Select

Range("A1:AL922").Select

Selection.Copy

Sheets("Geral").Select

ActiveSheet.Paste

Range("A923").Select

Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = "Catalão"

Range("A923").Select

Selection.Copy

Range("B923").Select

Selection.End(xlDown).Select

Range("A1844").Select

Range(Selection, Selection.End(xlUp)).Select

Range("A924:A1844").Select

Range("A1844").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

Range("A1845").Select

Sheets("Water").Select

Range("A1:AL922").Select

Selection.Copy

Sheets("Geral").Select

Range("B1845").Select

ActiveSheet.Paste

Range("A1845").Select

Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = "Water"

Range("A1845").Select

Selection.Copy

Range("B1845").Select

Selection.End(xlDown).Select

Range("A2766").Select

Range(Selection, Selection.End(xlUp)).Select

Range("A1846:A2766").Select

Range("A2766").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

Selection.End(xlUp).Select

Cells.Select

Range("F1").Activate

Cells.EntireColumn.AutoFit

Columns("Z:AB").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Columns("Y:Y").Select

Selection.TextToColumns Destination:=Range("Y1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _

Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _

:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

Range("Z1").Select

ActiveCell.FormulaR1C1 = "Estado"

Range("AA1").Select

ActiveCell.FormulaR1C1 = "Responsável"

Range("AB1").Select

ActiveCell.FormulaR1C1 = "Cumprimento Janela"

Columns("AF:AF").Select

Selection.EntireColumn.Hidden = True

Columns("AG:AG").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Columns("AH:AQ").Select

Selection.EntireColumn.Hidden = True

Range("AG1").Select

ActiveCell.FormulaR1C1 = "Status"

Range("AB2").Select

ActiveCell.FormulaR1C1 = _

"=IF(RC[2]="""",""sem info"",IF(RC[1]<RC[2],""atrasado"",IF(RC[1]=RC[2],""no horário"",IF(RC[1]>RC[2],""adiantado""))))"

Range("AB2").Select

Selection.Copy

Range("AC2").Select

Selection.End(xlDown).Select

Range("AB2766").Select

Range(Selection, Selection.End(xlUp)).Select

Range("AB3:AB2766").Select

Range("AB2766").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

Range("AB2765").Select

Selection.End(xlUp).Select

Range("AG2").Select

ActiveCell.FormulaR1C1 = _

"=IF(RC[-3]="""",""branco"",IF(RC[-2]="""",""branco"",IF(RC[-3]>RC[-2],""errado"",IF(RC[-3]<RC[-2],""certo""))))"

Range("AG2").Select

Selection.Copy

Range("AC2").Select

Selection.End(xlDown).Select

Range("AG2766").Select

Range(Selection, Selection.End(xlUp)).Select

Range("AG3:AG2766").Select

Range("AG2766").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

Range("AG2765").Select

Selection.End(xlUp).Select

Range("A1").Select

Range(Selection, Selection.End(xlToRight)).Select

Selection.AutoFilter

Range("D1").Select

ActiveWorkbook.Worksheets("Geral").AutoFilter.Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Geral").AutoFilter.Sort.SortFields.Add Key:=Range( _

"D1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

With ActiveWorkbook.Worksheets("Geral").AutoFilter.Sort

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Range("D2").Select

Selection.End(xlDown).Select

Selection.End(xlUp).Select

ActiveSheet.Range("$A$1:$AG$2766").AutoFilter Field:=4, Criteria1:= _

"Data de Coleta"

Rows("2726:2766").Select

Selection.Delete Shift:=xlUp

Selection.End(xlDown).Select

Selection.End(xlUp).Select

Range("D1").Select

ActiveSheet.Range("$A$1:$AG$2725").AutoFilter Field:=4

Range("U1").Select

Columns("Q:Q").ColumnWidth = 35.71

Application.FormulaBarHeight = 2

Range("W2").Select

ActiveCell.FormulaR1C1 = _

"=VLOOKUP(RC[-10],'base informações PR'!C[-22]:C[-12],11,0)"

Range("W2").Select

Selection.Copy

Range("V2").Select

Selection.End(xlDown).Select

Range("W2725").Select

Range(Selection, Selection.End(xlUp)).Select

Range("W2:W2725").Select

Range("W2725").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

Selection.End(xlUp).Select

Columns("W:W").Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Range("W1").Select

ActiveSheet.Range("$A$1:$AG$2725").AutoFilter Field:=23, Criteria1:=Array( _

"COLETA NAO EFETUADA", "coletado por outra transportadora/sem info", _

"emitido somente para efeito de cobrança", _

"entrega, emitido somente por efeito de cobrança"), Operator:=xlFilterValues

Selection.End(xlToRight).Select

Range("AG2").Select

ActiveCell.FormulaR1C1 = "certo"

Range("AG2").Select

Selection.Copy

Range(Selection, Selection.End(xlDown)).Select

ActiveSheet.Paste

Application.CutCopyMode = False

Range("W1").Select

ActiveSheet.Range("$A$1:$AG$2725").AutoFilter Field:=23, Criteria1:="=0", _

Operator:=xlOr, Criteria2:="=#N/D"

Range("W4").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.ClearContents

Range("W1").Select

ActiveSheet.Range("$A$1:$AG$2725").AutoFilter Field:=23

Range("Z1").Select

ActiveSheet.Range("$A$1:$AG$2725").AutoFilter Field:=26, Criteria1:="=PR", _

Operator:=xlOr, Criteria2:="=SC"

Range("AA2").Select

ActiveCell.FormulaR1C1 = "Thany"

Range("AA2").Select

Selection.Copy

Range("Z2").Select

Selection.End(xlDown).Select

Range("AA2678").Select

Range(Selection, Selection.End(xlUp)).Select

Range("AA3:AA2678").Select

Range("AA2678").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

Selection.End(xlUp).Select

Range("Z1").Select

ActiveSheet.Range("$A$1:$AG$2725").AutoFilter Field:=26, Criteria1:="=MG", _

Operator:=xlOr, Criteria2:="=SP"

Range("AA11").Select

ActiveCell.FormulaR1C1 = "Ricardo/ Fernando"

Range("AA11").Select

Selection.Copy

Range("Z11").Select

Selection.End(xlDown).Select

Range("AA2725").Select

Range(Selection, Selection.End(xlUp)).Select

Range("AA12:AA2725").Select

Range("AA2725").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

Selection.End(xlUp).Select

Range("Z1").Select

ActiveSheet.Range("$A$1:$AG$2725").AutoFilter Field:=26, Criteria1:="MG"

Range("AA450").Select

ActiveCell.FormulaR1C1 = "João/ Catalão"

Range("AA450").Select

Selection.Copy

Range(Selection, Selection.End(xlDown)).Select

ActiveSheet.Paste

Application.CutCopyMode = False

Range("Z1").Select

ActiveSheet.Range("$A$1:$AG$2725").AutoFilter Field:=26, Criteria1:="RS"

Range("AA48").Select

ActiveCell.FormulaR1C1 = "Rhaine/ Robson"

Range("AA48").Select

Selection.Copy

Range("AB49").Select

Selection.End(xlDown).Select

Range("AA2719").Select

Range(Selection, Selection.End(xlUp)).Select

Range("AA49:AA2719").Select

Range("AA2719").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

Selection.End(xlUp).Select

Range("Z1").Select

ActiveSheet.Range("$A$1:$AG$2725").AutoFilter Field:=26

Range("A1").Select

Selection.End(xlDown).Select

Selection.End(xlUp).Select

Selection.End(xlToRight).Select

End Sub

Márcio Rodrigues · 22 de abril de 2013

Olá Eduardo.torres

Fiz de outra forma, veja se atende:

http://www.sendspace.com/file/ck3533

Márcio

Eduardo.torres · 22 de abril de 2013

Boa tarde!

Preciso de uma ajuda... trabalho com informações de notas fiscais, portanto a minha database aumenta diariamente, preciso saber:

- como fazer esta macro sempre selecione a planilha inteira da aba 1 copie e cole na aba 3, na aba 2, também copiar inteira a planilha e colar na aba 3, logo abaixo das informações coladas anteriormente.

Me ajudem por favor!!!!!!!

Sub teste()

'

' teste Macro

'

Sheets("Plan1").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Plan3").Select

ActiveSheet.Paste

Sheets("Plan2").Select

Range("A1:AG10").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Plan3").Select

Range("A11").Select

ActiveSheet.Paste

Range("A11").Select

End Sub

Márcio Rodrigues · 22 de abril de 2013

Olá Eduardo.torres

Não é a mesma questão que respondi hoje?

Márcio

Eduardo.torres · 22 de abril de 2013

se possível, gostaria de manter esta mesma base e alterar somente as partes que selecione a planilha inteira e cole ela no lugar e linha certo... mas o raciocinio é este que foi enviado...

é possível manter esta base, pois ai já está programado todas as outras funções que a macro tem que executar

Agradeço muito a ajuda de todos, e continuo quebrando a cabeça tentando descobrir

Eduardo.torres · 22 de abril de 2013

Márcio, olá...

é que gostaria de saber uma maneira que não mudasse muito aquela base....usando esta base, o que preciso mudar para que atenda a minha dúvida?

abaixo segue modelo utilizado, a unica ponto que precisa mudar é que copie a planilha inteira e cole as informações uma em sequencia da outra, unindo as planilhas

alguém consegue me ajudar por favor?

Sub Organizator()

'

' Organizator Macro

'

Sheets("CPQ").Select

Range("A1:AL922").Select

Selection.Copy

Sheets("Geral").Select

Range("B1").Select

ActiveSheet.Paste

Range("A1").Select

Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = "Cidade"

Range("A2").Select

ActiveCell.FormulaR1C1 = "Campinas"

Range("A2").Select

Selection.Copy

Range("B2").Select

Selection.End(xlDown).Select

Range("A922").Select

Range(Selection, Selection.End(xlUp)).Select

Range("A3:A922").Select

Range("A922").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

Range("B923").Select

Sheets("Catalão").Select

Range("A1:AL922").Select

Selection.Copy

Sheets("Geral").Select

ActiveSheet.Paste

Range("A923").Select

Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = "Catalão"

Range("A923").Select

Selection.Copy

Range("B923").Select

Selection.End(xlDown).Select

Range("A1844").Select

Range(Selection, Selection.End(xlUp)).Select

Range("A924:A1844").Select

Range("A1844").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

Range("A1845").Select

Sheets("Water").Select

Range("A1:AL922").Select

Selection.Copy

Sheets("Geral").Select

Range("B1845").Select

ActiveSheet.Paste

Range("A1845").Select

Application.CutCopyMode = False

ActiveCell.FormulaR1C1 = "Water"

Range("A1845").Select

Selection.Copy

Range("B1845").Select

Selection.End(xlDown).Select

Range("A2766").Select

Range(Selection, Selection.End(xlUp)).Select

Range("A1846:A2766").Select

Range("A2766").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

Selection.End(xlUp).Select

Cells.Select

Range("F1").Activate

Cells.EntireColumn.AutoFit

Columns("Z:AB").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Columns("Y:Y").Select

Selection.TextToColumns Destination:=Range("Y1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _

Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _

:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

Range("Z1").Select

ActiveCell.FormulaR1C1 = "Estado"

Range("AA1").Select

ActiveCell.FormulaR1C1 = "Responsável"

Range("AB1").Select

ActiveCell.FormulaR1C1 = "Cumprimento Janela"

Columns("AF:AF").Select

Selection.EntireColumn.Hidden = True

Columns("AG:AG").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Columns("AH:AQ").Select

Selection.EntireColumn.Hidden = True

Range("AG1").Select

ActiveCell.FormulaR1C1 = "Status"

Range("AB2").Select

ActiveCell.FormulaR1C1 = _

"=IF(RC[2]="""",""sem info"",IF(RC[1]<RC[2],""atrasado"",IF(RC[1]=RC[2],""no horário"",IF(RC[1]>RC[2],""adiantado""))))"

Range("AB2").Select

Selection.Copy

Range("AC2").Select

Selection.End(xlDown).Select

Range("AB2766").Select

Range(Selection, Selection.End(xlUp)).Select

Range("AB3:AB2766").Select

Range("AB2766").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

Range("AB2765").Select

Selection.End(xlUp).Select

Range("AG2").Select

ActiveCell.FormulaR1C1 = _

"=IF(RC[-3]="""",""branco"",IF(RC[-2]="""",""branco"",IF(RC[-3]>RC[-2],""errado"",IF(RC[-3]<RC[-2],""certo""))))"

Range("AG2").Select

Selection.Copy

Range("AC2").Select

Selection.End(xlDown).Select

Range("AG2766").Select

Range(Selection, Selection.End(xlUp)).Select

Range("AG3:AG2766").Select

Range("AG2766").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

Range("AG2765").Select

Selection.End(xlUp).Select

Range("A1").Select

Range(Selection, Selection.End(xlToRight)).Select

Selection.AutoFilter

Range("D1").Select

ActiveWorkbook.Worksheets("Geral").AutoFilter.Sort .SortFields.Clear

ActiveWorkbook.Worksheets("Geral").AutoFilter.Sort .SortFields.Add Key:=Range( _

"D1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

With ActiveWorkbook.Worksheets("Geral").AutoFilter.Sort

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Range("D2").Select

Selection.End(xlDown).Select

Selection.End(xlUp).Select

ActiveSheet.Range("$A$1:$AG$2766").AutoFilter Field:=4, Criteria1:= _

"Data de Coleta"

Rows("2726:2766").Select

Selection.Delete Shift:=xlUp

Selection.End(xlDown).Select

Selection.End(xlUp).Select

Range("D1").Select

ActiveSheet.Range("$A$1:$AG$2725").AutoFilter Field:=4

Range("U1").Select

Columns("Q:Q").ColumnWidth = 35.71

Application.FormulaBarHeight = 2

Range("W2").Select

ActiveCell.FormulaR1C1 = _

"=VLOOKUP(RC[-10],'base informações PR'!C[-22]:C[-12],11,0)"

Range("W2").Select

Selection.Copy

Range("V2").Select

Selection.End(xlDown).Select

Range("W2725").Select

Range(Selection, Selection.End(xlUp)).Select

Range("W2:W2725").Select

Range("W2725").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

Selection.End(xlUp).Select

Columns("W:W").Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Range("W1").Select

ActiveSheet.Range("$A$1:$AG$2725").AutoFilter Field:=23, Criteria1:=Array( _

"COLETA NAO EFETUADA", "coletado por outra transportadora/sem info", _

"emitido somente para efeito de cobrança", _

"entrega, emitido somente por efeito de cobrança"), Operator:=xlFilterValues

Selection.End(xlToRight).Select

Range("AG2").Select

ActiveCell.FormulaR1C1 = "certo"

Range("AG2").Select

Selection.Copy

Range(Selection, Selection.End(xlDown)).Select

ActiveSheet.Paste

Application.CutCopyMode = False

Range("W1").Select

ActiveSheet.Range("$A$1:$AG$2725").AutoFilter Field:=23, Criteria1:="=0", _

Operator:=xlOr, Criteria2:="=#N/D"

Range("W4").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.ClearContents

Range("W1").Select

ActiveSheet.Range("$A$1:$AG$2725").AutoFilter Field:=23

Range("Z1").Select

ActiveSheet.Range("$A$1:$AG$2725").AutoFilter Field:=26, Criteria1:="=PR", _

Operator:=xlOr, Criteria2:="=SC"

Range("AA2").Select

ActiveCell.FormulaR1C1 = "Thany"

Range("AA2").Select

Selection.Copy

Range("Z2").Select

Selection.End(xlDown).Select

Range("AA2678").Select

Range(Selection, Selection.End(xlUp)).Select

Range("AA3:AA2678").Select

Range("AA2678").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

Selection.End(xlUp).Select

Range("Z1").Select

ActiveSheet.Range("$A$1:$AG$2725").AutoFilter Field:=26, Criteria1:="=MG", _

Operator:=xlOr, Criteria2:="=SP"

Range("AA11").Select

ActiveCell.FormulaR1C1 = "Ricardo/ Fernando"

Range("AA11").Select

Selection.Copy

Range("Z11").Select

Selection.End(xlDown).Select

Range("AA2725").Select

Range(Selection, Selection.End(xlUp)).Select

Range("AA12:AA2725").Select

Range("AA2725").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

Selection.End(xlUp).Select

Range("Z1").Select

ActiveSheet.Range("$A$1:$AG$2725").AutoFilter Field:=26, Criteria1:="MG"

Range("AA450").Select

ActiveCell.FormulaR1C1 = "João/ Catalão"

Range("AA450").Select

Selection.Copy

Range(Selection, Selection.End(xlDown)).Select

ActiveSheet.Paste

Application.CutCopyMode = False

Range("Z1").Select

ActiveSheet.Range("$A$1:$AG$2725").AutoFilter Field:=26, Criteria1:="RS"

Range("AA48").Select

ActiveCell.FormulaR1C1 = "Rhaine/ Robson"

Range("AA48").Select

Selection.Copy

Range("AB49").Select

Selection.End(xlDown).Select

Range("AA2719").Select

Range(Selection, Selection.End(xlUp)).Select

Range("AA49:AA2719").Select

Range("AA2719").Activate

ActiveSheet.Paste

Application.CutCopyMode = False

Selection.End(xlUp).Select

Range("Z1").Select

ActiveSheet.Range("$A$1:$AG$2725").AutoFilter Field:=26

Range("A1").Select

Selection.End(xlDown).Select

Selection.End(xlUp).Select

Selection.End(xlToRight).Select

End Sub

Márcio Rodrigues · 22 de abril de 2013

Olá Eduardo.torres

Tem como você mandar os arquivos para teste?

Márcio

Entrar

Macro excel

Posts recomendados

Eduardo.torres

Midori

Patropi

Eduardo.torres

Patropi

Eduardo.torres

Márcio Rodrigues

Eduardo.torres

Márcio Rodrigues

Eduardo.torres

Eduardo.torres

Márcio Rodrigues

Arquivado

Quem está navegando aqui 0 usuários estão online

Últimos tópicos

Livros

Cursos

Conteúdo recente

Sobre o Clube do Hardware

Direitos autorais

Mais

Fórum

Atividades

Artigos

Análises

Livros

Cursos