hitech قام بنشر سبتمبر 24, 2019 مشاركة قام بنشر سبتمبر 24, 2019 السلام عليكم عاوز يا جماعة استدعى البيانات من ورقة 2 الى ورقة 1 بمعنى لما اكتب اسم محمد فى ورقة 1 يتم استدعاء بياناته وهكذا شيت.xls رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر سبتمبر 24, 2019 أفضل إجابة مشاركة قام بنشر سبتمبر 24, 2019 جرب هذا الماكرو الاسم المطلوب في الخلية A1 تم تغيير اسماء الشيتات الى source_sh و target_sh لحسن عملية نسخ الكود ونقله بحيث لا تظهر حروف غريبة Sub Find_Recorde() Rem Created By Salim Hasbaya On 24/9/2019 Dim S As Worksheet: Set S = Sheets("source_sh") Dim T As Worksheet: Set T = Sheets("target_sh") Dim Nam: Nam = T.Cells(1, 1) Dim My_RG As Range Dim Saerch_Rg As Range T.Cells(3, 1).CurrentRegion.Clear Dim col%, Ro%, Actual_ro% Set Saerch_Rg = S.Columns(5).Find(Nam, lookat:=1) If Saerch_Rg Is Nothing Then MsgBox _ "This Name Dos not exit or Wrong Name" Exit Sub End If Ro = Saerch_Rg.Row + 1 col = S.Cells(Ro, Columns.Count).End(1).Column Actual_ro = S.Cells(Ro, 1).End(4).Row - Ro + 1 With T.Cells(3, 1).Resize(Actual_ro, col) .Value = S.Cells(Ro, 1).Resize(Actual_ro, col).Value .Borders.LineStyle = 1 .NumberFormat = "[$-,10A] ddd d mmm yyyy" .Interior.ColorIndex = 24 .Font.Bold = True End With End Sub الملف مرفق Record.xlsm 2 1 رابط هذا التعليق شارك More sharing options...
hitech قام بنشر سبتمبر 24, 2019 الكاتب مشاركة قام بنشر سبتمبر 24, 2019 (معدل) عملتها استاذنا مشكلة صغيرة الكلام بيطلع انجليزى وليس عربى تم تعديل سبتمبر 24, 2019 بواسطه hitech 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 24, 2019 مشاركة قام بنشر سبتمبر 24, 2019 14 دقائق مضت, hitech said: عملتها استاذنا مشكلة صغيرة الكلام بيطلع انجليزى وليس عربى 1 رابط هذا التعليق شارك More sharing options...
hitech قام بنشر سبتمبر 24, 2019 الكاتب مشاركة قام بنشر سبتمبر 24, 2019 معلش استاذنا استحملنى خبرتى قليلة فى الاكسيل 2 رابط هذا التعليق شارك More sharing options...
hitech قام بنشر سبتمبر 24, 2019 الكاتب مشاركة قام بنشر سبتمبر 24, 2019 مفيش طريقة تثبت الفورمات على العربى لانى كل شويه بغير الفورمات والف الف شكر استاذنا 1 رابط هذا التعليق شارك More sharing options...
علي بطيخ سالم قام بنشر سبتمبر 26, 2019 مشاركة قام بنشر سبتمبر 26, 2019 بعد اذن استاذنا الاستاذ سليم (تعديل بسيط على الكود) استدعاء بيانات.xlsm ممتاز استاذ سليم جزاك الله خيراً 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان