پرسش اختصاص کد کالا به صورت خودکار به اجناس ورودی انبار

[سودابه69]

سلام دوستان اکسلی
من یه برنامه انبار دارم میخام وقتی یه جنس وارد انبار میشه اگر جدیده و قبلا تو انبار نبوده برنامه براساس دسته بندی که برای کالا تعریف میشه به صورت خودکار کد کالای جدید بهش اختصاص بده (براساس آخرین شماره) این امکان وجود داره عایا؟؟؟
یه نسخه از برنامه رو میفرستم به پیوست
سپاس

[iranweld]

با سلام

در فایل پیوست در شیت ورود به انبار در صورتیکه که کالا برای اولین مرتبه وارد گردد کد جدید به آن اختصاص یافته و در صورت موجود بودن کالا در لیست قبلی، همان کد قبلی به آن اختصاص میابد

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("D:D")) Is Nothing Then

On Error Resume Next

Dim rng As Range
Set rng = Range("C:C")

If Application.WorksheetFunction.CountIf(Range("d:d"), Target) = 1 _
And Target.Value <> "" Then

Target.Offset(0, -1).Value = Application.WorksheetFunction.Max(rng) + 1

ElseIf Application.WorksheetFunction.CountIf(Range("d:d"), Target) > 1 And Target <> "" Then

K = Cells(Rows.Count, "C").End(xlUp).Row

For I = 2 To K

If Range("D" & I).Value = Target.Value Then

Target.Offset(0, -1).Value = Range("C" & I).Value

End If

Next

End If

End If

End Sub 

[generalsamad]

با سلام
از این فرمول نیز میتونید استفاده کنید
فرمول رو در خانه c3 وارد کنید و به پائین بسط دهید

=if(countif(d$2:d3;d3)=1;max(c$2:c2)+1;index(c$2:c2;match(d3;d$2:d2;0)))