Tarih denetimi

[ETEKİN]

Private Sub CommandButton1_Click()
Const strRng1 = "A%n:a%n"
Const strRng2 = "B%n:B%t"
Const strRng3 = "C%n:C%t"

Const strFormul1 = "SUMPRODUCT((%Rng1<=TODAY())*(%Rng2=B)*(%Rng3))"
Const strFormul2 = "SUMPRODUCT((%Rng1<=TODAY())*(%Rng2=C)*(%Rng3))"


t1 = 21
t2 = 29
For i = 20 To 30 Step 10
Rng1 = Replace(strRng1, "%n", i)
Rng2 = Replace(Replace(strRng2, "%n", t1), "%t", t2)
Rng3 = Replace(Replace(strRng3, "%n", t1), "%t", t2)
Formul1 = Replace(Replace(strFormul1, "%Rng1", Rng1), "%Rng3", Rng3)
Formul2 = Replace(Replace(strFormul2, "%Rng1", Rng1), "%Rng3", Rng3)



Dim ERT As Currency
Dim ERTU As Currency

ERT = ERT + Evaluate(Formul1)
ERTU = ERTU + Evaluate(Formul2)


t1 = t1 + 10
t2 = t2 + 10
Next i

[A1] = ERT
[A2] = ERTU

End Sub

Yukarıda kırmızı ile yazılan yer hata veriyor. Yardımcı olursanız sevinirim.Saygılarımla

 

[hamitcan]

Dosyan&#305;z&#305; eklerseniz, daha &#231;abuk yan&#305;t bulabilirsiniz.

 

[ETEKİN]

Dosya ektedir.

 

[hamitcan]

Say&#305;n ETEK&#304;N, dosyan&#305;z&#305; da inceledim fakat bu kod ile ne yapmak istedi&#287;inizi anlayamad&#305;m.

 

[ETEKİN]

Sayın Hamitcan

İlk önce tarihler arasında bugünü bulacak ve harflerin bulunduğu yerdende "B" ve "C" yi bulup karşısındaki sayıları a1 e yazacak.

Sevgi ve Saygıyla

 

[hamitcan]

Son mesajınıza göre bir kod yazdım.

Sub BUL()
 [A1] = Cells.Find(Date).Offset(1, 0).Offset(0, 2)
 [A2] = Cells.Find(Date).Offset(1, 0).Offset(1, 2)
End Sub