Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
Application.EnableEvents = False
TEST
Application.EnableEvents = True
End If
End Sub
Sub TEST()
Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
K = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row + 1
For I = 1 To Z
If IsNumeric(Sheet1.Range("A" & I).Value) And Sheet1.Range("A" & I).Value >= 100 Then
Sheet1.Range(I & ":" & I).Select
Selection.Cut
Sheets("Sheet2").Select
Rows(K & ":" & K).Select
ActiveSheet.Paste
Range("A" & K).Select
Sheets("Sheet1").Select
Range("A" & I).Select
End If
Next
End Sub
کامنت