aynı hedef hücreden iki makro çalıştırmak

[kemalist]

arkadaşlar benim yapmak istediğim H30 dan yaptığım seçime göre iki makronunda birlikte çalışması.
Örnek dosya ektedir.

 

[Ömer BARAN]

Merhaba.

Birinci Worksheet_Change kod blokunda yer alan kod'u aşağıdaki şekilde ikincisindekini ekleyin ve sonra ikinci change kod blokunu silin.
.

[FONT="Arial Narrow"]Private Sub Worksheet_Change(ByVal Target As Range)
    Dim evn As Range
    If Target.Address(0, 0) = "H30" Then
[COLOR="Blue"]'Burası birinci kısmın başlangıcı[/COLOR]
        For Each evn In Range("JE5:JE254")
            If Target.Value = evn.Value Then
Range("JF3").Value = evn.Offset(0, 1).Value
...............................................................
...............................................................
Range("SU3").Value = evn.Offset(0, 250).Value
            End If
        Next evn
 [B][COLOR="Red"]Set evn = Nothing[/COLOR][/B][COLOR="blue"] 'ikinci kısıma geçmeden önce evn adlı değişkeni sıfırlama satırı[/COLOR]
 [COLOR="Blue"]'Burası ikinci kısmın başlangıcı[/COLOR]
         For Each evn In Range("JE260:JE509")  'JE5:JE254
            If Target.Value = evn.Value Then
Range("JF257").Value = evn.Offset(0, 1).Value
...............................................................
...............................................................
Range("SU257").Value = evn.Offset(0, 250).Value
            End If
        Next evn
    End If
    Set evn = Nothing
    End Sub[/FONT]

Sanırım istediğniz sonuç bu şekilde elde edilecektir.
.

 

[kemalist]

Ömer Bey; çok teşekkür ederim.