ترحيل بيانات

[مراد الجزائر]

السلام عليكم و رحمة الله تعالى و بركاته

 

 

المطلوب من حضراتكم كود لترحيل  البيانات تلقائيا  

 

حيث عند إضافة إسم المستخدم في  عمود ما ينسخ  تلقائيا إلى الورقة الثانية و الثالثة كما هو مبين في الملف المرفق

 

شكرا

Classeur1.rar

[مراد الجزائر]

السلام عليكم و رحمة الله تعالى و بركاته

 

لقد تحصلت على هذا الكود  و تعميما للفائدة أضعه بين أيديكم لتقديم ملاحظاتكم و آرائكم

 

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column <> 4 Then Exit Sub
    dl = Cells(Rows.Count, 4).End(xlUp).Row
    Set wsbs = Sheets("base salaire")
    Set wsbp = Sheets("base paie")
    dlws = wsbs.Cells(Rows.Count, "AA").End(xlUp).Row
    wsbs.Range("AA22:AA" & dlws).ClearContents
    dlws = wsbp.Cells(Rows.Count, "D").End(xlUp).Row
    wsbp.Range("D12:D" & dlws).ClearContents
    Range("D6:D" & dl).Copy wsbs.Range("AA22")
    Range("D6:D" & dl).Copy wsbp.Range("D12")
End Sub

[Yasser Fathi Albanna]

جزاك الله خيرا أخى الكريم

الرجاء وضع الكود داخل أيقونة الأكواد لتظهر بالشكل الجيد للجميع كالتالى

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 4 Then Exit Sub
    dl = Cells(Rows.Count, 4).End(xlUp).Row
    Set wsbs = Sheets("base salaire")
    Set wsbp = Sheets("base paie")
    dlws = wsbs.Cells(Rows.Count, "AA").End(xlUp).Row
    wsbs.Range("AA22:AA" & dlws).ClearContents
    dlws = wsbp.Cells(Rows.Count, "D").End(xlUp).Row
    wsbp.Range("D12:D" & dlws).ClearContents
    Range("D6:D" & dl).Copy wsbs.Range("AA22")
    Range("D6:D" & dl).Copy wsbp.Range("D12")
End Sub

وجزاك الله كل الخير