ارجو المساعدة في ترحيل من شيت الى شيت اخر

[الشافعي]

المطلوب عند الضغط على زر (نقل البيات ) في شيت رقم واحد ينقل قيم الخلايا الى شيت رقم 2

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

ترحيل بشرط.xlsx

[مهند محسن]

اخى الكريم لماذا البيانات غير مرتبة فى الشيتين

واى نطاق تريد نقله من شيت 1 الى شيت 2 ؟

رجاءا شوية تفاصيل

ومن فضلك لا تقوم بتكرار المشاركة حتى لا يتم تشتيت الأساتذة والإمتناع عن الرد ولو ممكن حذف مشاركة من المشاركتين نكون شاكرين لحضرتك

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

[الشافعي]

شكرا للنصيحة تم ترتيب البيانات 

احتاج الكود 

ترحيل .xlsx

اريد نقل بيانات الخلايا الممثلة لها من الشيت الاول الى الشيت الثاني 

 

[الشافعي]

كيف اعمل تكرار 

تعديل.xlsx

[الشافعي]

انا عندي الكود هذا لكن كيف اخليه ينقل بيانات العميل والمتضامن مع بعض من الشيت رقم 1 الى الشيت رقم2 تحت بعض في وليس جنب بعض 

 

Sub custm()
Dim v, vv
Dim Sh1 As Worksheet, Sh2 As Worksheet
Dim Lr As Integer, i As Integer

Set Sh1 = Sheets("InitialOffer")
Set Sh2 = Sheets("Customers")

vv = Array("C11", "H12", "", "C12", "J14", "J16", "J18", "J20", "L20", "j22", "j24", "P18", "P24", "P34", "J30", "J32", "J34", "J36", "J38", "J40", "J44", "J46", "J54", "P40", "J58", "J60", "J62", "J66", "J70")

Lr = Sh2.Cells(Rows.Count, "A").End(xlUp).Row + 1

For Each v In vv
    i = i + 1
    If Not IsError(Sh1.Evaluate(v)) Then
        Sh2.Cells(Lr, i).Value = Sh1.Range(v).Value
    End If
Next

Set Sh1 = Nothing: Set Sh2 = Nothing
End Sub
 

تم تعديل سبتمبر 14, 2018 بواسطه الشافعي

[Ali Mohamed Ali]

تفضل اخى الكريم

 

تعديل.xlsm