المطلوب ترحيل البيانات

[كرتوتي]

السلام عليكم اخوتي  المرحو مساعدتي في المرفق التالي .كيف يمكنني عند مسح قيمة الدين من صفحة الديون العالقة تسجل القيمة نفسها في الخانة نفسها من ورقة الديون المحصلة مع تلوين الخانة في ورقة الديون العالقة                                                                                                                         كما في المثال الموضح ،لكنني اعتمدت الطريقة العادية من نسخ ولصق وتلوين ،اريد معادلة او كود يعمل هذا بمجرد مسح قيمة الخلية

تحصيل الديون.rar

[احمد عبد الناصر]

السلام عليكم

 

جرب المرفق

 

 

تحياتي

تحصيل الديون+.rar

[كرتوتي]

ذاك المراد اخي جزاك الله خيرا .لو تفضلت اخي بشرح الطريقة اكون اسعد لانني اريد تطبيقها على ملف كبير اعمل عليه .ولو سمحت هل بمكن تطبيقها على مجموعة خلايا دفعة واحدة .وتقبل دعائي لك بالتوفيق والسداد

[احمد عبد الناصر]

فكرة الكود انه ياخذ قيمة اي خلية بمجرد الوقوف عليها بداية من العمود الثالث و الصف الخامس و ان تكون خلية واحدة .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column > 2 Then
 If Target.Row > 4 Then
  If Target.Cells.Count = 1 Then
   
    x = Target.Value
  
  End If
 End If
End If

End Sub

ثم عند مسح قيمة اي خلية بداية من العمود الثالث و الصف الخامس و ان تكون خلية واحدة  يقوم القود بوضع القيمة المحتجزة(X من الكود الاول) في الصفحة الاخرى ويغير لون الخلية الاصلية .

If Target.Column > 2 Then
 If Target.Row > 4 Then
  If Target.Cells.Count = 1 Then
   If IsEmpty(Target) Then
    Target.Interior.ColorIndex = 16
    Sheet2.Cells(Target.Row, Target.Column) = x
   End If
  End If
 End If
End If

 

بالفعل يمكن تعديل الكود ليشمل اكثر من خلية دفعة و احدة باسخدام Array .

وخبراء المنتدي ممكن يفيدونا في ذلك.

 

تحياتي

[كرتوتي]

شكرا لك استادي على تفاعلك وجزاك الله عنا خير الجزاء

المرجو من خبراء المنتدى تحقيق الامر باستعمال array

[القومي]

الاخ /احمد عبدالناصر

كود رائع فعلا لو امكن فعلا لو مثلا عملنا

على سطر هل من الممكن ينتقل تلقائيا لصفحة معينه delete

[القومي]

ممكن نغير مدى العمود والسطر من

col,row

لو امكن حذف سطر كامل

يتم نقلة كاملا

مع العلم انه ينقل قيمة فقط

text هل من الممكن نقل

[الخالدي]

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

بارك الله فيك اخي احمد عبد الناصر

ما شاء الله اكوادك سهلة وممتازة

ولإثراء الموضوع

الكود المرفق يعمل عند مسح خلية او اكثر في النطاق C5:K22
في أمان الله

ترحيل الخلايا الممسوحة غير الفارغة.rar

[احمد عبد الناصر]

السلام عليكم

 

اخي الخالدي

 

حياك الله اكواد متقنة و وفكرة ذكية .

 

تحياتي

[كرتوتي]

تحية اكبار للاخوين الخالدي و احمد عبد الناصر عمل متقن