Sayfa Altında Birden Fazla Kod Bulunması

[baydeniro]

Merhaba arkadaşlar. Aşağıda 2 adet kod aynı sayfa altında bulunmaktadır. Fakat 2 si birarada iken sorun oluyor. Tek tek olunca normal çalışıyorlar. Kodlarda değişiklik mi yapmak lazım ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "H10" Then
Call FIELD
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "H9" Then
Call FILTRE
End If
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address(0, 0)
        Case Is = "H9"
        Call FILTRE
        Case Is = "H10"
        Call FIELD
    End Select
End Sub

 

[uzmanamele]

merhaba

aşağıdaki şekilde dener misiniz

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("H9:H10")) Is Nothing Then Exit Sub
If Target.Address(0, 0) = "H9" Then
Call slm
Else
If Target.Address(0, 0) = "H10" Then
Call merhaba
End If
End If
End Sub

Sub slm()
MsgBox "selam"
End Sub
Sub merhaba()
MsgBox "merhaba"
End Sub

 

[baydeniro]

Sayın Korhan Ayhan ve Sayın uzmanamele çok çok teşekkür ederim. Çok zarifsiniz, zaman ayırıp bizlere yardımcı oluyorsunuz. İnanın yardımınız çok işimizer yaradı.

Örnekteki 2 kod yapı itibarıyla benzerdi. Yapısı farklı bir kodu (örnek aşağıda) aynı sayfa altına almak mümkün mü ?

Sub Dugme()
If [A1] = "1" Then Sheet4.Shapes("Button 1").Visible = 1
If Not [A1] = "1" Then Sheet4.Shapes("Button 1").Visible = 0
End Sub

 

[Korhan Ayhan]

Selamlar,

Anladığım kadarıyla siz farklı hücrelerin tetiklenmesi ile farklı işlemler yapmak istiyorsunuz. Aşağıdaki yapıyı kendinize uyarlamayı deneyiniz.

[A1,B5,C1,D5,E1] bu hücrelere göre makrolar çalışmaktadır. Kırmızı renkli kısımlara çalıştırmak istediğiniz kodlarınızı yazınız.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A1,B5,C1,D5,E1]) Is Nothing Then Exit Sub
    Select Case Target.Address(0, 0)
        Case Is = "A1"
        [COLOR=red]MsgBox "1. MAKRO ÇALIŞTI."[/COLOR]
        Case Is = "B5"
        [COLOR=red]MsgBox "2. MAKRO ÇALIŞTI."[/COLOR]
        Case Is = "C1"
        [COLOR=red]MsgBox "3. MAKRO ÇALIŞTI."[/COLOR]
        Case Is = "D5"
        [COLOR=red]MsgBox "4. MAKRO ÇALIŞTI."[/COLOR]
        Case Is = "E1"
        [COLOR=red]MsgBox "5. MAKRO ÇALIŞTI."[/COLOR]
    End Select
End Sub