Excel 2007 de çalışmayan kodlar

[kelkitli]

Selamlar,

Kod: [Seç]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(ActiveCell, [$U$1]) Is Nothing Then Exit Sub
Cancel = True
Calendar1.Value = Date
For A = 1 To 170 Step 8
Calendar1.Height = A
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calendar1.Top = ActiveCell.Top
Calendar1.Left = ActiveCell.Left
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$U$1" Then Bul
End SubŞu kodlar Excel 2007 de çalışmıyor, nedendir?

[Bülent Öztürk]

A.S.

Calendar nesnesi ile ilgili olabilir. Desteklenmiyor olabilir.
Ne hata veriyor?

[kelkitli]

Doğru Bülent Bey,calendar nesnesinin olduğu satıra gidiyor.
Ancak bazı konularda sıkıntılar var. Mesela:
Excel 2003 de

Kod: [Seç]

Set S1=Sayfa1 hata vermezken 2007 de hata veriyor.

[Bülent Öztürk]

Bunda sorun olmaması lazım.

Set S1=Sayfa1
yerine,
Set S1 = Worksheets("Sayfa1")
şeklinde deneyin bakalım.

[kelkitli]

Cevabınızdan dolayı teşekkür ederim Bülent Bey, işyerinde deneyeceğim. Yarın tekrar dönerim.