josiasribeiro

Disponibilizei a planilha em https://goo.gl/yxwdk0

Boa noite, Sou estudante de Engenharia e estou aprendendo VBA pela internet. Como desafio estou desenvolvendo um "sistema" para uma loja de roupas de uma amiga da família. Estou finalizando as planilhas CONDICIONAL e ESTOQUE, gostaria de uma forma de quando a célula na coluna SITUAÇÃO na planilha CONDICIONAL fosse alterada para F o código procurasse o valor da coluna REFERÊNCIA da mesma linha na planilha ESTOQUE e alterasse a coluna SITUAÇÃO da mesma planilha para F. Na planilha CONDICIONAL as atendentes lançam todas a peças que foram retiradas da loja e quando retornam elas lançam F para ficou e DV para devolução. Eu preciso de uma forma de dar "baixa" nessas peças na planilha ESTOQUE. Já tentei PROCV mas como a mesma peça aparece várias vezes na planilha CONDICIONAL não funciona. Tentei também o método FIND, mas sem sucesso. Private Sub Worksheet_Change(ByVal Target As Range) '————————————————————————————— 'Procedure: Worksheet_Change 'Author: Josias Ribeiro 'Date : 01/02/2017 'Purpose : Preencher a coluna"M" (DATA DE DEVOLUÇÃO) quando as células da coluna "N" (SITUAÇÃO) forem alteradas '————————————————————————————— 'Declarando variáveis Dim C As Long Dim R As Long C = Target.Column R = Target.Row On Error GoTo ERRO If C = 14 Then If Target.Value = "F" Then Range("M" & R).Value = Date Else Range("M" & R).Value = Date End If End If ERRO: End Sub