كيف يمكن اضافة البيات إلى شيت آخر

[abo_abdelrahmaan]

كيف يمكن عند اضافة بيان جديد في ورقة Adddata يتم نقله إلى ورقة

Data وهكذا مع كل بيان جديد.بيانات.xlsx

[احمد بدره]

ضع هذا الكود في موديول

Sub OFFICNA1()
Sheets("AddData").Select
LR = Sheets("AddData").Range("B" & Rows.Count).End(xlUp).Row

'x = Range("F2").Value

Range("b3:c" & LR).Select

Selection.Copy

Range("a1").Select

Sheets("Data").Select

LR1 = Sheets("Data").Range("a" & Rows.Count).End(xlUp).Row

Range("A" & LR1 + 1).Select

ActiveSheet.Paste

Application.CutCopyMode = False

Range("C1").Select

MsgBox ("تم الترحيل بنجاح")

End Sub

[Ali Mohamed Ali]

تفضل اخى الكريم وبعد اذن استاذى أحمد ولإثراء الموضوع

 

بيانات.xlsm