Makrolar Office 2003 de çalışmıyor

[Emir Hüseyin Çoban]

Merhaba Arkadaşlar,
Ekteki tablo office 2007 sorunsuz olarak çalışıyor ancak office 2003 de makrolar hata veriyor.

Makro güvenlik seviyesinden kaynaklanmıyor, makro kodlarında bir şey olarabilir.

Tabloyu ekliyorum, yardım ve fikirlerinizi bekliyorum.

 

[m.gur]

Sorunun kaynağı 2003 te one note uygulamasının olmaması. 2007 de bu özellik var ve sizin kodlarınız çıktıyı oraya aktarıyor. 2003 te bu özellik yok. Kodlarınızı one note yerine worde göre uyarlamanız gerek.

 

[Emir Hüseyin Çoban]

Sayın M.gur, ilginiz için teşekkür ederim.
İlgili kodlarını düzenlememde de bana yardımcı olabilir misiniz?

 

[m.gur]

Sayın hüseyincoban; yardım etmeyi inan çok isterim kodlara baktım ama inan fazla bilgim olmadığı için anlıyamadım. Umarım anlıyan bir uzmanımız yardımcı olacaktır. İyi çalışmalar.

 

[Emir Hüseyin Çoban]

İlginiz için tekrardan tşk ederim,
Uzmanlarımızdan konu ile ilgili yardım bekliyorum.

 

[leumruk]

Merhaba,
Muhtemelen programınız 2007'de hazırlandığı için 2003 referanslarıyla uyum sağlamıyor. Visual Basic ekranını açıp Tools>References bölümünden başında Missing yazan referansları kaldırın(Bunların sonu 12 ile biter.)
Bunların yerine sonu 11 ile biten 2003'e uygun olan aynı referansları işaretleyin.

 

[kemalist]

Merhaba Arkadaşlar,
Ekteki tablo office 2007 sorunsuz olarak çalışıyor ancak office 2003 de makrolar hata veriyor.

Makro güvenlik seviyesinden kaynaklanmıyor, makro kodlarında bir şey olarabilir.

Tabloyu ekliyorum, yardım ve fikirlerinizi bekliyorum.

excel 2007 olan bilgisayara microsoftun kendi sitesinden file format convertörü yükleyin ve çalıştırıp yükleyin.

 

[Emir Hüseyin Çoban]

Merhaba,
Muhtemelen programınız 2007'de hazırlandığı için 2003 referanslarıyla uyum sağlamıyor. Visual Basic ekranını açıp Tools>References bölümünden başında Missing yazan referansları kaldırın(Bunların sonu 12 ile biter.)
Bunların yerine sonu 11 ile biten 2003'e uygun olan aynı referansları işaretleyin.

Yazdırma makrolarındaki sorun bu şekilde çözüldü, teşekkür ederim.

Ancak Userform da Textbox2 deki kodlarda bir hata veriyor. Textbox2 ye veri girmeye çalışınca

TextBox5.Text = (DateAdd("d", TextBox2, TextBox1))

kodu sarı ile boyuyor.

 

[Emir Hüseyin Çoban]

TextBox5.Text = [COLOR="Red"](DateAdd("d", [/COLOR]TextBox2, TextBox1))

İşlemi Office 2003 de olmayabilir. Bu işlem yerine başka hangi kodları kullana bilirim.

 

[Korhan Ayhan]

Selamlar,

Bahsettiğiniz kod 2003 versiyonda da çalışır. Sizin kodlarınıza hata kontrolü eklemek gerekebilir. Örnek dosyanızı eklerseniz çözüm üretebiliriz.

 

[Emir Hüseyin Çoban]

Selamlar,

Bahsettiğiniz kod 2003 versiyonda da çalışır. Sizin kodlarınıza hata kontrolü eklemek gerekebilir. Örnek dosyanızı eklerseniz çözüm üretebiliriz.

Dosyayı ekliyorum Korhan Bey,
Yardım ve fikirlerinizi bekliyorum.

 

[Korhan Ayhan]

Selamlar,

UserForm_Activate ve TextBox2_Change kodlarınızı aşağıdaki gibi değiştirip deneyiniz.

Private Sub UserForm_Activate()
    TextBox1.Value = Range("X36")
    TextBox2.MaxLength = 4
    UserForm1.Caption = "Vade Günü Gir"
    TextBox1.Text = Format(Range("X36").Value, "dd.mm.yyyy")
End Sub

Private Sub TextBox2_Change()
    Dim X As Integer
    TextBox1 = Format(TextBox1, "dd/mm/yyyy")
    If TextBox2 <> "" Then
        For X = 5 To 152 Step 3
            If X = 5 Then
                Me.Controls("TextBox" & X) = (DateAdd("d", TextBox2, CDate(Me.Controls("TextBox" & X - 4))))
            Else
                Me.Controls("TextBox" & X) = (DateAdd("d", TextBox2, CDate(Me.Controls("TextBox" & X - 3))))
            End If
            Me.Controls("TextBox" & X) = Format(Me.Controls("TextBox" & X).Text, "dd/mm/yyyy")
        Next
    Else
        For X = 5 To 152 Step 3
            Me.Controls("TextBox" & X) = TextBox1
        Next
    End If
End Sub

 

[Emir Hüseyin Çoban]

Teşekkürler Korhan Bey,

Office 2007 de yine sorunsuz çalışıyor ancak, 2003 de "overflow hatası" verdi. Forumda yaptığım araştırmada

Bildiğim kadarıyla dizinin dışına çıkıyorsunuz demek.
Yani 5 elemanlı bir diziniz varsa ve siz 5 ten büyük bir değerini almaya kalkarsanız overflow (aşma) hatası alırsınız.

sonucunu buldum.

Eski kodları bu şekilde düzenleyince sorun ortadan kalktı.

Private Sub TextBox2_Change()
[COLOR="Red"]Dim a As Date
a = Date[/COLOR]
TextBox5.Text = (DateAdd("d", TextBox2, [COLOR="red"]a[/COLOR]))
TextBox5 = Format(TextBox5, "dd/mm/yyyy")
End Sub

İlginiz ve yardımlarınız için teşekkür ederim. İyi paylaşımlar.

 

[gurcannasuh]

Merhabalar,
Office 2003-2007 de çalışmıyor, destek olabilmeniz mümkün müdür?
Şimdiden teşekkürler.