Makro ile aktarım problemi

[ReaLFrienD]

s.a.

Üstad'lar, sorunum; envanter sayfasında bulunan (K:M sütunları arası) verileri n1 hücresinde seçtiğim şubeye aktarıyorum fakat yeni verileri yapıştırdıktan sonra şube adını değiştirip aktardığımda bir önceki şubenin aktarılmış verileri "0" olarak kalıyor.Şimdiden teşekkürler

 

[Huseyinkis]

s.a.

Üstad'lar, sorunum; envanter sayfasında bulunan (K:M sütunları arası) verileri n1 hücresinde seçtiğim şubeye aktarıyorum fakat yeni verileri yapıştırdıktan sonra şube adını değiştirip aktardığımda bir önceki şubenin aktarılmış verileri "0" olarak kalıyor.Şimdiden teşekkürler

envanter formulunu ekteki gibi yapıp denermisin.

Sub envanter()
Set S1 = Sheets("Envanter")

i = S1.Cells(1, "n").Value
Set S2 = Sheets(i)
For a = 2 To 171
If S2.Cells(a, 1).Value <> "" And S2.Cells(a, 2).Value <> "" Then
ayy = S2.Cells(a, 2).Value
ŞUBE = S2.Name
aaa = WorksheetFunction.SumIfs(S1.Range("M2:M15000"), S1.Range("L2:L15000"), ayy, S1.Range("N2:N15000"), ŞUBE)
S2.Cells(a, 46).Value = aaa
End If
Next a

End Sub

 

[ReaLFrienD]

Yardımınız için teşekkürler. Problem çözüldü.