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

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

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