hücre kodu

Katılım
13 Ekim 2006
Mesajlar
9
Excel Vers. ve Dili
excel 2003 türkçe
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
 
Üst