hücre değerine göre makro çalıştırmak

[serkanım]

merhaba

hücre değerine göre koşullu olarak makro çalıştırmak istiyorum.
ekli dosyada açıklama olarak belirttim desteğinizden dolayı şimdiden teşekkür ederim..

 

[Ömer]

Merhaba,

Sayfa1 in kod bölümüne kopyalayınız..

[COLOR=blue]Option Explicit[/COLOR]
[COLOR=blue]Public deg[/COLOR]
 
[COLOR=purple]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/COLOR]
[COLOR=purple]     deg = [A1][/COLOR]
[COLOR=purple]End Sub[/COLOR]
 
[COLOR=black]Private Sub Worksheet_Change(ByVal Target As Range)[/COLOR]
[COLOR=black]If Intersect(Target, [A1]) Is Nothing Then Exit Sub[/COLOR]
[COLOR=black] [/COLOR]
[COLOR=black]Application.EnableEvents = False[/COLOR]
[COLOR=black] [/COLOR]
[COLOR=black]If deg + 1 = Target Then[/COLOR]
[COLOR=black]    Call Makro1[/COLOR]
[COLOR=black]ElseIf deg - 1 = Target Then[/COLOR]
[COLOR=black]    Call Makro2[/COLOR]
[COLOR=black]End If[/COLOR]
[COLOR=black] [/COLOR]
[COLOR=black]Application.EnableEvents = True[/COLOR]
[COLOR=black] [/COLOR]
[COLOR=black]End Sub[/COLOR]

.

 

[serkanım]

Teşekkürler

Ömer bey yardımınızdan dolayı tekrar tekrar teşekkür ederim.