kapasite hesaplama

[baybruce]

Çalıştığım yerde daha önceden yazılmış bir makro var. Ekteki dosyada PAH isimli sayfada A,B,C sütunları sabit olup makroyu çalıştırdığım zaman Ana Mamul isimli dosyada aynı stok kodu varsa çekiyor, farklı stok kodu varsa 1500.satırdan aşağıya doğru yazmaya devam ediyor.
Ancak PAH isimli dosyada aynı stok kodundan 2 adet varsa sadece birine değer atıyor, ikincisini boş geçiyor. Çözüm için yardımlarınızı rica ederim.

 

[Mustafa MUTLU]

Kodu görebilirmiyim ?..

 

[baybruce]

Sub kapasite()
Cells(1, 4) = Worksheets("Ana Mamul").Cells(2, 3)
Cells(1, 5) = Worksheets("Ana Mamul").Cells(2, 4)
Cells(1, 6) = Worksheets("Ana Mamul").Cells(2, 5)
Cells(1, 7) = Worksheets("Ana Mamul").Cells(2, 6)
Cells(1, 8) = Worksheets("Ana Mamul").Cells(2, 7)
Cells(1, 9) = Worksheets("Ana Mamul").Cells(2, 8)
Cells(1, 10) = Worksheets("Ana Mamul").Cells(2, 9)
Cells(1, 11) = Worksheets("Ana Mamul").Cells(2, 10)
Cells(1, 12) = Worksheets("Ana Mamul").Cells(2, 11)
Cells(1, 13) = Worksheets("Ana Mamul").Cells(2, 12)
Cells(1, 14) = Worksheets("Ana Mamul").Cells(2, 13)
Cells(1, 15) = Worksheets("Ana Mamul").Cells(2, 14)
Cells(1, 17) = Worksheets("Ana Mamul").Cells(2, 3)
Cells(1, 18) = Worksheets("Ana Mamul").Cells(2, 4)
Cells(1, 19) = Worksheets("Ana Mamul").Cells(2, 5)
Cells(1, 20) = Worksheets("Ana Mamul").Cells(2, 6)
Cells(1, 21) = Worksheets("Ana Mamul").Cells(2, 7)
Cells(1, 22) = Worksheets("Ana Mamul").Cells(2, 8)
Cells(1, 23) = Worksheets("Ana Mamul").Cells(2, 9)
Cells(1, 24) = Worksheets("Ana Mamul").Cells(2, 10)
Cells(1, 25) = Worksheets("Ana Mamul").Cells(2, 11)
Cells(1, 26) = Worksheets("Ana Mamul").Cells(2, 12)
Cells(1, 27) = Worksheets("Ana Mamul").Cells(2, 13)
Cells(1, 28) = Worksheets("Ana Mamul").Cells(2, 14)

c = 1500
For x = 2 To 2000
a = Worksheets("Ana Mamul").Cells(x, 1)
If a = "" Then GoTo 70
For y = 3 To 1400
b = Cells(y, 1)
If b = a Then GoTo 10 Else GoTo 20
10 Cells(y, 4) = Worksheets("Ana Mamul").Cells(x, 3)
Cells(y, 5) = Worksheets("Ana Mamul").Cells(x, 4)
Cells(y, 6) = Worksheets("Ana Mamul").Cells(x, 5)
Cells(y, 7) = Worksheets("Ana Mamul").Cells(x, 6)
Cells(y, 8) = Worksheets("Ana Mamul").Cells(x, 7)
Cells(y, 9) = Worksheets("Ana Mamul").Cells(x, 8)
Cells(y, 10) = Worksheets("Ana Mamul").Cells(x, 9)
Cells(y, 11) = Worksheets("Ana Mamul").Cells(x, 10)
Cells(y, 12) = Worksheets("Ana Mamul").Cells(x, 11)
Cells(y, 13) = Worksheets("Ana Mamul").Cells(x, 12)
Cells(y, 14) = Worksheets("Ana Mamul").Cells(x, 13)
Cells(y, 15) = Worksheets("Ana Mamul").Cells(x, 14)
GoTo 50
20 Next y
Cells(c, 5) = Worksheets("Ana Mamul").Cells(x, 4)
Cells(c, 6) = Worksheets("Ana Mamul").Cells(x, 5)
Cells(c, 7) = Worksheets("Ana Mamul").Cells(x, 6)
Cells(c, 8) = Worksheets("Ana Mamul").Cells(x, 7)
Cells(c, 4) = Worksheets("Ana Mamul").Cells(x, 3)
Cells(c, 1) = Worksheets("Ana Mamul").Cells(x, 1)
Cells(c, 9) = Worksheets("Ana Mamul").Cells(x, 8)
Cells(c, 10) = Worksheets("Ana Mamul").Cells(x, 9)
Cells(c, 11) = Worksheets("Ana Mamul").Cells(x, 10)
Cells(c, 12) = Worksheets("Ana Mamul").Cells(x, 11)
Cells(c, 13) = Worksheets("Ana Mamul").Cells(x, 12)
Cells(c, 14) = Worksheets("Ana Mamul").Cells(x, 13)
Cells(c, 15) = Worksheets("Ana Mamul").Cells(x, 14)
c = c + 1
50 Next x
70 End Sub

Eskiden iki farklı excel dosyasydı, ben tek dosya yaptım. Sanki düşey ara daha uygun gibi ama sabit listede olmayan kayıtlarında pah sayfasının altında listelenmesi gerekiyor