Makro başka bilgisayarda çalışmıyor

[YUSUF44]

listede süzme yapmak için textbox ve süzmeyi iptal için commandbutton var.

Private Sub CommandButton21_Click()
ActiveSheet.Range("a2:a6000").AutoFilter Field:=1
TextBox21.Value = ""
TextBox21.Select
End Sub
Private Sub TextBox21_Change()
On Error Resume Next
METİN1 = TextBox21.Value
Set Fc2 = Range("a2:a6000").Find(What:=METİN1)
Application.Goto Reference:=Range(Fc2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox21.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=1
End If
End Sub

Bu kodlarla süzme ve iptal yaptırıyorum. Ancak dosyayı gerek usb diskle gerek internet üzerinden gönderdiğimde başka bilgisayarlarda kodlar çalışmıyor. Makroları etkinleştiriyorum. Kodlar yerinde duruyor ama çalışmıyor. Dosya örneği ekte. Deneyip sonuç bildirir misiniz?
Bir de bu sorunu nasıl çözebilirim?

 

[Merhum İdris SERDAR]

.

Bende çalıştı.

.

 

[YUSUF44]

Başka bilgisayarlarda çalışmamasının nedeni ne olabilir? Dairedeki başka bilgisayarlarda çalışmıyor maalesef.

 

[halit3]

Bende çalışmadı


nesneleri sildim yeniden ekleyincede

Can't exit design mode because Control CommadButton21 ca not be created

uyarısı verdi

 

[karahan5]

Buna benzer sorunları bende yaşıyorum ve net bir cevap bulmuş değilim.