SelectionChange sorunu

[thugangel]

Merhabalar.Aynı sayfa içinde iki farklı makronun SelectionChange ile çalışmasını nasıl sağlayabilirim.Yani aşağıda verdiğim iki makro kodunu nasıl birleştirebilirim.Yardımcı olan üstatlarıma şimdiden teşekkür ederim.

1. Kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.MoveAfterReturnDirection = xlToRight

Call SkipCell
If ActiveSheet.Name = "GELİR" Then
If Intersect(Target, [p7]) Is Nothing Then Exit Sub
UserForm1.Show
Range("g7").Value = ""
Range("f7").Value = ""
Range("e7").Value = ""
Range("c7").Value = ""
Range("b7").Value = ""
Range("p7").Value = ""
Range("b1001").Select
Range("b7").Select
End If
End Sub----------------------------------------

2.Kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, Range("C77")) Is Nothing Then Exit Sub
If ActiveCell.Offset(0, -1) = "" Then
UserForm1.Show
End If
Son:
End Sub

 

[thugangel]

ikisini tek bir Selectionchange satırına yazıp çalıştıramadım. Lütfen yardım!!!

 

[Husgvarna]

ikisini tek bir Selectionchange satırına yazıp çalıştıramadım. Lütfen yardım!!!

Merhaba.
Şöyle bir sonuç ortaya çıktı:

Sayfa Adı = "GELİR"
Range("B77") arası boş geçilemez.
(Range("B7") aktif ve "Seneklerden", ("Enter" la sağa) "Application.MoveAfterReturnDirection = xlToRight" işaretlinince.)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'On Error GoTo Son
[COLOR="Blue"]Application.MoveAfterReturnDirection = xlToRight[/COLOR]
   'ÇALIŞTIRILACAK Call SkipCell
If ActiveSheet.Name = "GELİR" Then 'Sheets("GELİR").Select
If Intersect(Target, Range("B7:P7")) Is Nothing Then Exit Sub
   'Sheets("GELİR").[b7].Activate
If ActiveCell.Offset(0, -1) = "" Then
   'UserForm1.Show
   MsgBox "boş hücre bıraktınız ", vbQuestion
Range("b7:p7").Value = ""
Range("b7").Select
End If
End If
    'Son:
End Sub