مساعدة فى كود لترحيل خلية من شيت الى شيت بالتتابع

[sparky man]

السلام عليكم

ارجو منكم المساعدة فى كود ترحيل او نسخ القيمة من خلية ثابتة مع تغير الموظف

مثال عندى شيت فيه بيانات الموظفين فى صفوف والشيت الاخر هو عبارة عن نموذج يقوم بجلب البيانات من الشيت الاول وعمل عمليات حسابية على كل اسم

عايز كود ينسخ الناتج فى عمود بالشت الاول بالتتابع

نسخ   AG28 & ah28

فى شيت  BBBB

الى

عمود  X & Y

فى شيت AAAA

 AAAAA.xls

[محي الدين ابو البشر]

ربما

Private Sub Worksheet_Calculate()
        With Worksheets("AAAA").Range("A:A")
            Set g = .Find(Worksheets("BBBB").Range("Y7"), LookIn:=xlValues)
            If g Is Nothing Then Exit Sub
            g.Offset(, 23) = Worksheets("BBBB").Range("AG28").Value
            g.Offset(, 24) = Worksheets("BBBB").Range("Ah28").Value
        End With
End Sub