kodu multiple tetikleme

[mersilen]

selamlar
aşagıdaki kodda tetikleme kısmına ikinci bir sütun eklemek gerekirse nasıl yapmalıyız

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("e5:g35")) Is Nothing Then Exit Sub
    Cancel = True
    Target = Target + 1
End Sub

aşağıdaki örnekleri denedim olmadı
If Intersect(Target, Range("e5:e15;g5:10")) Is Nothing Then Exit Sub
If Intersect(Target, Range("e5:e15";"g5:10")) Is Nothing Then Exit Sub
If Intersect(Target, [e5:e15;g5:g10]) Is Nothing Then Exit Sub
If Intersect(Target, [e5:e15], [g5:g10]) Is Nothing Then Exit Sub

 

[halit3]

Bunu denermisiniz.

If Intersect(Target, Range("e5:g35,g4:g19")) Is Nothing Then Exit Sub

 

[mersilen]

halit hocam çok teşekkürler, kod çalıştı

aşağıdaki sistemde nasıl yazmamız gerekirdi

If Intersect(Target, [e5:e15], [g5:g10]) Is Nothing Then Exit Sub

 

[halit3]

Bunun gibi olması lazım

If Intersect(Target, [e5:e15, g5:g10]) Is Nothing Then Exit Sub

 

[mersilen]

Tekrar teşekkürler, çalıştı.

 

[halit3]

Tekrar teşekkürler, çalıştı.

iyi çalışmalar

 

[Korhan Ayhan]

Selamlar,

Konu cevaplanmış ama konuyu inceleyen diğer üyelerimiz için ek bir bilgi vermek istiyorum.

Normalde Türkçe versiyonlarda excel sayfasında formül içinde ayıraç sembolü olarak noktalı virgül ";" kullanılmaktadır. Fakat kod editöründe iş değişiktir. Noktalı virgül yerine virgül kullanılması gerekmektedir.

Yani excel sayfasında aşağıdaki şekilde yazılan bir formül;

=EĞER(A1=1[COLOR=red];[/COLOR]1[COLOR=red];[/COLOR]0)

Kod editöründe aşağıdaki şekilde yazılmalıdır.

=IF(A1=1[COLOR=red],[/COLOR]1[COLOR=red],[/COLOR]0)