TARGET OLAYINDA HÜCRE KİLİT VE EN FAZLA NE KADAR HÜCRE EKLENİYOR?

[cocoa35]

Merhaba; Aşağıdaki formülde hücrelere geldiğinde mesaj veriyor, Benim 2 adet ricam olacak 1-" Intersect(RangeC8:C8,.........),Target " En fazla ne kadar hücre belirtebiliyoruz? aşağıdaki 24 hücreden sonra formül şaşırıyor, sayfadaki tüm hücrelere gelince mesaj çıkmaya başlıyor ! ancak benim 24 hücreden daha fazla hücre göstermem gerekiyor bunu nasıl sağlayabiliriz? 2- Hücrelere gelidiğinde mesaj çıkıyor ancak işlem'de yapılabiliyor şu anda! benim isteğim hücreye geldiğinde mesaj çıksın ancak hücreyi kilitlesin işlem yapılmasın ( Sayfa koruma ile yapmak istemiyorum çünkü sayfada bazı işlemlere göre satır gizleme makro'su var o hata veriyor!)
Bu konuda yardımınızı istiyorum, teşekkürler.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Set myRange = Intersect(Range("C8:C8,D1515,D2830,D3641,H51:H57,B64:B66,B70:B70,B74:B74,B78:B78,E106:E106,B107:B107,D107107,C143:C145,G143:G145,J143:J145,M143:M145,C149:C151,F149:F151,J149:J150,D155157,H155:H156,C161:C164,F161:F161,C168:C170,G168:G169,C174:C176,G334:G334"), Target)
If Not myRange Is Nothing Then
UserForm76.Show
End If
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki gibi kodlarda çalıştı gibi, dener misiniz?
Microsoft'un sayfasında 3 parametre olarak belirtilmiş.

Hücre ve hücre gruplarını tek parametre olarak kabul ediyor sanırım.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

    On Error Resume Next
    If Intersect(Target, [[B7,B64:B66,B74,B78,B107,C8,C143:C145,C149:C151,C161:C164,C168:C170,C174:C176,D15,D28:D30,D36:D41,D107,D155:D157,E106,F149:F151,F161:F161,G143:G145,G168:G169,G334,H51:H57,H155:H156,J143:J145,J149:J150,M143]]) Is Nothing Then Exit Sub
    UserForm76.Show
   
End Sub

 

[cocoa35]

Merhaba,Denedim ama olmadı , dahası ne mesaj çıktı nede hücre kilitlendi

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Adres satırlarını çoğaltabilirsiniz.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Dim MyRange, Adres1, Adres2, Adres3, Adres4, Adres5, Alan
    Set Adres1 = Range("C8,D15,D28:D30,D36:D41,H51:H57,B64:B66,B70,B74,B78,E106,B107,D107")
    Set Adres2 = Range("C143:C145,G143:G145,J143:J145,M143:M145,C149:C151,F149:F151,J149:J150")
    Set Adres3 = Range("D155:D157,H155:H156,C161:C164,F161,C168:C170,G168:G169,C174:C176,G334")
    Set Alan = Application.Union(Adres1, Adres2, Adres3)
    Set MyRange = Intersect(Alan, Target)
    If Not MyRange Is Nothing Then
        UserForm76.Show
    End If
End Sub

 

[cocoa35]

Teşekkürler Korhan Hocam gayet iyi çalışıyor