iki farklı noktada form aç

[yteizme]

Worksheet içinde aşağıdaki gibi:

Sub FormAc()
kontSut = (Target.Column) / 4
kontSut = (Target.Column) / 6
If (kontSut >= 1 And kontSut <= 12) And kontSut = (Target.Column) \ 4 Then
Select Case Target.Row
Case 25 To 28, 32 To 35, 39 To 42
UserForm1.Show vbModeless
Case Else
End Select
End If
End Sub

Form içinde aşağıdaki gibi:

If Selection.Cells.Count > 1 Then MsgBox "Hatalı Seçim": End
kontSut = (ActiveCell.Column - 1) / 4
kontSut = (ActiveCell.Column - 1) / 6

If (kontSut >= 1 And kontSut <= 12) And kontSut = (ActiveCell.Column - 1) \ 4 and kontSut = (ActiveCell.Column - 1) \ 6 Then
Select Case ActiveCell.Row
Case 25 To 28, 32 To 35, 39 To 42
GoTo atla1
End Select
End If
End

iki ayrı kod mevcut. Bu halleriyle sayfa üzerinde bir konuma geldiği zaman form açılıyor. Ancak ben kırmızı ile eklediğim noktalardada formun açılmasını istiyorum. Nasıl yapabilirim? Teşekkürler.

 

[hamitcan]

Dosya eklerseniz çözüm daha kolay olacaktır.

 

[yteizme]

Mesajımı revize ederek,örnek ekledim. Bilginize.

 

[hamitcan]

Sub FormAc()
    kontSut = (Target.Column) / 4
    If (kontSut >= 1 And kontSut <= 12) And kontSut = (Target.Column) \ 4 Then
    If (kontSut >= 1 And kontSut <= 12) And kontSut = (Target.Column) \ 6 Then
        Select Case Target.Row
        Case 25 To 28, 32 To 35, 39 To 42
            UserForm1.Show vbModeless
        Case Else
        End Select
    End If
    End If
End Sub

şeklinde deneyin. Diğer kodu da buna göre uyarlamaya çalışın.

 

[yteizme]

Başka şekilde hallettim,teşekkürler..