Renk yada Koda göre Makro Çalıştırmak

[ErcumentaL]

Merhaba Arkadaşlar
CommandButona Atanacak bir Makro ile
"a1" hücresi kırmızı ise yada "1" yazıyorsa "kırımızıyazdır" adlı makronun çalışmasını nasıl sağlayabiliriz.

 

[asi_kral]

Merhaba
Bu kodu deneyebilirsiniz.

Option Explicit
Private Sub CommandButton1_Click()
If Range("A1").Interior.Color = vbRed Or Range("A1") = 1 Then
Call kırmızıyazdır
End If
End Sub

 

[ErcumentaL]

Merhaba
Bu kodu deneyebilirsiniz.

Option Explicit
Private Sub CommandButton1_Click()
If Range("A1").Interior.Color = vbRed Or Range("A1") = 1 Then
Call kırmızıyazdır
End If
End Sub

Merhaba. Kod Çalışıyor Teşekkür ederim.
Farklı koşulları nasıl ekleyebilirim.
a1 sarı ise x makro çalışsısn
a1 mavi ise y makro çalışsın.

If Range("A1").Interior.Color = vbRed Or Range("A1") = 1 Then
Call kırmızıyazdır

şeklinde altına eklediğimde hata verdi.

 

[asi_kral]

Merhaba
Bu şekilde olur.

Option Explicit
Private Sub CommandButton1_Click()
If Range("A1").Interior.Color = vbRed Or Range("A1") = 1 Then
Call kırmızıyazdır
End If
If Range("A1").Interior.Color = vbYellow Then
Call x
End If
If Range("A1").Interior.Color = vbBlue Then
Call y
End If
End Sub

 

[ErcumentaL]

Merhaba
Bu şekilde olur.

Option Explicit
Private Sub CommandButton1_Click()
If Range("A1").Interior.Color = vbRed Or Range("A1") = 1 Then
Call kırmızıyazdır
End If
If Range("A1").Interior.Color = vbYellow Then
Call x
End If
If Range("A1").Interior.Color = vbBlue Then
Call y
End If
End Sub

Option Explicit
Private Sub Düğme7_Tıklat()
If Range("b8").Interior.Color = vbRed Or Range("j8") = 1 Then
Call sgktrafikolumlu
End If
If Range("b8").Interior.Color = vbGreen Or Range("j8") = 2 Then
Call sgkolumlutrafikolumsuz
End If
End Sub

Bu şekilde çalışmadı. kırmızı olunca çalışıyor ama yeşilde çalışmadı.

 

[Emir Hüseyin Çoban]

. . .

#

 Tagının Kullanımı Hk. >>[/COLOR][/B][/I][/URL]


Sizin hücrede seçtiğin yeşil ile vbgreen kodunun tonları farklı olduğu için uyuşmuyordur.
[B]Range("b8").Interior.Color = vbGreen[/B] çalıştırarak olması gereken tonu öğrenebilirsiniz.
Kodları [B]color[/B] sayılarına göre değiştirebilirsiniz. Bu kodlarıda makro kaydet ile elde edebilirsiniz.

. . .