dlz140
Mensagens : 4 Data de inscrição : 11/12/2013
| Assunto: 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 | |
|
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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 | |
|
dlz140
Mensagens : 4 Data de inscrição : 11/12/2013
| Assunto: 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 | |
|
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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 Att | |
|
dlz140
Mensagens : 4 Data de inscrição : 11/12/2013
| Assunto: 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
Att Sem problemas, mesmo assim obrigado, quem sabe uma hora eu encontro uma luz..rs | |
|
Conteúdo patrocinado
| Assunto: Re: Copiando dados de uma planilha para outra via VBA | |
| |
|