اذهب الي المحتوي
أوفيسنا

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

قام بنشر

السلام عليكم ورحمة الله وبركاته

الاخوة الأعزاء

حصلت كود لاستاذنا ومعلمنا عبدالله أبوأحمد قمت بعمل تعديل عليه ليقوم بترحيل بيانات من صفوف معينة والحمد لله المحاولة نجحت لكن طلبي تعديل الكود بان يقوم بترحيل البيانات فقط بدون تنسيق

والشيء الثاني كود مسح يعكس عمله لاني كل ما اقوم بترحيل البيانات بيكررها فهل من الممكن تعديل الكود ليقوم بترحيل البيانات الجديدة او عمل كود مسح لمسح البيانت قبل الترحيل لعدم التكرار

,جزاكم الله خير وبارك الله لكم في علمكم ورزقكم فيما قدمتوه لنا في هذا الصرح العظيم الذي نتعلم منه يوميا الجديد

تقبلوا تحياتي

الكود

b OFFICNA()

Dim LR As Long, LR2 As Long, ws As Worksheet, ws2 As Worksheet

Set ws = Sheets("DATA")

Set ws2 = Sheets("HR")

LR = ws.Range("B" & Rows.Count).End(xlUp).Row

LR2 = ws2.Range("B" & Rows.Count).End(xlUp).Row

If ws.Range("B2").Value = "" Then

MsgBox ("áÇ ÊæÌÏ ÈíÇäÇÊ áÊÑÍíáåÇ")

Else

ws.Range("B2:b" & LR).Copy ws2.Range("B" & LR2 + 1)

ws.Range("R2:R" & LR).Copy ws2.Range("C" & LR2 + 1)

ws.Range("U2:U" & LR).Copy ws2.Range("E" & LR2 + 1)

ws2.Select

End If

End Sub

قام بنشر

الاخوة الأعزاء السلام عليكم ورحمة الله وبركاته

برجاء المساعدة في عمل كود يقوم بترحيل العمود (B2) والعمود (R2) والعمود (U2) من صفحة العمل (DATA)وترحل البيانات الي صفحة العمل (INFO) الي العمود (B4) والعمود (C4) والعمود (E4)

بشرط عدم تكرار البيانات او عمل كود حذف يقوم بحذف البيانات تلقائيا في صفحة العمل (INFO) العمود (B4-C4-E4) فقط

ولكم جزيل الشكر

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information