Excel Planilha de Ordem de Serviço Automática

[Gabrielle Cordeiro]

Boa tarde;
Eu tenho uma planilha onde eu adiciono diariamente os produtos utilizados na plantação, onde cada linha é um produto em uma área diferente e tenho outra planilha que é a ordem de serviço para a pulverização de cada uma dessas linhas. Eu tenho que manualmente colocar cada linha dessa em uma folha de ordem de serviço para a certificação, porém isso consume muito tempo devido a quantidade de produtos utilizados e quantidade de áreas. A minha vontade é de automatizar isso, e que para toda linha adicionada, automaticamente fosse criada uma planilha com essas informações a partir da minha base e fosse salva em uma pasta. Mas não sei por onde começar, precisaria aprender alguma linguagem de programação, ou daria para fazer isso somente pelo Excel?  Agradeço qualquer ajuda. 

[Midori]

@Gabrielle Cordeiro Normalmente esse tipo de automação é feita com macro do próprio Excel. Para facilitar anexe a planilha ou um modelo semelhante dela e mostre um exemplo de como deve ficar alguns dados.

[Gabrielle Cordeiro]

Eu fiz como exemplo a última linha aqui, e coloquei algumas cores pra mostrar qual célula iria para onde, o resto das células já estão preenchidas no modelo
 

exemplo 1.xlsx exemplo 2.xlsx

[Midori]

@Gabrielle Cordeiro Como não há uma ordem que facilite a importação dos dados para a tabela, uma forma de pegar os dados é atribuindo cada campo. Fiz uma parte disso com cinco campos (veja os comentários da Sub Cadastra), você pode acrescentar os demais,

 

Sub Atualiza()
    Dim Autorizacao     As Worksheet
    Dim Pulverizacoes   As Worksheet
    
    Set Autorizacao = Workbooks("exemplo 1.xlsx").Sheets("O.S")
    Set Pulverizacoes = Workbooks("exemplo 2.xlsx").Sheets("PULVERIZAÇÕES")
    
    If Pulverizacoes.[A7] = "" Then
        Call Cadastra(Autorizacao, Pulverizacoes.[A7])
    Else
        Call Cadastra(Autorizacao, Pulverizacoes.[A6].End(xlDown).Offset(1))
    End If
End Sub

Sub Cadastra(PlanAut As Worksheet, RefPulv As Range)
    RefPulv.Offset(0, 0) = PlanAut.[D6]  'Valvula
    RefPulv.Offset(0, 1) = PlanAut.[B6]  'Data
    RefPulv.Offset(0, 2) = PlanAut.[I11] 'Fase
    RefPulv.Offset(0, 3) = PlanAut.[A9]  'NC
    RefPulv.Offset(0, 4) = PlanAut.[B9]  'Produto
End Sub

 

As duas planilhas devem estar abertas. Considerei os nomes dos arquivos anexados, se for outro altere o nome no código. Veja que passo como argumento para a Sub Cadastra a última célula sem dado da coluna A como referência (a primeira linha da célula A que estiver em branco, a baixo de A6, vai receber os dados). A partir dela os dados serão colocados na tabela, p.ex,

RefPulv.Offset(0, 4) = PlanAut.[B9]  'Produto

 

Essa linha vai colocar na coluna E (deslocamento 4 a partir de A) da planilha Pulverizações o produto informado na célula B9 da planilha O.S