Macro em planilha fechada


#1

Boa tarde,

Tenho uma planilha em que quero usar como banco de dados, vamos chamar de planilha y, porém ela não ficará aberta.
Quero fazer uma macro em que eu faça o que tem que ser feito em uma planilha x, apertar um botão e tudo que estiver na plan x salve na plan y sem abrir a y. A pan x, permanecerá aberta!

A plan x e y estarão com o mesmo numero de colunas, terá que inserir linhas para colar o que eu quero, mas isso sei fazer…

O problema é copiar da planilha aberta (x) e colar e salvar na planilha fechada (y).


#2

@Ghununes

Basta vc chamar a planilha fechada no código da planilha aberta, salvar as informações e fechar novamente!
De forma genérica é mais ou menos assim:

Sub ImportarValores()
    'Variáveis da Pasta de Trabalho que será aberta:
    Dim sCaminho As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng As Range
    Dim inicio As Integer
    Dim X As Integer
    Dim Y As Integer
    Dim sEspecificação As String
    Dim sTítulo As String

    'Variáveis desta Pasta de Trabalho
    Dim Analise As Worksheet
    Dim r As Long

    'Escolhe a Planilha de prova que será preenchida:
    sEspecificação = "Abrir Planilha(*.*),*.*"
    sTítulo = "Selecione um arquivo:"
    sCaminho = CStr(Application.GetOpenFilename(sEspecificação, , sTítulo, , False))
    
    If sCaminho <> CStr(False) Then
        Set wb = Workbooks.Open(sCaminho)
        Set ws = Worksheets("SUAABA")
        Set Analise = ThisWorkbook.Worksheets("SUAABADESTINO")
        With Analise
            For Y = 1 To 2500
                For X = 1 To 7
                    .Cells(Y + 1, X) = ws.Cells(Y, X)
                Next X
            Next Y
        End With
        wb.Close SaveChanges:=False
    Else
        MsgBox ("Nenhum arquivo selecionado")
    End If
Errhandler:
    Select Case err
        Case 9:
            MsgBox "Arquivo ERRADO"
            wb.Close SaveChanges:=False
    End Select
End Sub