ابو سما قام بنشر مايو 9, 2022 مشاركة قام بنشر مايو 9, 2022 السادة الافاضل القائمين على هذا الموقع العظيم ارجوا المساعدة فى ترحيل البيانات الموجودة فى كل شهر بحيث يتم يرحيل كل بيان على رقم السيارة الخاصة بة والتى هى اسم شيت داخل الملف والشرح التفصيلى داخل الملف vehicles Cost.xlsm رابط هذا التعليق شارك More sharing options...
محمد يوسف ابو يوسف قام بنشر مايو 9, 2022 مشاركة قام بنشر مايو 9, 2022 السلام عليكم يتم الترحيل الي اي اسم موجود داخل خلية 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 3 رابط هذا التعليق شارك More sharing options...
ابو سما قام بنشر مايو 9, 2022 الكاتب مشاركة قام بنشر مايو 9, 2022 أ/ محمد يوسف اولا : اشكرك جدا على مجهودك الرائع و العظيم ثانيا : هل يمكن ان اطمع منك فى انة يرحل السيارات كلها مرة واحدة حتى لا انسى احدى السيارات اثناء الاختيار رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد يوسف ابو يوسف قام بنشر مايو 9, 2022 أفضل إجابة مشاركة قام بنشر مايو 9, 2022 السلام عليكم ..التعديل هنا Range("B45:H191").Copy تفضل الملف vehicles Cost.xlsm 5 رابط هذا التعليق شارك More sharing options...
ابو سما قام بنشر مايو 10, 2022 الكاتب مشاركة قام بنشر مايو 10, 2022 اشكرك شكر جزيرا اخى العزيزى وجعلة الله فى ميزان حسناتك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.