ترحيل بيانات على حسب رقم السيارة

[ابو سما]

السادة الافاضل القائمين على هذا الموقع العظيم

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

والشرح التفصيلى داخل الملف

vehicles Cost.xlsm

[محمد يوسف ابو يوسف]

السلام عليكم

يتم الترحيل الي اي اسم موجود داخل خلية a1 يوجد قائمة منسدلة يتم اختيار الرقم المراد الترحيل  اليه

تفضل

Sub ترحيل_الي_اي_شيت()
    Dim Cell As Range, m As String, LR As Long, LRT As Long
    Dim wm As Worksheet, Answer As Long
    Set wm = Sheets("Jan")
    LR = wm.Cells(35, 3).End(xlUp).Row
    m = wm.Range("A1").Value  '      موجود اسم الشيت المراد الترحيل اليهa1
    Application.ScreenUpdating = False
                Range("B46:H51").Copy
                With Sheets(m)
                    LRT = .Cells(Rows.Count, 3).End(xlUp).Row + 1
                    .Cells(LRT, 2).PasteSpecial xlPasteValues
                End With
                        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

الملف vehicles Cost.xlsm

 

[ابو سما]

أ/ محمد يوسف

اولا : اشكرك جدا على مجهودك الرائع و العظيم

ثانيا : هل يمكن ان اطمع منك فى انة يرحل السيارات كلها مرة واحدة حتى لا انسى احدى السيارات اثناء الاختيار 

[محمد يوسف ابو يوسف]

السلام عليكم ..التعديل هنا

  Range("B45:H191").Copy

تفضل 

الملف vehicles Cost.xlsm

[ابو سما]

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