- Katılım
- 4 Nisan 2011
- Mesajlar
- 209
- Excel Vers. ve Dili
- 2010 İNGİLİZCE
arkadaslar asağıdaki kırmızı olan yer "method or data member not found" olarak hata veriyor neyi düzeltmem gerekiyor, tsk
SR.Select
BEKLEME.Show
Application.Wait (Now + TimeValue("0:00:01"))
TOPLAM_SATIR_SAYISI = (SR.[B2] - 1) - (SR.[B1] - 1) + 1
For X = SR.[B1] - 1 To SR.[B2] - 1
If X > Date - 1 Then Exit For
SATIR_SAYISI = SATIR_SAYISI + 1
DoEvents
BEKLEME.ProgressBar1.Value = (SATIR_SAYISI / TOPLAM_SATIR_SAYISI) * 100
BEKLEME.Label2.Caption = Format((SATIR_SAYISI / TOPLAM_SATIR_SAYISI) * 100, "% 0")
Kontrol = Weekday(X, vbMonday)
If Kontrol > 5 Then
Y = X - (Kontrol - 5)
Else
Y = X
End If
SR.Select
BEKLEME.Show
Application.Wait (Now + TimeValue("0:00:01"))
TOPLAM_SATIR_SAYISI = (SR.[B2] - 1) - (SR.[B1] - 1) + 1
For X = SR.[B1] - 1 To SR.[B2] - 1
If X > Date - 1 Then Exit For
SATIR_SAYISI = SATIR_SAYISI + 1
DoEvents
BEKLEME.ProgressBar1.Value = (SATIR_SAYISI / TOPLAM_SATIR_SAYISI) * 100
BEKLEME.Label2.Caption = Format((SATIR_SAYISI / TOPLAM_SATIR_SAYISI) * 100, "% 0")
Kontrol = Weekday(X, vbMonday)
If Kontrol > 5 Then
Y = X - (Kontrol - 5)
Else
Y = X
End If