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

abo_abdelrahmaan · سبتمبر 7, 2018

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

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

**احمد بدره** · سبتمبر 7, 2018

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

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** · سبتمبر 7, 2018

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

الردود الموصى بها