نقل نقل بيانات من شيت لأخر حسب الحالة

[ابو احمد-1]

List.rar

تم تعديل ديسمبر 13, 2015 بواسطه ابو احمد-1
السلام عليكم ورحمة الله ، نرجو مشاهدة المرفق به الشرح للمطلوب

[ابو احمد-1]

[الـعيدروس]

السلام عليكم

حط الكود التالي في حدث Thisworkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
           If Target.Column = 9 And Target.Row > 1 Then Ali Target
End Sub

والكود التالي في مودويل

Public Sub Ali(ByVal Tr As Range)
Dim A As String
Dim R As Range
Dim Sht As Worksheet
With Tr
On Error GoTo Nx
Set Sht = Sheets(.Text)
2
 With ActiveSheet.Range("A" & .Row & ":I" & .Row)
       .Copy
   With Sht
       .Cells(.Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row, 1).PasteSpecial xlPasteValues
   End With
       .ClearContents
 End With
 Application.CutCopyMode = False
End With
Set Sht = Nothing: Set R = Nothing
Exit Sub
Nx:
Set Sht = Sheets("Main")
GoTo 2
End Sub

 

[ابو احمد-1]

 

وايضا لو سمحت ماذا افعل لإضافة صفحات اخري ومسميات اخري تنتقل اليهم

اتمني الشرح لو تكرمت

تم تعديل ديسمبر 21, 2015 بواسطه ابو احمد-1