Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Copiando dados de uma planilha para outra via VBA

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
dlz140



Mensagens : 4
Data de inscrição : 11/12/2013

MensagemAssunto: Copiando dados de uma planilha para outra via VBA   Qui Dez 12, 2013 12:37 am

Antes de mais nada quero pedir desculpas caso esteja pedindo ajuda no lugar errado, é a primeira vez que uso o fórum.

Geralmente consigo resolver os problemas apenas com exemplos e adaptando os códigos na minha necessidade, mas desta vez não estou conseguindo, sou bem persistente e só peço ajuda quando realmente não sei mais o que fazer.

Será um tanto complicado explicar o que preciso, mas vou tentar de uma forma bem simples.

Tenho uma planilha que uso como modelo, nesta planilha tem diversas abas com tudo o que preciso, para não precisar ficar copiando e colando para cada cliente, na tela principal digito o nome do cliente, do responsável e o telefone, criei um botão que seria um "salvar como..." que pega o nome do cliente e salva numa pasta. Cada cliente tem sua planilha e são alteradas diariamente. Até aí tudo bem. Agora preciso criar outra tabela que pegue os valores da aba (ref) destas tabelas para saber quem está com pendencias.
Usei o código (copiando dados de uma planilha para outra via VBA) no mesmo botão que salva as planilhas na pasta, está criando as tabelas e também inserindo os valores da aba (ref) na planilha Pendentes, uma linha após a outra perfeito, agora vem o meu problema, o código copia mas as planilhas são alteradas diariamente e a planilha Pendentes não se atualiza. Teria uma solução pra isso? Por mim teria feito em Access ou Delphi mas infelizmente preciso fazer isso em Excel.

Desculpa se está confuso, sei que está, mas além de não conseguir resolver também não sei como explicar.

Vou deixar o código do botão que estou usando, quem sabe ameniza um pouco minha ignorância em relatar o problema.

Desde já, muito obrigado e desculpe caso tenha postado ou feito qualquer coisa fora das normas.

Código:
Sub salvar_como()
  
Private Sub CommandButton1_Click()

    Dim lngLastRow As Long
    Dim wksOri As Worksheet
    Dim wkbDes As Workbook
    Dim wksDes As Worksheet
    
    With ThisWorkbook
        Set wksOri = ThisWorkbook.Worksheets("Ref")
        Set wkbDes = Workbooks.Open("D:\Gerenciamento_Facovi\Dados\Pendentes")
        Set wksDes = wkbDes.Worksheets("dados")
    End With
        
        lngLastRow = wksDes.Cells(wksDes.Rows.Count, "D").End(xlUp).Row + 1
    
    
        wksDes.Cells(lngLastRow, "D") = wksOri.Range("=Ref!C2") 'Cliente
        wksDes.Cells(lngLastRow, "F") = wksOri.Range("=Ref!L2") 'Valor Débito
        wksDes.Cells(lngLastRow, "H") = wksOri.Range("=Ref!I2") 'Fone
        wksDes.Cells(lngLastRow, "J") = wksOri.Range("=Ref!F2") 'Contato
        
        Application.ScreenUpdating = True
        wkbDes.Close SaveChanges:=True

    If Range("D27") = ("") Then

    MsgBox "Inserir um nome para cliente."
Exit Sub
   Else
  
    CommandButton1.Enabled = False
    Dim sTempPath As String
        sTempPath = "D:\Gerenciamento_Facovi\Cadastrados\"
        ActiveWorkbook.SaveAs Filename:=sTempPath & Range("D27").Value & ".xlsm" _
        , FileFormat:=52, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
        
    End If
    Range("D27") = ("")
    Range("D30") = ("")
    Range("D33") = ("")
    Range("D27").Select
    Application.Quit
    Application.DisplayAlerts = False

End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Copiando dados de uma planilha para outra via VBA   Qui Dez 12, 2013 6:36 pm

Boa tarde!!

Tem como postar seu arquivo?

Use o sendspace, depois cole o link aqui!!


Cole o link camuflado (w*w*w*.sendspace.com)
Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
dlz140



Mensagens : 4
Data de inscrição : 11/12/2013

MensagemAssunto: Link Sendspace   Qui Dez 12, 2013 7:04 pm

alexandrevba escreveu:
Boa tarde!!

Tem como postar seu arquivo?

Use o sendspace, depois cole o link aqui!!


Cole o link camuflado (w*w*w*.sendspace.com)
Att

Olá, segue link com o arquivo. Não repare no layout está bem exagerado, tem alguns erros que preciso ajustar, mas tirando o problema relatado está tudo sob controle.

Desde já muito obrigado pelo interesse.

w_w_w.sendspace.com/file/jghi3t
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Copiando dados de uma planilha para outra via VBA   Qui Dez 12, 2013 9:30 pm

Boa tarde!!

Me desculpa, mas eu vou deixar o pessoal que entendeu a questão e que saiba resolver, responder sua dúvida Crying or Very sad 


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
dlz140



Mensagens : 4
Data de inscrição : 11/12/2013

MensagemAssunto: Re: Copiando dados de uma planilha para outra via VBA   Qui Dez 12, 2013 9:41 pm

alexandrevba escreveu:
Boa tarde!!

Me desculpa, mas eu vou deixar o pessoal que entendeu a questão e que saiba resolver, responder sua dúvida Crying or Very sad 


Att

Sem problemas, mesmo assim obrigado, quem sabe uma hora eu encontro uma luz..rs
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Copiando dados de uma planilha para outra via VBA   Hoje à(s) 2:53 am

Voltar ao Topo Ir em baixo
 
Copiando dados de uma planilha para outra via VBA
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [Resolvido] Como ir para outra room sem parar os acontecimentos atuais?
» Redirecionamento para outra página
» "Atalho" para outra página
» Desviar visitas para outra url
» Redirecionar banidos para outra pagina de meu desejo

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: