Stok sayfası diagram sayfası
G Stünu I Stünu G Stünu I Stünu
miktar ürün miktar ürün
monitör 5 pc
mouse monitör
klavye klavye
19 pc mouse
diagram'a bir mal girildiğinde stoktan miktar düşürüyor.
ancak bazen pc ye 5 girdiysem de bunu 7 yapmam gerekiyorsa makro tekrar çalışıyor ve 19'dan hem 5 i hem de 7 yi çıkarıyor.
buna bir çözüm bulabilirmiyiz.
Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bul As Range
Dim bul1 As Range
Dim ara As String
Dim Son As Integer
On Error Resume Next
Son = Cells(Rows.Count, "I").End(3).Row
If Intersect(Target, Range("I2:I" & Son)) Is Nothing Then GoTo Son
ara = Target.Value
Set bul = Range("I2:I" & Son - 1).Find(ara, , xlValues, xlWhole, , xlPrevious)
sat = bul.Row
Set bul1 = Range("I2:I" & sat - 1).Find(ara, , xlValues, xlWhole, , xlPrevious)
If Not bul Is Nothing Then
Target.Offset(0, 1) = bul.Offset(0, 1)
Target.Offset(0, 2) = WorksheetFunction.Max(bul.Offset(0, 2), bul1.Offset(0, 2))
'Target.Offset(1, -2).Select
Else
'MsgBox "Yeni Ürün "
'Target.Offset(0, 1).Select
End If
G Stünu I Stünu G Stünu I Stünu
miktar ürün miktar ürün
monitör 5 pc
mouse monitör
klavye klavye
19 pc mouse
diagram'a bir mal girildiğinde stoktan miktar düşürüyor.
ancak bazen pc ye 5 girdiysem de bunu 7 yapmam gerekiyorsa makro tekrar çalışıyor ve 19'dan hem 5 i hem de 7 yi çıkarıyor.
buna bir çözüm bulabilirmiyiz.
Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bul As Range
Dim bul1 As Range
Dim ara As String
Dim Son As Integer
On Error Resume Next
Son = Cells(Rows.Count, "I").End(3).Row
If Intersect(Target, Range("I2:I" & Son)) Is Nothing Then GoTo Son
ara = Target.Value
Set bul = Range("I2:I" & Son - 1).Find(ara, , xlValues, xlWhole, , xlPrevious)
sat = bul.Row
Set bul1 = Range("I2:I" & sat - 1).Find(ara, , xlValues, xlWhole, , xlPrevious)
If Not bul Is Nothing Then
Target.Offset(0, 1) = bul.Offset(0, 1)
Target.Offset(0, 2) = WorksheetFunction.Max(bul.Offset(0, 2), bul1.Offset(0, 2))
'Target.Offset(1, -2).Select
Else
'MsgBox "Yeni Ürün "
'Target.Offset(0, 1).Select
End If