iki işlemi çalıştırma

[igultekin2000]

iyi günler; iki işlemi aynı sayfada çalıştırmak istiyorum. birleştirmeyi denedim yapamadım. teşekkürler

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
    
    If Intersect(Target, [B5:B20,D5:D20,J2:J2000]) Is Nothing Then Exit Sub
    If Target.Column = 2 Then
        'cmd1.Top = ActiveCell.Top
    ElseIf Target.Column = 4 Then
        'cmd2.Top = ActiveCell.Top
    Else
        Cmd3.Top = ActiveCell.Top
    End If
    End Sub
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Columns("BA").ClearContents
    Cells(Target.Row, "BA") = 1
    End Sub

 

[ASLAN7410]

Merhaba.

Kod başlığını ve End Sub'un bir tanesini silin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

Bu kodlar bir tane kalsın.

 

[halit3]

Böyle denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns("BA").ClearContents
Cells(Target.Row, "BA") = 1

If Intersect(Target, [B5:B20,D5:D20,J2:J2000]) Is Nothing Then Exit Sub
If Target.Column = 2 Then
'cmd1.Top = ActiveCell.Top
ElseIf Target.Column = 4 Then
'cmd2.Top = ActiveCell.Top
Else
Cmd3.Top = ActiveCell.Top
End If
End Sub

 

[igultekin2000]

Böyle denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns("BA").ClearContents
Cells(Target.Row, "BA") = 1

If Intersect(Target, [B5:B20,D5:D20,J2:J2000]) Is Nothing Then Exit Sub
If Target.Column = 2 Then
'cmd1.Top = ActiveCell.Top
ElseIf Target.Column = 4 Then
'cmd2.Top = ActiveCell.Top
Else
Cmd3.Top = ActiveCell.Top
End If
End Sub

sorunsuz çalıştı , teşekkürler