اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


affan
إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

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

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

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

 

وشكرًا.

Affan.xlsx

رابط هذا التعليق
شارك

أستاذ سليم ..

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

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

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

رابط هذا التعليق
شارك

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

انا طلبت مساعدة من المنتدى في ترحيل او استدعاء البيانات من 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

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

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

 

رابط هذا التعليق
شارك

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


'  With Sheets("Salim").Range("A3").CurrentRegion
'   .Value = .Value
'   .Cells(1, 1).Select
'  End With
 
😂😂 😂😂
 
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information