Intersect Birden Fazla Aralık Nasıl Tanımlanır?

[aytacesmebasi]

[Çözüldü] Intersect Birden Fazla Aralık Nasıl Tanımlanır?

Forumda "Hücre içinde otomatik tamamlama" adlı bulduğum örneği kendi çalışmama eklemek istiyorum, ancak aralık belirtirken iki aralık belirtebiliyorum, bunun sayısını nasıl arttırabilirim?

Aşağıdaki kod bölümündeki alttaki satırda

If Intersect(Target, Range("D15: D29, D34: D53, D59: D78, D83: D97, O15:O24, O30:O34, O40:O49, O55:O74, O79:O83"))

Aralıkları belirttim, bu şekli yanlış sanırım çünkü kabul etmedi, sonra her aralığı "" arasında yazdım sadece ikinci aralığı kabul etti diğerlerini etmedi, daha sonra her aralık için Range"" şeklinde giriş yaptım yine olmadı, bunu nasıl çoğaltabiliriz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Intersect(Target, Range("D15:D29, D34:D53, D59:D78, D83:D97, O15:O24, O30:O34, O40:O49, O55:O74, O79:O83"))End Is Nothing Then Exit Sub
ototanim.Clear
ilk_deger = Target

    ototanim.Style = fmStyleDropDownCombo
    ototanim.MatchEntry = fmMatchEntryComplete
    ototanim.SelectionMargin = False
    ototanim.AutoTab = True
    
    ototanim.Top = Target.Top
    ototanim.Left = Target.Left
    ototanim.Width = Target.Width + 15
    ototanim.Height = Target.Height
    
    ototanim.Activate
    ototanim = Target
    
    silmek = True

End Sub

 

[Korhan Ayhan]

Merhaba,

Bahsettiğiniz satırda ")" işaretinden sonra End yazmışsınız. Onu silerseniz düzelecektir.

 

[aytacesmebasi]

Teşekkür ederim, dediğiniz şekilde yapınca problem çözüldü