Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: kelkitli - 15 Nisan 2011, 11:11:16

Başlık: Excel 2007 de çalışmayan kodlar
Gönderen: kelkitli - 15 Nisan 2011, 11:11:16

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?

Başlık: Ynt: Excel 2007 de çalışmayan kodlar
Gönderen: Bülent Öztürk - 15 Nisan 2011, 20:53:44

A.S.

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

Başlık: Ynt: Excel 2007 de çalışmayan kodlar
Gönderen: kelkitli - 15 Nisan 2011, 22:07:16

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.

Başlık: Ynt: Excel 2007 de çalışmayan kodlar
Gönderen: Bülent Öztürk - 15 Nisan 2011, 22:13:14

Bunda sorun olmaması lazım.

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

Başlık: Ynt: Excel 2007 de çalışmayan kodlar
Gönderen: kelkitli - 15 Nisan 2011, 22:23:31

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