ترحيل من الصفحه الرئيسية الى اضافه صفحه

[ahmedalyalshahat]

بسم الله الرحمن الرحيم 

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

المطلوب 

الشيت المرفق موضح به المطلوب

 

ترحيل تذكرة.rar

[أبو حنــــين]

هذا الكود لاظافة ورقة عمل بشرط كتابة اسم المريض في الخلية  D3

Sub Add_Sheets()

Dim sh As Worksheet
Sheets.Add After:=Sheets(Sheets.Count)
Set sh = ActiveSheet
With sh
.Name = Sheets("الرئيسية").Range("D3")
Sheets("الرئيسية").Columns("A:L").Copy .Range("A1")
End With


End Sub

 

[ahmedalyalshahat]

اية الجمال والحلاوة دى اللهم صلى على النبى هو المطلوب بالظبط 

معلم كبير 

بارك الله فيك اخى الغالى 

 

طب لو حبيت  ابحث نفترض انى بقى عندى 1000 اسم يعنى 1000 صفحه ابحث ازاى 

[أبو حنــــين]

جرب المرفق التالي

 

 

 

 

2ترحيل تذكرة.rar

[ahmedalyalshahat]

خلصت فيك كل الكلام  اية الجمال دة والحلاوة دى ربنايبارك فيك 

دا كدة قشطه 

عاوز ابقى اعرف بتتعمل ازاى الخطوة الاخيرة 

[قلم-الاكسل(عبدالعزيز)]

اذا في الموقع ابو حنين على ميكروسوفت السلام

لقد ابدع فامتع

 

[ahmedalyalshahat]

اخى العزيز ابو حنين

معلش فى طلب كمان انا دلوقتى عملت فى الملف كود تصفير الارقام زوته 

وكمان عملت شيت جديد وسميته بالاسعار تمام 

بس دلوقتى انا لما باجى اختار من البحث بيظهر لى قائمه الاسعار ولو ضغط عليها الشيت بيبوظ معرفش لية والقائمه الرئيسية بتختفى 

ياريت يا اخى تشوف التعديل دا اية اللى غلط اللى فية 

ولو جيت اعمل حماية للورقه الشيت برضه بيبوظ 

ارجو الحل 

تذكرة مستشفى.rar