affan

السلام عليكم ورحمة الله

هل يمكن تنفيذ ماكرو بمجرد انتقال المؤشر من خلية الى أخرى؟

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

ما يكون فيه خلايا فارغة بين البيانات 

أرفقت الملف يا استاذي 

SM.xlsx

السلام عليكم ..

يا أساتذتنا أريد كود ماكرو يفحص النطاق "A1:FP3625" ويحذف الخلايا التي لها لون أحمر (كاملة) وليس فقط محتواها..

ولكم جزيل الشكر مقدمًا

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

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

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

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

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

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

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

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

شكرا لكم 

أستاذ سليم ..

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

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

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

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

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

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

وشكرًا.

Affan.xlsx