Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
COPIAR DADOS DE UMA...
 
Notifications
Clear all

COPIAR DADOS DE UMA PLANILHA PARA OUTRA

 
2024 - VBA & Macros
Post Recente por MPrudencio 7 anos atrás
5 Posts
3 Usuários
0 Reactions
1,589 Visualizações
RSS
 denilsonsl
(@denilsonsl)
Posts: 0
New Member
Topic starter
 

Boa noite senhores.

Preciso de uma ajuda de todos.

Tenho uma planilha, que segue em anexo, que faz o seguinte: É utilizada par PROGRAMAÇÃO FABRICA, porem tem mais uma que é utilizada para programação e SERVIÇOS MT, que fica aberta e sendo salvo na mão de outro pessoa. O que preciso e tentei fazer e não deu certo é o seguinte:

--> Quando clicar no botão atualizar na planilha aba PEDIDO(PROGRAMAÇÃO FABRICA), copia as informação da planilha SERVIÇOS MT.

Á copia parte da data de entrada de pedido na planilha SERVIÇOS MT e atualiza a planilha PROGRAMAÇÃO FABRICA.

Nesse caso, quando clicar no botão "Atualizar Dados" aba PEDIDOS da planilha PROGRAMAÇÃO FABRICA, copia as ultimas entradas de pedidos na data de hoje por exemplo na aba SERVIÇOS EXTERNOS(esta marcada em amarelo), na planilha SERVIÇOS MT e atualiza a planilha PROGRAMAÇÃO FABRICA aba PEDIDOS, colocando na sequencia da ultima linha digitada da planilha PROGRAMAÇÃO FABRICA

Porem, tem um detalhe ou uns detalhes, quando esse evento acontecer, pode ser que a planilha pode estar aberto com alguma pessoa e, esse código precise executar mesmo quando a planilha esteja em modo de leitura, isto é, mesmo que a planilha fique aberta com outra pessoa o código faça a copia dos dados de uma planilha para outra nas ultimas datas de entradas.

Mas, alguns podem me perguntar, porque não deixar na mesma planilha? Porque são planilha quase iguais em relação a informação, porem aberto com pessoas diferentes, que fica aberta com pessoas diferentes, sendo salva na rede da empresa.

segue o endereço que é salva na rede:

\STORAGEEngenhariaMegatech4 - Doc`s megatechSERVIÇOS MT.xlsx"

Não sei se entenderam a ideia, mas seria importante se houver alguma solução.

 
Postado : 16/11/2017 7:07 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Mas o que falta para funcionar ou qual o problema que você está tendo para concluir?

Se eu considerar apenas a questão do arquivo está aberto em uso com outro do usuário, o código abaixo deve funcionar!

Foi feito um teste, mas eu não estou considerando uma adaptação de todos os seus critérios(favor adaptar as variáveis LR, NR de acordo com sua necessidade).

Sub copWb()
    Dim wbName As String, wb As Workbook, ws As Worksheet
    Dim LR As Long, NR As Long
   
    txt = "\sessf01ADMClaraPADARIALISTA CAFÉ -  2017.xlsx"
    If Dir(txt) = "" Then
        MsgBox txt & " não existe"
    Else
        Set wb = Workbooks.Open(txt)
        On Error Resume Next
        Set ws = wb.Sheets("Faltas")
       
        If Not ws Is Nothing Then
            LR = ws.Range("A" & Rows.Count).End(xlUp).Row
            NR = Plan1.Range("A" & Rows.Count).End(xlUp).Row + 1
            ws.Range("A2:A" & LR).Copy
            Plan1.Range("A" & NR).PasteSpecial xlPasteValues
            wb.Close
        Else
            MsgBox ws.Name & " não existe"
        End If
    Err.Clear
    End If
End Sub

Att

 
Postado : 20/11/2017 10:04 am
 denilsonsl
(@denilsonsl)
Posts: 0
New Member
Topic starter
 

Boa tarde AlexandreVBA.

A dificuldade é em relação a copiar levando o critério da data de hoje.

Quando disparar o código faz a copia em ralação ao que foi imputado na planilha com a data de hoje, por exemplo dia 21/11/17, tudo que o tiver descrito com essa data o código reconhece e copia a linha ou linhas para outra planilha.

Att,

 
Postado : 21/11/2017 1:24 pm
 denilsonsl
(@denilsonsl)
Posts: 0
New Member
Topic starter
 

Será que há alguma solução para esse problema acima?

 
Postado : 05/12/2017 2:31 pm
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

É para copiar de qual planilha para qual?

Qual a coluna onde as datas deveram ser comparadas.

Onde estara a data de pesquisa?

Não identifiquei essas informações.

 
Postado : 05/12/2017 7:05 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico