الترحيل بناء على شرط

[عمر الجزاوى]

ممكن بعد اذنكم عمل كود يرحل الصنف اذا كتب فى عمود الكمية يرحل الصنف والكمية الى الفاتورة مباشرة مثلا الرشيدى نص كيلو كتب فى عمود الكمية  5 مثلا الصنف النصر علبة صغيرة سادة كتب فى عمود الكمية 3 مثلا الصنف تركي علبة صغيرة شيكولاتة كتب فى عمود الكمية 1 يرحل الصنف والكمية الى الفاتورة وشكرا على حسن تعاونكم

الترحيل بناء على شرط.xlsm

[lionheart]

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x, n As Long, r As Long, c As Long, m As Long
    Dim sh As Worksheet:  Set sh = Sheets("رصيد")
    Application.EnableEvents = False
        If Target.Address = "$L$8" Then
            Range("J11:L20").ClearContents
            c = 10: r = 11
            For n = 2 To sh.Cells(Rows.Count, 1).End(3).Row
                If sh.Range("b" & n) = Target Then
                    Cells(r, c) = sh.Range("c" & n)
                    r = IIf(c = 18, r + 1, r): c = IIf(c = 18, 10, c + 2)
                End If
            Next n
        ElseIf Target.Count = 1 And Target.Row >= 11 And Target.Row <= 22 And (Target.Column = 11 Or Target.Column = 13 Or Target.Column = 15 Or Target.Column = 17 Or Target.Column = 19) And IsNumeric(Target.Value) Then
            m = Cells(Rows.Count, 2).End(xlUp).Row + 1
            x = Application.Match(Target.Offset(, -1).Value, Columns(2), 0)
            If Not IsError(x) Then
                Cells(x, 6).Value = Cells(x, 6).Value + Val(Target.Value)
            Else
                Cells(m, 2).Value = Target.Offset(, -1).Value
                Cells(m, 6).Value = Target.Value
            End If
        End If
    Application.EnableEvents = True
End Sub

 

[عمر الجزاوى]

استاذى الفاضل انت رائع تسلم يمينك واناملك العبقرية كل الشكر والتقدير لحضرتك