stok takibi

[hakancanarikan]

arkadaşlar ekli dosyada görüleceği gibi aynı stok kodundan birden fazla giriş var ve ben bunları otomatik olarak toplamak istiyorum. buna benzer elimizde 1000 den fazla stok kodu mevcut. yardımlarınız için şimdiden teşekkürler

 

[fedeal]

Merhaba,kodları bir modüle kopyalayıp bir butona atayın iyi çalışmalar.

Sub fdl()
Sheets("stok durumu").Select
For i = 4 To Range("a65000").End(xlUp).Row
If WorksheetFunction.CountIf(Range("b4:b" & i), Cells(i, 2)) > 1 Then
    Rows(i).Delete Shift:=xlUp
    i = i - 1
    GoTo atla
End If
d = WorksheetFunction.SumIf(Range("b4:b65000"), Cells(i, 2), Range("j4:j65000"))
If Cells(i, "b") = "" Then GoTo atla
Cells(i, "e").Value = d
Cells(i, "j").Value = d
atla:
Next
End Sub

 

[hakancanarikan]

fedeal öncelikle çok teşekkür ederim tam istediğim olmuş

tek sıkıntı j sütunundaki bütün formüller bozuluyor ve ben butona nasıl modül ekleyeceğimi bilmiyorum.

tekrar teşekkür ederim

 

[hakancanarikan]

birde makroyu çalıştırıp birleşimi yaptıktan sonra yeniden giriş yapıp butona bastığımda makro çalışmıyor.

 

[fedeal]

ben o formülü fark etmedim o zaman o sütunu çıkaralım makrodan,

Sub fdl()
Sheets("stok durumu").Select
For i = 4 To Range("a65000").End(xlUp).Row
If WorksheetFunction.CountIf(Range("b4:b" & i), Cells(i, 2)) > 1 Then
Rows(i).Delete Shift:=xlUp
i = i - 1
GoTo atla
End If
d = WorksheetFunction.SumIf(Range("b4:b65000"), Cells(i, 2), Range("j4:j65000"))
If Cells(i, "b") = "" Then GoTo atla
Cells(i, "e").Value = d
atla:
Next
End Sub

yeni giriş yaparsanız ve daha önceden aynı kodlu giriş varsa makro her seferinde toplayacaktır.

 

[hakancanarikan]

ağam

son sütunu çıkarınca makrodan son sütundaki formüller düzeldi ama bu seferde yeni bir giriş yaptığımda ilk seferinde olduğu gibi satırları birleştirmiyor.