COPIAR E COLAR EM DIRETÓRIO DIFERENTE

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

COPIAR E COLAR EM DIRETÓRIO DIFERENTE

Mensagempor Maiato_23 » Sex Jul 12, 2019 3:25 pm

Pessoal,

Tenho uma macro que copia e cola até o ultimo valor, sem apontar "zero" para aqueles casos que só tem fórmula vazia!
Em suma, me atende perfeitamente copiando de uma "Aba" para outra.
Ocorre, que em outro caso preciso copiar uma "Aba oculta", que está em um arquivo aleatório no servidor (ex. D/contas/...).

Gostaria de pegar os valores desta ABA oculta, que esta em um arquivo aleatório e copiar para outro arquivo, que está em outra pasta (ex: C/contasatuais/...)

Abaixo segue o código que tenho e que necessito de ajuda!

Código: Selecionar todos
Sub Copiar_Colar_MESMO ARQUIVO()
Dim uLin As Long
uLin = Application.WorksheetFunction.Count(Sheets("plan1").Range("A:A"))

Sheets("Plan1").Select 'PLANILHA DE ORIGEM
Range("A2:A" & uLin).Select 'esse é o código que precisa selecionar só as células preenchidas.
Application.CutCopyMode = False
Selection.Copy

Sheets("Plan2").Select 'PLANILHA DE DESTINO
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub
Maiato_23
Membro
Membro
 
Mensagens: 1
Registrado em: Qua Jun 21, 2017 9:47 am
Has thanked: 0 time
Have thanks: 0 time

{ SO_SELECT }

Re: COPIAR E COLAR EM DIRETÓRIO DIFERENTE

Mensagempor denisw » Dom Jul 14, 2019 2:00 pm

Eu uso codigo abaixo para localizar um dado especifico que colco no textbox "vaores" ele abre todas as planilhas no diretorio e procura a informação colocada no box , retornando em qual planilha esta a informação e abrindo a planilha, no seu caso talvez deverá tratar a aba oculta hide e dai incluir a a rotina copiar e colar q vc ja tem.
Código: Selecionar todos
Public Sub Procurar_Click()
Dim stNome      As String
Dim stPasta     As String
Dim stArq       As String
Application.ScreenUpdating = False
stPasta = "W:\ARQUIVOSEXCEL\PLANILHAS\Import"  'ENDEREÇO DO DIRETÓRIO
stArq = Dir(stPasta & "*.xl*")
         
Do Until stArq = ""
stArq = stPasta & stArq
        Workbooks.Open Filename:=stArq
If Tlote.Value <> "" Then
Tlote.Text = Empty
If Tcaixa.Value <> "" Then
Tcaixa.Value = Empty
End If
End If
For Each aba In Worksheets
With aba.Cells
Set procu = .Find(What:=Valores.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not procu Is Nothing Then
Tlote.Text = stArq
Tcaixa.Value = aba.Name
Exit Sub
End If
End With
Next
ActiveWorkbook.Close SaveChanges:=False
stArq = Dir()
Loop
MsgBox "TERMINOU A BUSCA"
End Sub
denisw
Membro
Membro
 
Mensagens: 65
Registrado em: Qui Dez 26, 2013 1:24 pm
Has thanked: 22 times
Have thanks: 3 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google [Bot] e 4 visitantes