ترحيل بيانات

[محمد تميرك]

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

الصحة بيانات.rar

[محمد تميرك]

ارجو الرد محتاجه ضروري

[أبو حنــــين]

السلام عليكم

جرب هذه الكود

Sub sCopy()

Dim Lrr As Long, M As Integer
Dim S
Application.ScreenUpdating = False
Lrr = Sheets("ورقة1").Cells(Rows.Count, "A").End(xlUp).Row
    For r = 2 To Lrr
    For Each S In ThisWorkbook.Sheets
    M = S.Cells(Rows.Count, "A").End(xlUp).Row + 1
    If Trim(Sheets("ورقة1").Cells(r, 4)) = Trim(S.Name) Then
    Sheets("ورقة1").Range("A" & r).Resize(, 7).Copy
    With S
   .Range("A" & M).PasteSpecial xlPasteValues
           .Range("A2:G" & M).Borders.Value = 1
            Application.CutCopyMode = False
            M = M + 1: End With
        End If
    Next
Next
Application.ScreenUpdating = True

End Sub

[محمد تميرك]

ياريت تعديل على الشيت المرفق جزاكم الله خيرا حيث انني مبتدىء في الاكسيل 

تم تعديل أبريل 8, 2014 بواسطه محمد تميرك

[أم عبد الله]

أستاذنا الكبير / أبو حنين

 

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

 

جزاك الله خيراً على هذا الكود الرائع جعله الله في ميزان حسناتك.

 

الأستاذ / محمد إليك الملف به الكود بعد إذن أستاذنا الكبير / أبو حنين لعدم تواجده حالياً بالمنتدى.

الصحة بيانات.rar

[صلاح الصغير]

اساتذة الاكواد / ام عبد الله و ابو حنين

لقد ارسلت ملف مشابه لهذا الموضوع و لكنى اريد عند ضغط على زر الترحيل يطلبى من الكود نوع الترحيل

و ليكن مثلا فى المثال السابق مرشح ام طرد مرشح ام جوفى ام خليط عن طريق زر اختيار مثلا

و لو فرضنا ان هناك اعدة تحتوى على ارقام و لها مجاميع فى النهاية هل يمكن ترحيل الاعمدة التى مجموعها اكبر من صفر فقط

و شكرا 

ملحوظة الملف مرفق تحت موضوع بعنوان : اريد ترحيل اعمدة بشرط لا يساوى مجموعها صفر