تعديل كود ترحيل

[رشاد احمد]

الساده الافاضل كل عام وانتم بخير فى شهر الخير ( رمضان) اعاده الله عليكم بالخير والبركات

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

وجزاكم الله خير ...

11.rar

[عبدالفتاح في بي اكسيل]

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

الغي  هذا  السطر    

Range("a6:g150").ClearContents

واستبدله  بهذا 

 

Range("a6:c150").ClearContents
Range("f6:g150").ClearContents

 

[سليم حاصبيا]

1-على حدود الجدول يجب ان تكون خلايا  فارغة ( خلايا الاجمالي و ما الى ذلك يجب ان تبتعد عن الجدول ولو بصف واحد فارغ)

الكود

Option Explicit

Sub copy_Range()
  Dim Soucre As Worksheet, Targ As Worksheet
  Dim Rg_s As Range, Dist As Range, Ro%, Last_ro%

  Set Soucre = Sheets("القيود")
  Set Targ = Sheets("ورقة1")

Last_ro% = Targ.Cells(Rows.Count, 1).End(3).Row + 1
 
Set Rg_s = Soucre.Range("A5").CurrentRegion
Ro = Rg_s.Rows.Count
 If Ro = 1 Then Exit Sub
 Set Rg_s = Rg_s.Offset(1).Resize(Ro - 1)
 Targ.Cells(Last_ro, 1).Resize(Rg_s.Rows.Count, Rg_s.Columns.Count).Value = _
  Rg_s.Value
 
 Rg_s.ClearContents
End Sub

الملف مرفق

 

11_salim.xlsm

[رشاد احمد]

استاذنا الفاضل / سليم انا ارغب فى الترحيل من الورقه الاولى الى ورقة القيود بدلاله ورقه القيود والقوائم المنسدله تكون فى الورقه الاولى 

واسف ان كنت لم اوضح ذلك

اكرر شكرى واجابة حضرتكم تفى بالغرض

[سليم حاصبيا]

12 ساعات مضت, رشاد احمد said:

استاذنا الفاضل / سليم انا ارغب فى الترحيل من الورقه الاولى الى ورقة القيود بدلاله ورقه القيود والقوائم المنسدله تكون فى الورقه الاولى 

واسف ان كنت لم اوضح ذلك

اكرر شكرى واجابة حضرتكم تفى بالغرض

فقط بدّل الأسماء في الصفحات (داخل الكود)

اي اجعل  Targ هي ورقة القيود        Source  هي ورقة1

[رشاد احمد]

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

ان امكن وان لم يكن فانا سعيد وشاكر لك على ماتم