32 Bit de çalşan makro Windows 10 64 Bitde Çalışmıyor.

[adem051]

Merhaba;

Daha önce 32 bit de hazırlamış olduğum makro.
Bilgisayarıma 64 Bit Windows 10 formatından sonra hata veriyor. Yardımcı olurmusunuz?
Bu arada kullanmış olduğum Office 2010
Yardımlarınız için şimdiden teşekkürler.


Private Sub UserForm_Initialize()

Set D = CreateObject("Scripting.Dictionary")
With D
son = Sheets("PERSONEL").Cells(Rows.Count, 1).End(xlUp).Row
For t = 2 To son 'satırlar arası döngü
If Not .exists(Sheets("PERSONEL").Cells(t, 2).Value) Then
.Add Sheets("PERSONEL").Cells(t, 2).Value, Nothing
End If
Next
ListBox1.ColumnCount = 1
ListBox1.List = Application.Transpose(.keys)
End With

ComboBox8.SetFocus
EkranTemizle.Enabled = False
PersonelSil.Enabled = False
DeğişikliğiKaydet.Enabled = False
CommandButton6.Enabled = False
CommandButton3.Enabled = False


TextBox20 = Sheets("PERSONEL").Range("AY1").Value
TextBox21 = Sheets("PERSONEL").Range("AZ1").Value


End Sub

 

[Emir Hüseyin Çoban]

.

Merhaba,

"DeğişikliğiKaydet.Enabled = False" gibi türkçe karakter içeren nesnelerin isimlerini kontrol edin.

.

 

[adem051]

.

Merhaba,

"DeğişikliğiKaydet.Enabled = False" gibi türkçe karakter içeren nesnelerin isimlerini kontrol edin.

.

Cevabınız için teşekkürler hocam.
Fakat en başta " Set D = " de hata veriyor.

 

[Emir Hüseyin Çoban]

Verdiği hata uyarısı nedir..
[MISSING] olarak seçim olabilir mi..

 

[adem051]

Verdiği hata uyarısı nedir..
[MISSING] olarak seçim olabilir mi..

Hocam "can't find project or library" Bu projeyi bulamıyorum gibi bir uyarı veriyor.

 

[Emir Hüseyin Çoban]

VBA penceresinde aşağıdaki adımları uygulayıp >
[MISSING] ile başlayan satırların onayını kaldırın.
Kaydedip kapatın...
.

.

 

[adem051]

VBA penceresinde aşağıdaki adımları uygulayıp >
[MISSING] ile başlayan satırların onayını kaldırın.
Kaydedip kapatın...
.

.

Hocam çok teşekkür ederim sorun çözüldü. ALLAH'a emanet olun.