Boa noite caros colegas.

Estou trabalhando em um projeto e estou com uma dúvida, seria de grande valia algum colega que entende mais do assunto dar uma olhada e me ajudar a sanar este problema.

Explicação de como funciona :

Tenho uma planilha onde se cadastra cliente e fornecedor junto, o diferencial é que Clientes ficam como (Receita) e Fornecedores como (Despesa).

Até ae tudo bem funciona perfeito.

Tenho uma outra planilha onde se lança as vendas e compras, assim como a planilha citada acima vendas ficam como (Receita) e compras como (Despesa) baseado em um combo box que puxa o cliente ou o fornecedor. Um exemplo da imagem abaixo para ficar melhor o entendimento.

Até ae todos os lançamentos funcionam perfeitamente.

O problema está sendo em atualizar o estoque:

Eu uso este codigo abaixo para dar baixa no estoque e funciona perfeito quando lanço alguma venda ele atualiza o estoque automaticamente na planilha de cadastro de produtos.

' INICIO ATUALIZAÇÃO DO ESTOQUE A VISTA
Dim Senha As Variant
Senha = "******"
Dim codigo

linha = 3
descricao = TB_Descricao_do_Produto
    
    On Error Resume Next
    
    Application.ScreenUpdating = False ' Atualização da tela
    
    Worksheets("PRODUTOS").Activate ' ativa a planilha informada
    Sheets("PRODUTOS").Unprotect (Senha) ' desprotege a planilha
    Sheets("PRODUTOS").Select ' seleciona a planilha informada
        
' Executa o codigo até que encontre uma linha vazia
Do Until Sheets("PRODUTOS").Cells(linha, 3) = ""
'condicção para localizar a descrição e se nao achar não executa o codigo
If Sheets("PRODUTOS").Cells(linha, 3) = descricao Then
'seleciona célula com a descrição encontrada
Sheets("PRODUTOS").Cells(linha, 2).Select

ActiveCell.Offset(0, 1).Select
ActiveCell = TB_Descricao_do_Produto

ActiveCell.Offset(0, 1).Select
ActiveCell = CB_Unidade

ActiveCell.Offset(0, 1).Select
ActiveCell = CB_Fornecedor

ActiveCell.Offset(0, 1).Select
ActiveCell = TB_Preco_de_Custo

ActiveCell.Offset(0, 1).Select
ActiveCell = TB_Lucro

ActiveCell.Offset(0, 1).Select
ActiveCell = TB_Preco_de_Venda

ActiveCell.Offset(0, 1).Select
ActiveCell = TB_Data_de_Cadastro

ActiveCell.Offset(0, 1).Select
ActiveCell = TB_Ultima_Alteracao

ActiveCell.Offset(0, 1).Select
ActiveCell = TB_Estoque


    Application.ScreenUpdating = True ' Atualização da tela
End If

linha = linha + 1
Loop

'FIM ATUALIZAÇÃO DO ESTOQUE A VISTA

O problema que estou encontrando e não sei como fazer é:

Gostaria que esse codigo que uso para dar baixa no estoque analisasse condições. No combobox da imagem tem um exemplo do que estou dizendo, quando carrego o Cliente fica Cliente(receita) intao estou fazendo uma venda. E quando eu carrego um fornecedor estou fazendo uma compra entao ficaria no combobox Fornecedor (Despesa).

O código que postei ele so da baixa gostaria de modificar este código para detectar se é cliente (Receita) ou fornecedor (Despesa), gostaria que esse codigo detectasse que é fornecedor (Despesa) e em vez de diminuir que fosse somado ao estoque.

Agradeço a paciencia de quem ta lendo e a ajuda de todos que puderem me ajudar...

Fico no aguardo... Obrigado