2003 teki makrolar 2007 de neden çalışmıyor

[northcyprus]

Private Sub TextBox1_Change()
Sheets("Sheet4").Select
Range("G2").Select
ActiveCell.Offset(G2).Value = TextBox1.Value

End Sub


2007 ye geçtim ve çalışmıyor

texbox a yazınca hata veriyor

 

[hamitcan]

Yazdığınız kod yanlış.
ActiveCell.Offset(G2).Value = TextBox1.Value satırını
ActiveCell.Offset(1,0).Value = TextBox1.Value şeklinde değiştirmelisiniz.

 

[northcyprus]

evet ama digerleri de çalışmıyor. örnegin:
Private Sub UserForm_Activate()
UserForm3.StartUpPosition = 0
UserForm3.Left = 100
Start = Timer
Do
DoEvents
finish = Timer
deg = Format(finish - Start, "0")
c = c + 2
UserForm3.Top = 300 - c
If UserForm3.Top = 100 Then Exit Sub
Loop While finish - Start <= 1000
End sub


makro ayarlarını ve VBA ları halleddim ama yine de 2003 de çalışan makrolarda sıkıntı yaşıyorum nedenini de bulamıyorum örnek olarak yukardaki formülde userformdaki timer start olmuyor ve hata ile karşılaşıyorum.

 

[hamitcan]

Hata nedir ? Yazarsanız, çözüm daha kolay olabilir.