Събития...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Налага ми се да използвам това събитие 2 пъти в лист1 ,как да го направя , без да ми дава грешка?

Няма как да стане, а и не е нужно.

Виж това дали ще ти свърши работа

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Application.Intersect(Target, Range("A1:A10")) Is Nothing Then

 Else

 MsgBox ("Избрана клетка 'A1:A10'")

End If



If Application.Intersect(Target, Range("B1:B10")) Is Nothing Then

Else

 MsgBox ("Избрана клетка 'B1:B10'")

End If

 

End Sub

Здр.
Ами не мми става ясно този код в каква връзка си го написал .
Значи в единият случай използвам събитието Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ако определена клетка стане активна тоест кликнем върху нея се появява форма , а в другия при съшото условие само че се появява бутон

Ето за какво иде реч:
Тук се появява форма
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 23 Then UserForm1.Show
End Sub
а тук бутон
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell(2, 2) <> ActiveCell(2, 2 + 1) Or Not IsDate(ActiveCell.Value) Then
Copy_btn.Visible = False
Copy_btn.Top = 43
Else
Copy_btn.Top = Target.Top
Copy_btn.Left = Cells(43, Target.Column + 1).Left
Copy_btn.Visible = True

End If
End Sub
Когато ги поставя в един лист ми дава грешка:
Compile error:
Ambiguous name detected : Worksheet_SelectionChange

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 23 Then UserForm1.Show : Exit Sub

If ActiveCell(2, 2) <> ActiveCell(2, 2 + 1) Or Not IsDate(ActiveCell.Value) Then
Copy_btn.Visible = False
Copy_btn.Top = 43
Else
Copy_btn.Top = Target.Top
Copy_btn.Left = Cells(43, Target.Column + 1).Left
Copy_btn.Visible = True

End If
End Sub

Златен си 10Х !!!