طلب مساعدة في ترحيل او استدعاء البيانات

[affan]

السلام عليكم أساتذتي الفاضلين 

أودّ أن أطلب منكم تكرّمًا معرفة كيفية ترحيل البيانات الموجودة في العمود B إلى العمود F إلى sheet آخر

أو استدعاءها منه حسب رقم الموظف في العمود A .

 

وشكرًا.

Affan.xlsx

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

لا أفهم انت تريد الاستدعاء او الترحيل

[affan]

أستاذ سليم ..

بصراحة لا اعرف ما هو الفرق بينهما ..

ولكني أريد أن أعمل في sheet آخر وأحتاج البيانات التي في الأعمدة من A  إلى F حسب رقم الموظف الموجود في العمود A

بحيث أني أطلبها برقم الموظف .

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

جرب هذا الملف (صفحة Salim )

Affan.xlsm

[affan]

ماشاءاالله تبارك الله ...

شكرا جزيلا أستاذنا سليم .. والله ما قصرت ..

صراحة روعة .. الله يزيدك من فضله وعلمه ..

شكرا لكم 

[affan]

صباح الخيرات ع الجميع ..

انا طلبت مساعدة من المنتدى في ترحيل او استدعاء البيانات من Sheet إلى آخر .

ورفعت ملف كمثال .. فجاء الأستاذ الفاضبل المحترم النبيل الشهم ( سليم حاصبيا )

وقدّم لي المساعدة .. فشكرته ودعيت له بالزيادة في العلم ..

ولكن اكتشفت أنّ ضمن الكود VBa الذي ساعدني به ..

أمر يمسح كل ما بعد آخر عمود من  البيانات المستدعاة ..

كل شئ من محتويات بياناتي ومعادلاتي

وبعد عدة محاولات اكتشفت حل بسيط .. هو أن أضيف عمود فارغ بعد آخر عمود من البيانات المستدعاة

ولكني قررت أن أدرس أوامر الكود الذي ساعدني به .. كلمةً كلمةً وسطرًا سطرًا ..

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

وهو الجزء الأخير (.ClearContents) آخر السطر السابع ..

وقمت بحذفه هو والعمود الفارغ الذي اضفته سابقًا لتفادي المشكلة ..

وأكملت عملي بعدها بإضافة بياناتي ومعادلاتي وبعض الدوال ..

وأكملت عمل الملف ... وقدّمته لمديري قبل أقل من ساعة ..

فشكرني وأثنى عليّ .. ولله الحمد والفضل والمنـّـة

و هذا هو الكود الذي ساعدني به :

Sub Get_data()
Application.ScreenUpdating = False
Dim s_rg As Range
Dim Cret As Range
Set s_rg = Sheets("Source").Range("A1").CurrentRegion
Set Cret = Sheets("Salim").Range("H1")
Sheets("Salim").Range("A3").CurrentRegion.ClearContents
s_rg.AutoFilter 2, Cret
s_rg.SpecialCells(12).Copy
Sheets("Salim").Range("A3").PasteSpecial
  If Sheets("Source").AutoFilterMode Then
    Sheets("Source").Range("A1").AutoFilter
  End If
  With Sheets("Salim").Range("A3").CurrentRegion
   .Value = .Value
   .Cells(1, 1).Select
  End With
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
End Sub

شكرا مرة أخرى يا أستاذنا الفاضل ( سليم حاصبيا ).. 

واسأل الله أن يرزقك على مقدار نيـّـتك ..

 

فعلى نيـّاتكم تـُرزقون ، تأكيدًا لقوله صلى الله عليه وسلم: «نيّة المؤمن أبلغ من عمله».

 

 

 

[affan]

وشوف كيف وقـّفت هذي .. عشان لا تمسح الدالة والمعادلة من أول عمود بعد البيانات المستدعاة وتترك فقط النواتج من عملية الاستدعاء التي قبلها

'  With Sheets("Salim").Range("A3").CurrentRegion
'   .Value = .Value
'   .Cells(1, 1).Select
'  End With
 
😂😂 😂😂

 

[احمد بدره]

بعد إذن أستاذناالفاضل سليم حاصبيا

تم التعديل

السطر Sheets("Salim").Range("A3").CurrentRegion.ClearContents
إلى Sheets("Salim").Range("A3:G100").ClearContents

 

 

Affan.xlsm