اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search
abouelhassan

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

Recommended Posts

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

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

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

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

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

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

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

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

 

ترحيل واستدعاء.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

شارك هذه المشاركه


رابط المشاركه
شارك

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 اعضاء متواجدين الان

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

×
×
  • اضف...