Analiz

[onurozbay]

"analiz" isimli Makroyu aşağıdaki gibi deneyin.

Sub analiz()
Application.ScreenUpdating = False
On Error Resume Next
Set ss1 = ThisWorkbook.Worksheets("G_TOPLAM")
ss1.Range("d9:L69").ClearContents

For i = 6 To ss1.Range("p65536").End(xlUp).Row
Set s2 = ThisWorkbook.Worksheets(ss1.Cells(i, "p").Value)
For z = 9 To 69
If s2.Cells(z, "b") = ss1.Cells(z, "b") Then

ss1.Cells(z, 4) = ss1.Cells(z, 4) + s2.Cells(z, 4)
ss1.Cells(z, 5) = ss1.Cells(z, 5) + s2.Cells(z, 5)
ss1.Cells(z, 6) = ss1.Cells(z, 6) + s2.Cells(z, 6)
ss1.Cells(z, 7) = ss1.Cells(z, 7) + s2.Cells(z, 7)
ss1.Cells(z, 8) = ss1.Cells(z, 8) + s2.Cells(z, 8)
ss1.Cells(z, 9) = ss1.Cells(z, 9) + s2.Cells(z, 9)
ss1.Cells(z, 10) = ss1.Cells(z, 10) + s2.Cells(z, 10)
ss1.Cells(z, 11) = ss1.Cells(z, 11) + s2.Cells(z, 11)
ss1.Cells(z, 12) = ss1.Cells(z, 12) + s2.Cells(z, 12)

End If
Next z
Next i
Application.ScreenUpdating = True
MsgBox "Ýþlem TAMAM.", vbInformation
End Sub

yukarıdaki kod da sütun ve satır sayısını değiştimek için hangi değerler ile oynamalıyız

 

[Orion1]

z 9-69 satırları arasında döngüye giriyor
hücrede satır ve sütun aşağıdaki gibidir.

if s2.cells(satır,sütun)=ss1.cells(satır,sütun) then

For z = 9 To 69
If s2.Cells(z, "b") = ss1.Cells(z, "b") Then

ss1.Cells(z, 4) = ss1.Cells(z, 4) + s2.Cells(z, 4)

 

[onurozbay]

z 9-69 satırları arasında döngüye giriyor
hücrede satır ve sütun aşağıdaki gibidir.

if s2.cells(satır,sütun)=ss1.cells(satır,sütun) then

For z = 9 To 69
If s2.Cells(z, "b") = ss1.Cells(z, "b") Then

ss1.Cells(z, 4) = ss1.Cells(z, 4) + s2.Cells(z, 4)

Kusura bakmayın ben sizlerden aldığım kodlar da oyna ma yaparak çözümler üretip mantığı kapmaya çalışıyorum satır sorunumu halettim sütun ilk verdiğim kod da l ye kadar ben m ye kadar yapmak istiyorum tam olarak yapmam gererken nedir.

 

[Orion1]

En sona kırmızı satırı yazdım.M, 13ncü sütuna denk geliyor.

ss1.Cells(z, 4) = ss1.Cells(z, 4) + s2.Cells(z, 4)
ss1.Cells(z, 5) = ss1.Cells(z, 5) + s2.Cells(z, 5)
ss1.Cells(z, 6) = ss1.Cells(z, 6) + s2.Cells(z, 6)
ss1.Cells(z, 7) = ss1.Cells(z, 7) + s2.Cells(z, 7)
ss1.Cells(z, 8) = ss1.Cells(z, 8) + s2.Cells(z, 8)
ss1.Cells(z, 9) = ss1.Cells(z, 9) + s2.Cells(z, 9)
ss1.Cells(z, 10) = ss1.Cells(z, 10) + s2.Cells(z, 10)
ss1.Cells(z, 11) = ss1.Cells(z, 11) + s2.Cells(z, 11)
ss1.Cells(z, 12) = ss1.Cells(z, 12) + s2.Cells(z, 12)
[B][COLOR="Red"]ss1.Cells(z, 13) = ss1.Cells(z, 13) + s2.Cells(z, 13)[/COLOR][/B]

 

[onurozbay]

Şimdi kavradım sağol

 

[Orion1]

Böylede yazabilirsiniz.

ss1.Cells(z, "M") = ss1.Cells(z, "M") + s2.Cells(z, "M")