abo_abdelrahmaan قام بنشر سبتمبر 7, 2018 مشاركة قام بنشر سبتمبر 7, 2018 كيف يمكن عند اضافة بيان جديد في ورقة Adddata يتم نقله إلى ورقة Data وهكذا مع كل بيان جديد.بيانات.xlsx رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر سبتمبر 7, 2018 مشاركة قام بنشر سبتمبر 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 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر سبتمبر 7, 2018 مشاركة قام بنشر سبتمبر 7, 2018 تفضل اخى الكريم وبعد اذن استاذى أحمد ولإثراء الموضوع بيانات.xlsm رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.