كود ترحيل من ملف إلى آخر

[سامح حجاب]

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

أخوتي وأحبتي في الله

أتمنى من الله عز وجل أن يوفق لي من يستطيع المساعدة في هذا العمل

وشرح العمل يكمن في نقطتين

النقطة الأولى

يوجد بالمرفقات ملفين أحدهما باسم ( 3489 ) وهو نموذج للعديد من الملفات التي أريد تطبيق كود للترحيل عليها

وأريد كود الترحيل يعمل بحيث يوجد ورقة اسمها ( عام ) وأريد ترحيل البيانات التي بداخلها مع ترحيل معادلات عمودين وهما S, R

إلى ملف آخر باسم ( ملف كامل المستودع ) في ورقة اسمها ( عام )

بحيث سيصب في هذا الملف ( ملف كامل المستودع ) البيانات من عدة ملفات بنفس الطريقة السابقة

النقطة الثانية

يوجد ورقة داخل ملف ( ملف كامل المستودع ) باسم ( البضائع المستلمة ) وسيتم كتابة تاريخ يومي

بحيث يتم إعداد تقرير بالبضائع المستلمة من داخل المستودع

وأريد ربط ( عام ) وورقة ( البضائع المستلمة ) حيث يتم كتابة التاريخ في ورقة ( البضائع المستلمة ) فيبدأ البرنامج في البحث

في ورقة ( عام ) في العمود Q ( تاريخ تسليم ) ومن ثم في كل صف يجد فيه التاريخ متطابق يبدأ بنسخ البيانات الموجود في جدول ورقة البضائع المستلمة

أعلم جيدا أني لا أستطيع الشرح جيدا

ولكن آآمل من الأخوة مد يد العون لي

وإن وجد أي استفسار سأجيب عنه بإذن الله

____________.zip

[سامح حجاب]

للرفع

[سامح حجاب]

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

أخوتي في الله

أرجو الرد علي هل هناك طريقة أو حل للنقطتين

أم لا يوجد حل حتى أحاول التفكير بطرق أخرى للحل

أرجو الرد من أهل الخبرة وجزاكم الله خيرا

[عبدالله باقشير]

السلام عليكم

اخي والله حاولت اشتغل في ملفاتك

ولكن هناك مشكلة لعملية لصق البيانات المرحلة في الكود

والسبب الدمج الحاصل للخلايا في ملفاتك

و بسبب الدمج ايضا لا اقدر احصل على آخر خلية في الصف

======================

ناسف شديدا لعدم تقديمنا اي خدمة لك

تم تعديل يونيو 11, 2009 بواسطه خبور خير

[سامح حجاب]

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

جزاك الله خيرا على الرد

وبارك الله في علمك فأنت الشمس في هذا المضمار

فإذا تكرمت لي سؤال آخر

وهو في أثناء النسخ واللصق العادي يتم نسخ البيانات وهو ما أريد ولكن مشكلتي في العمودين اللذين أريد نسخ المعادلات منهما

فهل هناك ميزة في الحماية أحذفها حتى أتمكن من نسخ كل البيانات مع نسخ معادلات العمودين ؟؟؟

[عبدالله باقشير]

السلام عليكم

لو تلاحظ لما تعمل لصق كلي

ينقل المعادلات في كل خلية ويعمل ارتباطات للمعادلات للملف الناسخ

وهذا خطا

واذا قمنا بلصق جزئي العائق دمج الخلايا

واذا استخدمنا for ----next

العائق الدمج وخلو بعض الخلايا من البيانات

[سامح حجاب]

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

أخي في الله

عندما توجد حماية على الورقة أتمكن من نسخ البيانات ونقلها في الملف الآخر بدون أي مشاكل

ولكن المشكلة تكمن في نقل معادلات عمودين S, R

[عبدالله باقشير]

السلام عليكم

ولكن المشكلة تكمن في نقل معادلات عمودين S, R

في الملف 3489

في خلايا الاعمدة S,N

من تنسيق ---حماية--- ابعد التحفيز في (مخفية)

======================================

وتم الاعتماد على العمود الاول في تسلسل الصفوف واختيار آخر صف

في الملفين الورقة "عام"

======================================

يتم اخذ اسم الملف الذي ستستورد منه البيانات من الخلية filname

======================================

كود الاستيراد:

Sub KH_START()
On Error Resume Next
Dim Mybook As Workbook
Dim N As String, R As Long, RR As Long
Dim MyRang_1 As Range, MyRang_2 As Range
N = Range("filname")
RR = Range("A" & Rows.Count).End(xlUp).Row + 1
Set Mybook = Workbooks(N)
With Mybook.Worksheets("عام")
    R = .Range("A" & .Rows.Count).End(xlUp).Row
    Set MyRang_1 = .Range("A2:X" & R)
    Set MyRang_2 = .Range("R2:S" & R)
