Boa noite, eu tambem não estou conseguindo inserir novos materiais, na aba estoque, e nos registros de saida não entra o dado do responsavel pelo envio do material.
OBRIGADO
ATT MAIS

Boa noite, eu tambem não estou conseguindo inserir novos materiais, na aba estoque, e nos registros de saida não entra o dado do responsavel pelo envio do material.
OBRIGADO
ATT MAIS

Humberto, quanto aos lançamentos na das Saidas na aba "DADOS-SAÍDA", se você ainda não ajustou os ranges na rotina, pelo menos pelo exemplo anexado está com os endereços diferentes, troque pelo codigo abaixo:

Sub Adic_Saida()

    'Adiciona novo registro na Planilha "DADOS-SAÍDA"
    Application.ScreenUpdating = False
    Dim uLin As Long

    'Verifica se há valores a serem inseridos
    If IsEmpty(Sheets("CONTROLE").Range("H4,H6,H8,H10,H12,H14,H16").Value) = False Then
        
        'Determina a ultimalinha com registro e acrescenta 1 paraproxima em "branco"
        uLin = Sheets("DADOS-SAÍDA").Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1
    
        'Insere os dados da planilha controle na planilha de entrada
        Sheets("DADOS-SAÍDA").Range("A" & uLin).Value = Sheets("CONTROLE").Range("H4").Value
        Sheets("DADOS-SAÍDA").Range("B" & uLin).Value = Sheets("CONTROLE").Range("H6").Value
        Sheets("DADOS-SAÍDA").Range("C" & uLin).Value = Sheets("CONTROLE").Range("H8").Value
        Sheets("DADOS-SAÍDA").Range("D" & uLin).Value = Sheets("CONTROLE").Range("H10").Value
        Sheets("DADOS-SAÍDA").Range("E" & uLin).Value = Sheets("CONTROLE").Range("H12").Value
        Sheets("DADOS-SAÍDA").Range("F" & uLin).Value = Sheets("CONTROLE").Range("H14").Value
        Sheets("DADOS-SAÍDA").Range("G" & uLin).Value = Sheets("CONTROLE").Range("H16").Value
        
        'Executa rotina atualização estoque
        Call sEstoque
        'Limpa as celulas de entrada
        Sheets("CONTROLE").Range("H4:J4,H6:J6,H8:J8,H10:J10,H12:J12,H14:J14,H16:J16").ClearContents
            
        MsgBox ("Novo Registro adicionado com sucesso!.")
    Else
        MsgBox ("Sem dados para serem cadastrados!.")
    End If
    
    Application.ScreenUpdating = True
    
End Sub

Quanto a "inserir novos materiais, na aba estoque", tem de fazer conforme o Reinaldo orientou, tem de criar o novo código antes, e não podemos digitar diretamente nela.
Na minha opinião, você deveria ter uma aba separada somente com a relação dos produtos e não na aba Controle, e consequentemente todos os novos cadastros serem lançados nesta, veja que se digitar um código inexistente a função VLookup retorna o último texto encontrado.
Desta forma, procure primeiro criar um BD com os códigos ou adicionar uma rotina para Cadastrar novos produtos.

[]s