Macronun kod düzenlenmesi hk.

[mebmab]

Değerli Ustatlar

If Range("H1") = 6 Then Makro1
If Range("H1") = 5 Then Makro1
If Range("H2") = 6 Then Makro1
If Range("H2") = 5 Then Makro1
If Range("H3") = 6 Then Makro1
If Range("H3") = 5 Then Makro1 Şeklinde ("H1000") kadar devam ediyor.

Benim için önemli olan bir hücre içerisinde 5 yada 6 olduğu zaman macro 1 çalışması ">/</=" hiç biri ile yapamadım. Başka bir şekilde ifade edilebilirmi?

 

[Ömer]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H1:H1000]) Is Nothing Then Exit Sub
If Target.Value = 5 Or Target.Value = 6 Then Call Makro1
End Sub

Bu şekilde denermisiniz..

.

 

[mebmab]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H1:H1000]) Is Nothing Then Exit Sub
If Target.Value = 5 Or Target.Value = 6 Then Call Makro1
End Sub

Bu şekilde denermisiniz..

.

Sn Hocam

Gönderdiğiniz kod oldu. Çalışıyor fakat ben soruyu eksik sormuşum.

Option Explicit

Private Sub Worksheet_Calculate()
If Range("H1") = 6 Then Makro1
If Range("H1") = 5 Then Makro1
If Range("H2") = 6 Then Makro1
If Range("H2") = 5 Then Makro1
If Range("H3") = 6 Then Makro1
If Range("H3") = 5 Then Makro1 Şeklinde ("H1000") kadar devam ediyor.


Benim için önemli olan bir hücre içerisinde 5 yada 6 olduğu zaman macro 1 çalışması ">/</=" hiç biri ile yapamadım. Başka bir şekilde ifade edilebilirmi?

 

[mebmab]

Sn. Hocalarım

Yukarıdaki sorum için önerisi ya da fikri olan varmı?

 

[Orion1]

Ömer beyin veriği kodları calculete olayının içine yapıştırınız diğerlerini siliniz.

 

[mebmab]

Ömer beyin veriği kodları calculete olayının içine yapıştırınız diğerlerini siliniz.

Hocam denedim olmadı

 

[Ömer]

Private Sub Worksheet_Calculate()
    For Each Hücre In [H1:H1000]
        If Hücre = 5 Or Hücre = 6 Then
            Call Makro1
            Exit Sub
        End If
    Next Hücre
End Sub

formüllü hücre sonuça ulaştığı zaman Makro1 çalışacaktır..

 

[mebmab]

Hocan Büyüksün!

Eline ve yüreğine sağlık.