طلب عمل ترحيل للبيانات بالاكسيل

[gasio]

الحمد لله الذى بنعمته تتم الصالحات 

بداية الامر اتوجه بالشكر لجميع القائمين على هذا السرح وجزاهم الله عنا خير 

اريد المساعدة بالملف المرفق : اريد عمل ترحيل للبيانات من الشيت الاول للشيت الثاني بمجرد ادخال البيانات بالشيت الاول وحفظها يتم ترحيلها على شيت 2 .

ارجو المساعدة حيث اننى ليس لدى المهارة لاجراء مثل هذه الخطوة ولكنها ستساعدني كثيرا بعملي

اخوكم ممدوح صفا 

المصروفات.rar

[ابراهيم الحداد]

السلام عليكم ورحمة الله
تفضل اخى الكريم
ادرج هذا الكود فى موديول جديد وخصص له زر فى شيت نموذج كشف المصروفات

Sub Transfer()
x = Range("C2").Value
y = Range("C3").Value
Z = Range("C4").Value
A = Range("G31").Value
With Sheet2
LR = .Cells(Rows.Count, "C").End(xlUp).Row + 1
.Range("B" & LR) = x
.Range("C" & LR) = y
.Range("D" & LR) = Z
.Range("E" & LR) = A
End With
End Sub