طلب مساعدة في استدعاء معلومات

[sameer hussien]

السلام عليكم

يوجد ملف مرفق

اريد عمل كود للاستدعاء من شيت الى شيت

وشكرا

 

استدعاء.rar

[جمال عبد السميع]

أليك الحل أخى بالمعادلات

إستدعاء 2.rar

[sameer hussien]

شكرا لك اخي محمود على جهودك

[sameer hussien]

جعله الله  في ميزان حسناتك

[seedhany]

شكرا أخى على كلماتك وعلى دعائك للأستاذ محمود فهو فعلا يستحق الكثير والكثير

وجزا الله الأستاذ محمود على جميع أعمالة خير الجزاء

تم تعديل مارس 11, 2013 بواسطه seedhany

[جمال عبد السميع]

أخى الحبيب ( sameer hussien ) شكرا وأتمنى  أن يكون  المرفق حقق المطلوب

[جمال عبد السميع]

أخى الحبيب ( seedhany ) كلماتك والله أكثر مما أستحق وأخشى أن تكون مبالغ أكثر من اللازم من جهة إعجابك بى فما أنا إلا شخص مجتهد يحاول رد الجميل لمكان لم يبخل علية على الأطلاق فى تقديم المعلومة من أساتذة عباقرة قدموا معلوماتهم بشكل راقى ولم يضنوا أبدا فى عطائهم

كرا أخى الحبيب على شعورك الجميل هذا وجزاك الله أضعافة فى الدنيا والأخرة

[رجب جاويش]

السلام عليكم

تسلم ايديك أخى الحبيب / أبو محمود

ولاثراء الموضوع

هذا كود لتنفيذ المطلوب

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

[جمال عبد السميع]

أستاذى ومعلمى الرائع الجميل ( رجب جاويش ) وحشتنى بجد أستاذى ووحشنى العمل مع حضرتك

[حسين العصلوجى]

اثراءا للموضوع كود اخر لتنفيذ المطلوب

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

 

 

[sameer hussien]

قسما بالله انا عاجز عن شكر كل استاذ من اساتذتنا الكرام الذين ساهمو معي

ربي اجعل لكل من كتب حرف في ميزان حسناته اضعاف مضاعفة

بوركت جهودكم يا اخواني

[sameer hussien]

عندي طلب شوف يكمل ما بدأنا به وهو  كود التعديل على البينات عند استدعائها وحفظها بعد التعديل

[خالد القدس]

السلام عليكم

حلول رائعة من اساتذة اكثرة روعة وتألقا

بارك الله فيكم

فقط كود استاذ حسين لم يعمل معى

[نور محمود]

ممتاز بارك الله فيكم وجزاكم الله خيرا

[حسين العصلوجى]

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

[sameer hussien]

الاخ حسين

شكرا جزيلا لك على دعمك لي

بالفعل انت كبير

[عبد القادر.]

 

السلام عليكم

 

جزاكم الله خيرا

 

[sameer hussien]

اساتذتي الاجلاء 

بعد ان استدعي البيانات

اريد ان اعدل عليها بحيث ان التعديل يكون في البيانات الاصلية كذلك

مثال

تم ادخال معلومة بالخطا مدين بدل دائن

بعد ان استدعيت البيانات كيف اعدل عليها 

الخلاصة: المطلوب كود التعديل والحفظ

وبوركت جهودكم