Makronun istemediğim sayfada çalışmaması

[mars2]

İyi Günler;
ThisWorkbokk'ta yazılı bulunan makronun çalışma kitabımın herhangi bir sayfasında çalışmamasını istiyorum. Ne yapmam gerekiyor.

Private Sub Workbook_Open()


End Sub

 

[Ömer]

Merhaba,

Yazılabilir tabiki, fakat kodların içeriğini verip açıklarsanız daha net cevaplar alabilirsiniz.

.

 

[hımmmmmmmm]

slm

macronun ne yaptığına bağlı

 

[mars2]

Private Sub Workbook_Open()
If Intersect(Target, Range("C8:C280")) Is Nothing Then Exit Sub
If Target.Offset(0, 0) = "" Then
Target.Offset(0, -1).Value = ""
Target.Offset(0, 5).Value = ""
Else
Set ara = Sheets("isim").Range("B1:B280").Find(Target.Offset(0, 0), , xlValues, xlWhole)
If Not ara Is Nothing Then
Target.Offset(0, -1).Value = Sheets("isim").Range("C" & ara.Row)
Target.Offset(0, 5).Value = Sheets("isim").Range("D" & ara.Row)

End If
End If

End Sub

bu makronun ad sayfasında çalışmasını istemiyorum

 

[Ömer]

makronun ad sayfasında çalışmasını istemiyorum

Kodlar hücre hareketiyle çalışmaktadır. Neden Open altında yazdınız ?

Kodları aşağıdakilerle değiştiriniz. İşlevini kontrol etmedim...

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
    Dim ara As Range
 
    If ActiveSheet.Name = "ad" Then Exit Sub
    If Intersect(Target, [C8:C280]) Is Nothing Then Exit Sub
 
    If Target = "" Then
        Target.Offset(0, -1).Value = ""
        Target.Offset(0, 5).Value = ""
    Else
        With Sheets("isim")
            Set ara = .[B1:B280].Find(Target, , xlValues, xlWhole)
            If Not ara Is Nothing Then
                Target.Offset(0, -1).Value = .Range("C" & ara.Row)
                Target.Offset(0, 5).Value = .Range("D" & ara.Row)
            End If
        End With
    End If
 
End Sub

.

 

[mars2]

Sayın Ömer;
İlginiz için teşekkürler.