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

كود ترحيل واستدعاء من صفحة لعدة صفحات


إذهب إلى أفضل إجابة Solved by احمد بدره,

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

الاساتذة الاخوة  الخبراء احبائى الاعزاء

نظرا لاننى اقوم بتصميم شيت الاكسيل المبرمج الخاص بى فطلباتى زائدة اليومين دول سامحونى

رأيت موضوع للعلامة عبدالله بقشير (خبور الخير) اسمه ترحيل الى ماشئت من صفحات

احتاج لتطبيقه

لدى ملف به عدد من الاعمدة

التاريخ والبيان والمبلغ واسم الشيت يختار من ليست و اسم العمود يختار من ليست ولدى مفتاحين واحد ترحيل وواحد استدعاء

احتاج كود الترحيل والاستدعاء مع خالص الشكر

والاحترام والتقدير اخواتى الافاضل الخبراء

 

ترحيل واستدعاء.xlsx

رابط هذا التعليق
شارك

الاخوة وجدت كود احتاج تعديله ليناسب البرنامج

وهو للاستاذ على محمد على

فى هذه المشاركة مش عارف اعدله والله احتاج تعديل الكود ليطبق على الملف المرفق مع خالص شكرى وتقديرى

Sub Transfer()
Sheets("Main").Activate
For Each F In Range("e2:E1000")
If F <> "" Then
x = F.Value
Range(F.Offset(0, -4), F.Offset(0, 0)).Copy
LR = Sheets(x).Range("A" & Rows.Count).End(xlUp).Row
Sheets(x).Activate
Range("A" & LR + 1).Select
Selection.PasteSpecial xlPasteValues
End If
Next F
Sheets("Main").Activate
Application.CutCopyMode = False
Range("A2:E1000").ClearContents
MsgBox "تم الترحيل الى كل صفحة بنجاح"
End Sub

 

ترحيل واستدعاء.xlsx

رابط هذا التعليق
شارك

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

فقط الكود يحتاج تعديل اسم ورقة العمل فقط

Sub Transfer()

Sheets("ترحيل واستدعاء").Activate
For Each F In Range("e2:E1000")
If F <> "" Then
x = F.Value
Range(F.Offset(0, -4), F.Offset(0, 0)).Copy
LR = Sheets(x).Range("A" & Rows.Count).End(xlUp).Row
Sheets(x).Activate
Range("A" & LR + 1).Select
Selection.PasteSpecial xlPasteValues
End If
Next F
Sheets("ترحيل واستدعاء").Activate
Application.CutCopyMode = False
Range("A2:E1000").ClearContents
MsgBox "تم الترحيل الى كل صفحة بنجاح"
End Sub

 

  • Like 1
رابط هذا التعليق
شارك

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

وهذا لايمكن عمله بالصفحات

اشكرك جداااااااااااااااااااااااااااااا استاى الغالى 

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

بس نفذ المطلوب يرحل كل المبالغ للعمود m1  اريده ان باختيار العمود يرحل اليه واريد كود استدعاء

الكود هو

Sub Transfer()
Sheets("ترحيل واستدعاء").Activate
For Each F In Range("e3:E27")
If F <> "" Then
X = F.Value
Range(F.Offset(0, -4), F.Offset(0, 0)).Copy
LR = Sheets(X).Range("A" & Rows.Count).End(xlUp).Row
Sheets(X).Activate
Range("A" & LR + 1).Select
Selection.PasteSpecial xlPasteValues
End If
Next F
Sheets("ترحيل واستدعاء").Activate
Application.CutCopyMode = False
Range("b3:f27").ClearContents
MsgBox "تم الترحيل الى كل صفحة بنجاح"
End Sub




كل حبى واحترامى

ترحيل واستدعاء.xlsm

رابط هذا التعليق
شارك

بارك الله فيك استاذنا اشكر حضرتك لمجهودك الكريم جدااااااااااا

ولو امكن تعديل المكرو بالملف المرفق 

لاتمكن من اختيار العمود المرحل اليه المبلغ

خالص الشكر والدعاء من القلب والله

ماكرو ترحيل بقائمة منسدلة.xlsm

رابط هذا التعليق
شارك

برجاء التكرم بالمساعدة فى المطلوب بالمرفق 

جزاكم الله خير اساتذتى الافاضل

استاذ سليم  سليم حاصبيا لو امكن المساعدة الله يبارك لك يارب

اخيك باحترام شديد جدا

ترحيل واستدعاء.xlsx

رابط هذا التعليق
شارك

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