انتخاب یک سلول و کپی شدن سطر متناظر آن به شیت های دیگر

[Javid Mokhtari]

با سلام.

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

[mohsen.yousefi66]

سلام امیدوارم روش بنده پاسخ گو باشد.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Target.Row
f = ActiveSheet.Index
Rows(a).Select
Selection.Copy
b = Sheets.Count
For i = 1 To b
If i <> f Then
Sheets(i).Activate
Application.Rows(a).Select
ActiveSheet.Paste
Selection.Copy
End If
Next
Application.CutCopyMode = False
End Sub


در صورت مفهوم نبودن پیغام بگذارید.

[saeed1990]

سلام وقت بخیر من هم به این مورد نیاز دارم میشه راهنمایی کنید چجوری از کدی که نوشتین استفاده کنم؟