Sütunda hücreye tıklayınca userform gösterme (çoklu)

[YILDIZ YAĞMURU]

aşağıdaki kod un ilk bölümü ile yani userform9 u belirtilen sütunları secince sayfada gösteriyorum. fakat başka bir sutunu seçincede diğer userform gösterilsin istiyorum .. çokmu şey istiyorum acaba
yardımcı olurmusunuz ??

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("SpinButton1").Top = ActiveCell.Offset(4 - 0).Rows.Top
If Intersect(Target, Range("E5:E155,F5:H155,K5:K155,N5:N155,L5:L155,S5: S155,p5155")) Is Nothing Then
Unload UserForm9
Exit Sub
End If
UserForm9.Show 0

If Intersect(Target, Range("b5:b155")) Is Nothing Then
Unload UserForm3
Exit Sub
End If
UserForm4.Show 0

If Intersect(Target, Range("a5:a155")) Is Nothing Then
Unload UserForm3
Exit Sub
End If
UserForm4.Show 0
End Sub

 

[Korhan Ayhan]

Aşağıdaki kod yapısını kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Unload UserForm1
    Unload UserForm2
    Unload UserForm3
    
    Select Case Target.Row
        Case Is >= 5
            Select Case Target.Column
                Case 5, 6, 7, 8, 11, 12, 14, 16, 19
                    UserForm1.Show 0
                Case 2
                    UserForm2.Show 0
                Case 1
                    UserForm3.Show 0
            End Select
    End Select
End Sub

 

[YILDIZ YAĞMURU]

Aşağıdaki kod yapısını kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Unload UserForm1
    Unload UserForm2
    Unload UserForm3
    
    Select Case Target.Row
        Case Is >= 5
            Select Case Target.Column
                Case 5, 6, 7, 8, 11, 12, 14, 16, 19
                    UserForm1.Show 0
                Case 2
                    UserForm2.Show 0
                Case 1
                    UserForm3.Show 0
            End Select
    End Select
End Sub

Korhan bey , hücrelere tıkladıgım zaman aynı ada baska sayfalarıda acıyor bu kod. ayrıca bir userform aktıfken dıger sutuna tıkladıgım zaman ilk userform kaybolmuyor yanı hepsı bırden aktıf oluyor. bırı aktıfken dıgerının pasıf olması gerekıyor.

 

[Korhan Ayhan]

Merhaba,

Boş bir çalıma kitabına 3 adet form ekleyin.
Vermiş olduğum kodu ilgili sayfanın kod bölümüne uygulayın.
Sayfaya dönün ve aralıktaki hücrelere tıklayarak sonucu gözlemleyin.

Olumlu sonuç alıyorsanız kendi dosyanıza form isimlerini değiştirerek uyarlayın.