Makro hatası

[burhancavus61]

Aşağıdaki kodun biri çalışsa diğeri çalışmıyor. Yerlerini değiştiriyorum bu sefer diğeri çalışmıyor. Her ikisi aynı anda çalışmıyor.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
If Target.Address = "$BI$2" Then
    Call ButceVeIscıturuFiltre
    Range("A1").Select
End If
End Sub

 

[Korhan Ayhan]

Bu satırı Application.EnableEvents = True End Sub ifadesinin üstüne alıp deneyiniz.

 

[burhancavus61]

olamadı hocam

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
Target = UCase(Target)
If Target.Address = "$BI$2" Then
    Call ButceVeIscıturuFiltre
    Range("A1").Select
End If
Application.EnableEvents = True
End Sub

 

[Korhan Ayhan]

Bu durumda dosyanızı paylaşın inceleyelim.

 

[burhancavus61]

hocam dosya çok büyük ve elimden geldiğince bişeyler yapmaya çalıştım. ama yüklenmiyor.

 

[Korhan Ayhan]

Buraya yükleyebilirsiniz.

WeTransfer | Send Large Files Fast

The simple, quick and secure way to send your files around the world without an account. Share your files, photos, and videos today for free.

wetransfer.com

 

[burhancavus61]

Hocam bu şekilde çalıştı. Deneme yanılmayla oldu. İlginiz için teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$BI$2" Then
    Call ButceVeIscıturuFiltre
    Range("A1").Select
End If
On Error Resume Next
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub

 

[Korhan Ayhan]

Tebrikler..

 

[burhancavus61]

Teşekkür ederim hocam. Bu site sayesinde çok şey öğrendim.