sameer hussien قام بنشر مارس 11, 2013 مشاركة قام بنشر مارس 11, 2013 السلام عليكم يوجد ملف مرفق اريد عمل كود للاستدعاء من شيت الى شيت وشكرا استدعاء.rar 1 رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر مارس 11, 2013 مشاركة قام بنشر مارس 11, 2013 أليك الحل أخى بالمعادلات إستدعاء 2.rar رابط هذا التعليق شارك More sharing options...
sameer hussien قام بنشر مارس 11, 2013 الكاتب مشاركة قام بنشر مارس 11, 2013 شكرا لك اخي محمود على جهودك رابط هذا التعليق شارك More sharing options...
sameer hussien قام بنشر مارس 11, 2013 الكاتب مشاركة قام بنشر مارس 11, 2013 جعله الله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
seedhany قام بنشر مارس 11, 2013 مشاركة قام بنشر مارس 11, 2013 (معدل) شكرا أخى على كلماتك وعلى دعائك للأستاذ محمود فهو فعلا يستحق الكثير والكثير وجزا الله الأستاذ محمود على جميع أعمالة خير الجزاء تم تعديل مارس 11, 2013 بواسطه seedhany رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر مارس 11, 2013 مشاركة قام بنشر مارس 11, 2013 أخى الحبيب ( sameer hussien ) شكرا وأتمنى أن يكون المرفق حقق المطلوب رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر مارس 11, 2013 مشاركة قام بنشر مارس 11, 2013 أخى الحبيب ( seedhany ) كلماتك والله أكثر مما أستحق وأخشى أن تكون مبالغ أكثر من اللازم من جهة إعجابك بى فما أنا إلا شخص مجتهد يحاول رد الجميل لمكان لم يبخل علية على الأطلاق فى تقديم المعلومة من أساتذة عباقرة قدموا معلوماتهم بشكل راقى ولم يضنوا أبدا فى عطائهم كرا أخى الحبيب على شعورك الجميل هذا وجزاك الله أضعافة فى الدنيا والأخرة رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مارس 11, 2013 مشاركة قام بنشر مارس 11, 2013 السلام عليكم تسلم ايديك أخى الحبيب / أبو محمود ولاثراء الموضوع هذا كود لتنفيذ المطلوب Sub ragab() Dim ws As Worksheet Set ws = Sheets("data") LR = ws.Cells(Rows.Count, 2).End(xlUp).Row '============================================ [A4:H1000].ClearContents For i = 4 To LR If ws.Cells(i, 2) = [C1] Then ws.Cells(i, 1).Resize(1, 8).Copy Range("A" & [A1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues End If Application.CutCopyMode = False Next Set ws = Nothing End Sub استدعاء1.rar رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر مارس 11, 2013 مشاركة قام بنشر مارس 11, 2013 أستاذى ومعلمى الرائع الجميل ( رجب جاويش ) وحشتنى بجد أستاذى ووحشنى العمل مع حضرتك رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر مارس 11, 2013 مشاركة قام بنشر مارس 11, 2013 اثراءا للموضوع كود اخر لتنفيذ المطلوب Sub Aslogy() Application.ScreenUpdating = False Set ws = Sheets("data") Set ws2 = Sheets("Call") Range("a4:h65536").ClearContents RF = Application.Match(Val([c1]), ws.Range("b1:b65536"), 0) ws.Select Rows(RF).Select Selection.Copy ws2.Select Cells(Range("a65536").End(xlUp).Row + 1, 1).Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End Sub رابط هذا التعليق شارك More sharing options...
sameer hussien قام بنشر مارس 12, 2013 الكاتب مشاركة قام بنشر مارس 12, 2013 قسما بالله انا عاجز عن شكر كل استاذ من اساتذتنا الكرام الذين ساهمو معي ربي اجعل لكل من كتب حرف في ميزان حسناته اضعاف مضاعفة بوركت جهودكم يا اخواني رابط هذا التعليق شارك More sharing options...
sameer hussien قام بنشر مارس 12, 2013 الكاتب مشاركة قام بنشر مارس 12, 2013 عندي طلب شوف يكمل ما بدأنا به وهو كود التعديل على البينات عند استدعائها وحفظها بعد التعديل رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر مارس 12, 2013 مشاركة قام بنشر مارس 12, 2013 السلام عليكم حلول رائعة من اساتذة اكثرة روعة وتألقا بارك الله فيكم فقط كود استاذ حسين لم يعمل معى رابط هذا التعليق شارك More sharing options...
نور محمود قام بنشر مارس 12, 2013 مشاركة قام بنشر مارس 12, 2013 ممتاز بارك الله فيكم وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
حسين العصلوجى قام بنشر مارس 12, 2013 مشاركة قام بنشر مارس 12, 2013 Sub Aslogy2() Application.ScreenUpdating = False Set ws = Sheets("data") Set ws2 = Sheets("Call") Rows(4).Select Selection.Copy RF = Application.Match(Val([c1]), ws.Range("b1:b65536"), 0) ws.Select Rows(RF).Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End Sub الاخ / سمير ده كود التعديل الاخ العزيز / خالد القدس انا عملت الكود علي افتراض ان رقم الفاتورة لايتكرر وبالتالي فان عملية الاستدعاء او التعديل تعتمد علي سطر واحد H-استدعاء1.rar رابط هذا التعليق شارك More sharing options...
sameer hussien قام بنشر مارس 12, 2013 الكاتب مشاركة قام بنشر مارس 12, 2013 الاخ حسين شكرا جزيلا لك على دعمك لي بالفعل انت كبير رابط هذا التعليق شارك More sharing options...
عبد القادر. قام بنشر مارس 12, 2013 مشاركة قام بنشر مارس 12, 2013 السلام عليكم جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
sameer hussien قام بنشر مارس 21, 2013 الكاتب مشاركة قام بنشر مارس 21, 2013 اساتذتي الاجلاء بعد ان استدعي البيانات اريد ان اعدل عليها بحيث ان التعديل يكون في البيانات الاصلية كذلك مثال تم ادخال معلومة بالخطا مدين بدل دائن بعد ان استدعيت البيانات كيف اعدل عليها الخلاصة: المطلوب كود التعديل والحفظ وبوركت جهودكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.