Notifications
Clear all

Atualizar demais planilhas automaticamente.

7 Posts
2 Usuários
0 Reactions
1,821 Visualizações
(@kayomaster)
Posts: 0
New Member
Topic starter
 

Oi gente, eu gostaria de uma orientação, não sei como fazer, ou se tem algo pratico que possa fazer o que preciso.
Eu tenho uma planilha que tem o controle de produtos e vendas de todos os estabelecimentos que tenho uma parceria e coloco alguns produtos meus com eles. E tenho um site onde estou tentando fazer com que eles acessem para ter o controle que eu tenho quando eles desejarem. sendo que claro eu nao posso disponibilizar a planilha principal pois tem varias informacoes que eles nao devem saber. ai o que eu fiz. criei varias planilhas que espelham a planilha principal somente com as informacoes que eu quero que eles vejam. e disponibilizei o link no perfil de cadastro de cada um da nuvem para que eles abram a planilha. até aí tudo bem. o grande X da questao é que quando eu atualizo a informacao na planilha principal as demais planilhas so atualizam quando eu abro elas e mando salvar. quando eu abro elas ja atualizam automaticamente mas ai eu preciso abrir e salvar. e eu precisaria que assim que eu editasse no principal ele ja atualizace sozinho que ai quando o pessoal fosse olhar pelo link consequentemente ja estava atualizado.

Nao adianta botar macro de login e senha no principal pois o macro as vzs nem sempre funciona em todos os tipos de navegador e ai consequentemente ele mostraria toda a planilha. entao a forma mais pratica que vi foi dessa forma que expliquei só tem esse problema. o que eu faço pra os arquivos ja atualizarem automaticamente sem precisar abrir o arquivo e salvar? segue os prints para o entedimento.

nos anexos tem-se a planilha principal que tem todas as informacoes pertinentes apenas a mim, tem como eu organizei as pastas cada uma com seu numero de acordo com a planilha principal e por fim a planilha que os estabelecimentos tem acesso pelo link que apenas espelha o que precisa ser mostrado pra eles da planilha principal.

Alguem teria alguma ideia de como fazer isso? teria um botao que fizece isso em todas as planilhas? que fizece esse trabalho de atualizar as planilhas e salvar sozinho?

 
Postado : 02/08/2017 8:35 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Olá kayomaster, há uma change de fazer isso via VBA.

Mas a questão é que teríamos que entender a estrutura dos arquivos envolvidos.

Tente isso...

Sub AleVBA_25567()
    Dim folderPath As String
    Dim filename As String
    Dim WB As Workbook
  
    folderPath = "D:Meus DocumentosGoogle DriveAltechPLANILHAS 2017" 'Altere se necessário
    If Right(folderPath, 1) <> "" Then folderPath = folderPath + ""
    
    filename = Dir(folderPath & "*.xlsx")
    Do While filename <> ""
      Application.ScreenUpdating = False
        Set WB = Workbooks.Open(folderPath & filename)
        ActiveWorkbook.RefreshAll
        WB.Close savechanges:=True
        filename = Dir
    Loop
  Application.ScreenUpdating = True
End Sub

Favor ajustar o código e adaptar!
Att

 
Postado : 03/08/2017 6:41 am
(@kayomaster)
Posts: 0
New Member
Topic starter
 

Entao a planilha nome de arquivo Mês atual.xlsx é semelhante a essa q coloquei no anexo aqui. as demais eu so fiz colocar o nome do arquivo de acordo com o nome da planilha que ja tem no arquivo mês atual.xlsx e nas planilhas eu fiz usei o comando = e ia la na planilha mes atual.xlsx e colocava as coisas que eu gostaria que aparecece pra os meus clientes quando eles fossem olhar pelo drive essas planilhas novas. ai assim eu fiz. no caso esse codigo que voce falou eu colocaria na planilha mes atual ou em cada uma das demais? 100.xlsx 101.xlsx etc?

entendeu mais ou menos?

 
Postado : 03/08/2017 6:53 am
(@kayomaster)
Posts: 0
New Member
Topic starter
 

ai no caso eles acessam o conteudo deles pelo link so da planilha deles https://drive.google.com/open?id=0B4_0Y ... Dg1ZnU5WXM assim. Deu certo a unica questao é essa que quando eu mudo dados na planilha mes atual.xlsx essa outra nao muda automatico eu teho que abrir uma por uma e salvar. eles as vezes qnd abre ainda diz que a planilha sofreu alteracoes e pergunta se quero atualizar, pra depois eu salvar

 
Postado : 03/08/2017 7:04 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Cara eu não estou te entendendo :(

no caso esse codigo que voce falou eu colocaria na planilha mes atual ou em cada uma das demais? 100.xlsx 101.xlsx etc?

Bom você precisa digitar no arquivo Atual, e esse arquivo atualizar os outros arquivos (100.xlsx 101.xlsx), correto?
O código que eu disponibilizei, abre todas os arquivos em um determinado diretório, por tanto o código tem que ficar dentro do arquivo Atual, que consequentemente deverá está aberto para fazer suas atualizações.

###############

essa outra nao muda automatico eu teho que abrir uma por uma e salvar. eles as vezes qnd abre ainda diz que a planilha sofreu alteracoes e pergunta se quero atualizar, pra depois eu salvar

Você testou meu código? :roll:

Att

 
Postado : 03/08/2017 2:06 pm
(@kayomaster)
Posts: 0
New Member
Topic starter
 

Oi gente desculpa a demora, achei q ninguem tivesse feito. rsrs
Mas eu testei o codigo sim colocquei o diretorio completo ai no codigo q vc mandou. mas quando aperta nao funcionou. n fez nada. e ate mudei as extensoes dos arquivos pra xlsm mudei la no codigo mas n deu certo. Mas enfim, eu pra atender o que eu precisava eu fiz o seguinte:

em cada arquivo que eu queria que atualizace sozinho eu colokei o seguinte modulo:

Sub auto_Open()
Dim Fechar As Date
Fechar = Now + TimeValue("00:00:10")
Application.OnTime Fechar, "sair"
End Sub

Sub sair()
ActiveWorkbook.Saved = True
ThisWorkbook.Save
Application.Quit
End Sub

esse modulo ele faz com que o arquivo apos aberto passa um certo tempo ele salva e fecha sozinho.
feito isso eu colocoquei pro windows agendar abertura dos arquivos sozinho todo dia a meia noite. que so vai ser feito quando o computador tiver ligado. entao no dia que eu atualizar a planilha mes atual eu salvo e deixo o note ligado q todos os arquivos vao ser abertos atualizados e fechados automaticamente.

eu tambem tive que desabilitar aqueles avissos que ficavam aparecendo sempre quando abre o arquivo vba. e mandei aceitar a atualizacao automaticamente sem eu precisar clicar em permitir.

feito isso. apos o fechamento ele ja deixa salvo, e quem foi olhar pelo link de compartilhamento drive o arquivo ja vai estar atualizado no dia seguinte.
foi um arrudeio mas foi a unica solucao que vi. ja que rodei a internet e nao consegui nada dessa forma mais simples automatico.

Mas quero agradecer a sua atencao @alexandrevba

 
Postado : 05/08/2017 8:13 pm
(@kayomaster)
Posts: 0
New Member
Topic starter
 

Ah e claro. Como as macros nao funcionam nesses links de compartilhamentos entao eles conseguem vizualizar e a planilha nao vai ficar fechando.

 
Postado : 05/08/2017 9:20 pm