Este fórum está sendo desativado

[AndersonM]

E ai guruzada, beleza?


Preciso de uma ajuda com macro Vba. Já consegui uma macro do tipo, mas não funcionou acho que foi por conta de ter sido criada no excel 2013 e eu utilizar o 2007. A Plan trava inteira, faz tudo errado! kk.

Enfim, vamos lá! Estou precisando urgentemente de uma macro que Vá até a Plan10, apague tudo da A2 pra baixo Abra outra pasta de Trabalho, copie tudo da A2 pra baixo e cole na "Plan10" de novo. É uma atualização automática que me ajudará demais!! Quem puder ajudar, da essa força aí. Se possível uma que funcione no Excel 2007!

[Henrique]

AndresonM,

Bom dia!

O que você pediu está aqui:

Código: Selecionar todos

Sub Atualiza()
    Sheets("Plan10").Select
    Range("2:1048576").Select
    Selection.ClearContents
    Sheets.Add After:=ActiveSheet
' Substitua Plan2 pelo nome da aba que contém os dados que quer copiar para Plan10
    Sheets("Plan2").Select
    Range("2:1048576").Select
    Selection.Copy
    Sheets("Plan10").Select
    Range("A2").Select
    ActiveSheet.Paste
End Sub

[alexandrevba]

Bom dia!!

Você disse outra pasta de Trabalho (outro arquivo), o outro arquivo vai está fechado ou aberto?

Código: Selecionar todos

Sub AleVBA_592()
    Dim wb As Workbook, wb2 As Workbook
    Dim ws As Worksheet
    Dim vFile As Variant

    Set wb = ActiveWorkbook
    'Selecione o outro arquivo
    vFile = Application.GetOpenFilename("Excel-files,*.xls", _
        1, "Selecione o arquivo", , False)

    If TypeName(vFile) = "Boolean" Then Exit Sub
    Workbooks.Open vFile

    Set wb2 = ActiveWorkbook
    'wb2 seu arquivo ativo, favor adaptar
    wb2.Worksheets("Plan10").Range("A1:D200").Value = wb.Worksheets("Plan1").Range("A1:D200").Value
End Sub

Att

[AndersonM]

Inicialmente vai estar fechada meu amigo! Mas pelo que vi essa macro abre a proxima Plan na pasta. Vocês são FERAS demais, muito obrigado, me ajudou demais!!