slm arkadaşlar aşağıdaki kodu sayfa 1 de (H5) (H53),ve(I5)(I53) sayfa 2007 de ise (G14) ile(G62) ye uygulayabilirmiyiz.
Private Sub CommandButton2_Click()
Dim p(55, 53)
For n = 1 To 53: p(13, n) = 0: Next n
a = Worksheets("Sayfa1").Cells(5, 8): b = Worksheets("Sayfa1").Cells(5, 9)
For n = 1 To 220
mm = Cells(n + 6, 2)
wk = Cells(n + 6, 3)
dy = Cells(n + 6, 4)
If mm >= a And mm <= b And dy = 1 Then p(13, wk) = p(13, wk) + 1
Next n
For n = 22 To 53
Worksheets("2007").Cells(14, 7 + n - 22) = p(13, n)
If p(13, n) = 0 Then Worksheets("2007").Cells(14, 7 + n - 22) = ""
Next n
End Sub
Private Sub CommandButton2_Click()
Dim p(55, 53)
For n = 1 To 53: p(13, n) = 0: Next n
a = Worksheets("Sayfa1").Cells(5, 8): b = Worksheets("Sayfa1").Cells(5, 9)
For n = 1 To 220
mm = Cells(n + 6, 2)
wk = Cells(n + 6, 3)
dy = Cells(n + 6, 4)
If mm >= a And mm <= b And dy = 1 Then p(13, wk) = p(13, wk) + 1
Next n
For n = 22 To 53
Worksheets("2007").Cells(14, 7 + n - 22) = p(13, n)
If p(13, n) = 0 Then Worksheets("2007").Cells(14, 7 + n - 22) = ""
Next n
End Sub