با سلام.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim r As Variant
r = ActiveCell.Row
Application.Rows( r ).Select
Selection.Copy
Sheets(Array("Sheet2", "Sheet3")).Select
Sheets("Sheet2").Activate
Application.Rows( r ).Select
ActiveSheet.Paste
If ActiveCell.Value <> "" Then
MsgBox "ÇØáÇÚÇÊ ˜í ÔÏ"
Else
MsgBox "ÚÏã ãÍÊæíÇÊ ÏÑ ÓØÑ ÇäÊÎÇÈí"
End If
Sheets("Sheet1").Select
Application.CutCopyMode = False
Application.Rows( r ).Select
End Sub
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.