makro adi uzun satırı bölme

[airborne]

s.a.

makronun içerisinde,

If Not Intersect(Range("C9:C38,C48:C72,C88:C112,C129:C153,C168:C192,C208:C232,C248:C272,C288:C312,C328:C352,C368:C392,C408:C432,C448:C472,C488:C512,C528:C552,C568:C592,C608:C632,C648:C672"), Target) Is Nothing Then

gibi komutum var. ve buna daha adresleri ilave edeceğim. bir satır yerine iki üç satır içinde yazmak istiyorum. alt çizgi işareti ile bölemedim.

Bunu Nasıl bölünebilir. yani 2 veya 3 satır halinde yazılabilir.

Selametle..............

 

[Ömer BARAN]

Merhaba.

Virgüllerden sonra BİR BOŞLUK ALT TİRE ENTER(satırbaşı) gibi deneyin.

 

[airborne]

ömer hocam söylediğini yapınca satır kırmızıya dönüyor

 

[Ömer BARAN]

Merhaba.
Birleştirme işaretini unutmuşum.

If Not Intersect(Range("C9:C38,C48:C72,C88:C112,C129:C153,[COLOR="Red"]" & _[/COLOR]
        [COLOR="red"][B]"[/B][/COLOR]C168:C192,C208:C232,C248:C272,C288: C312,C328:C352,[COLOR="Red"]" & _[/COLOR]
        [COLOR="red"][B]"[/B][/COLOR]C368:C392,C408:C432,C448:C472,C488:C512,C528:C552,[COLOR="Red"]" & _[/COLOR]
        [COLOR="red"][B]"[/B][/COLOR]C568:C592,C608:C632,C648:C672"), Target) Is Nothing Then
[COLOR="Blue"]'....... yapılacak işlemlere ait kodlar.....[/COLOR]
End If

 

[Korhan Ayhan]

Alternatif olarak UNION komutunu da kullanabilirsiniz.

Kendinize göre değiştirebilirsiniz...

Dim A1 As Range, A2 As Range, A3 As Range, A4 As Range, A5 As Range, Alan As Range
A1 = Union(Range("C9:C38"))
A2 = Union(Range("C48:C72"))
A3 = Union(Range("C88:C112"))
A4 = Union(Range("C129:C153"))
A5 = Union(Range("C168:C192"))
Alan = Union(A1, A2, A3, A4, A5)
If Not Intersect(Alan, Target) Is Nothing Then
.....
.....
.....
End If