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

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


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

هذا الكود لاظافة ورقة عمل بشرط كتابة اسم المريض في الخلية  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

 

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

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

معلم كبير 

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

:fff::jump::wub::jump::fff:

 

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

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

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

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

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

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

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

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

:fff:ارجو الحل :fff:

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

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information