End With
Application.ScreenUpdating = False
MyRang_1.Copy
Range("A" & RR).PasteSpecial xlPasteValues
Application.CutCopyMode = False
MyRang_2.Copy
Range("R" & RR).PasteSpecial xlPasteFormulas
Application.CutCopyMode = False
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

==================================== كود استدعاء البيانات في ورقة"البضائع المستلمة"

Sub استدعاء()
On Error Resume Next
Dim X As Long, R As Long
Dim M As Integer, C As Integer, CC As Integer
Range("B9:F28").ClearContents
M = 9
Application.ScreenUpdating = False
With ورقة1
    X = .Range("A" & .Rows.Count).End(xlUp).Row
    For R = 5 To X
        If .Cells(R, "Q") = [E6] And .Cells(R, "C") <> "" Then
            For C = 1 To 5
            CC = Choose(C, 3, 4, 5, 10, 15)
                Cells(M, C + 1) = .Cells(R, CC)
            Next C
            M = M + 1
        End If
    Next R
End With
Application.ScreenUpdating = True
MsgBox "تم استدعاء   " & M - 9 & "    سجلات", vbMsgBoxRight, "الحمد لله"
On Error GoTo 0
End Sub

تفضل المرفق

________________.rar

تم تعديل يونيو 11, 2009 بواسطه خبور خير

[سامح حجاب]

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

أخي في الله خبور خير

جزاك الله خيراً على هذا العمل الرائع جدددددددددددا

وأكرمك الله ووفقك وزادك الله بسطة في العلم ونفع بك أخوانك

وجعل ما تفعل في ميزان حسناتك بإذن الله

ولي طلب ولي عدة أسئلة

فأما الطلب هو أن تشرح لي هذه الأكواد إذا كان وقتك يسمح ؟؟

وأما الأسئلة

عندما يتم استدعاء البيانات لا يتم استدعاء التنسيق معها .. فهل هناك طريقة لاستدعاء التنسيق معها ؟؟

ولا يتم استدعاء معادلات العمودين S, R .. فهل هناك طريقة لاستدعاء معادلات هذين العمودين ؟؟

ويتم استدعاء كل الجدول على الرغم من أن العديد من الصفوف ليس بها بيانات .. فهل يمكن وضع شرط لاستدعاء البيانات ؟؟

قد كونت من قبل جدول به كل البيانات بطريقة النسخ واللصق وأضفته على المستند ( ملف كامل المستودع ) ومن ثم حاولت عمل استدعاء البيانات ..

فتم استدعاء البيانات ووضعها في نهاية الجدول ولكن بمسلسل جديد .. فهل هذه العملية قد تؤدي إلى خلل بالورقة الأخرى ؟؟

هل من الممكن وضع العملية بطريقة عكسية .. بمعنى ترحيل البيانات ( من الملف إلى الملف الكامل ) بدلاً من استدعائها ؟؟

آخر سؤال وهو هام بالنسبة لي جدا ما هي الطريقة التي تمكنني في ورقة ( البضائع المستلمة ) من إضافة عمود لترحيل بيانات معينة له ؟؟

أخي في الله عندما يتيسر لك الوقت أجبني

وشاكر لك حسن صنيعك معي

ووفقك الله إلى ما يحب ويرضى

[كلالي]

السلام عليكم

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

وأخص هنا الأخ خبو رخبر وبارك الله في وقته وفي كل ما أنعم عليه

كي يتمكن من اجابة الاخ imaginlife سؤاله الاخير واقتبسه نصا

"آخر سؤال وهو هام بالنسبة لي جدا ما هي الطريقة التي تمكنني في ورقة ( البضائع المستلمة ) من إضافة عمود لترحيل بيانات معينة له ؟؟

اللهم زد وبارك في امة حبيبك المصطفى عليه وعلى آله واصحابه افضل الصلاة واتم التسليم

[سامح حجاب]

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

أخي في الله خبور خير

إذا سمح وقتكم الكريم شرح كود الاستدعاء داخل الملف

لأني في حاجة إليه حيث أني أضفت ورقة أخرى للملف وأريد استدعاء بيانات أخرى لها

ولكم مني جزيل الشكر والتقدير

[سامح حجاب]

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

أخي في الله خبور خير

إذا سمح وقتكم الكريم شرح كود الاستدعاء داخل الملف

لأني في حاجة إليه حيث أني أضفت ورقة أخرى للملف وأريد استدعاء بيانات أخرى لها

ولكم مني جزيل الشكر والتقدير

[سامح حجاب]

للرفع