با سلام
در فایل پیوست در شیت ورود به انبار در صورتیکه که کالا برای اولین مرتبه وارد گردد کد جدید به آن اختصاص یافته و در صورت موجود بودن کالا در لیست قبلی، همان کد قبلی به آن اختصاص میابد
کد PHP:
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
علاقه مندی ها (Bookmarks)