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

[aslam samy]

ممكن تعديل في كود ترحيل  الملف المرفق 

بحيث انه بيرحل بفروقات اسطر عن اخر ترحيل 

المطلوب انه يرحل بعد اخر سطر فيه بيانات

وشرح حل المشكلة اذا امكن

ولكن ما منعني من كتابة التفاصيل لان الكود متواجد في الملف ولكن لايعمل بالشكل المطلوب ف كتبت المشكلة فقط

مطلوب التعديل او كتابة كود جديد وشرحه ان امكن

المطلوب

1 - ترحيل  النطاق التالي من شيت "ترحيل المصروفات " النطاق  :  b7:y17

2 - الترحيل الى شيت مصروفات بداية من الصف الخامس 

3 - ان لايكون بين الترحيل والترحيل الذي يليه اي فراغات بمعنى النظر الى اخر خليه بها بيانات ويرحل في الخليه اللي بعدها في شيت المصروفات

4 - مسح خلايا البيانات التي لاتحتوي على معادلات من شيت ترحيل المصروفات  

5 - واذا امكن وضع شرط ان لايتم ترحيل البيانات الى عند اكتمال صف كامل في الجدول بمعنى ان لايتم الترحيل اذا كان الصف الاول به معلومات كامله والصف الثاني ناقص جزء السعر مثلا او الكمية او غيرها

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

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

 

تجربة.xlsm

[حسين مامون]

جرب هذا الماكرو

Option Explicit

Sub test_mamoun()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim lr1, lr2, x
Application.ScreenUpdating = False
Set sh1 = Sheets("ترحيل مصروفات")
Set sh2 = Sheets("مصروفات")
For x = 7 To 17
If sh1.Cells(x, "b") = "" Then go to 1
lr2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1
sh2.Range("a" & lr2).Resize(1, 3).Value = sh1.Cells(x, "b").Resize(1, 3).Value
sh2.Range("d" & lr2).Value = sh1.Cells(x, "f").Value
sh2.Range("f" & lr2).Value = sh1.Cells(x, "o").Value
sh2.Range("g" & lr2).Value = sh1.Cells(x, "q").Value
sh2.Range("h" & lr2).Value = sh1.Cells(x, "s").Value
sh2.Range("i" & lr2).Value = sh1.Cells(x, "v").Value
sh2.Range("j" & lr2).Value = sh1.[l2]
sh2.Range("k" & lr2).Value = sh1.Cells(x, "y").Value

1:Next
Application.ScreenUpdating = True
End Sub

 

[aslam samy]

🌹استاذي الغالي حسين 

جزاكم الله خيرا على الكود الرائع شغال تمام الحمد لله النقطة 1 و2 و3

بس الترحيل فيه مشكلة في بعض الاعمدة ليست في مكانها الصحيح 

 

تمام 

 باقي فقط الترحيل ب شرط ان يكون الصف كامل البيانات 

ومسح الخلايا التي لاتحتوي على معادلات

واذا امكن شرح مبسط للكود فقط عشان محتاج ادخله في اكثر من شيت عشا اعرف التغييرات اللي ممكن اغيرها عشان تتناسب مع كل ترحيل

واعذرني على طلباتي 

تجربة.xlsm

[حسين مامون]

جرب المرفق 

قمت باضافة تصميم اخر في ورقة1 لان تصميمك فيه خلايا مدمجة ان اعجبك ذلك يمكنك العمل عليه 

هناك كودين واحد لمنع الترحيل  عند عدم اكمال البيانات في الصف والثاني للترحيل والافراغ المحتويات 

تحياتي

تجربة (2).xlsm

[aslam samy]

كود مبدع من استاذ مبدع جزاكم الله خيرا استاذ حسين

وجعل ذالك في ميزان حسناتك شكرا جزيلا🌹

[حسين مامون]

وجزيت خيرا اخي 

[aslam samy]

عذرا استاذ حسين

كنت اضفت معادلة في خلية رقم الاذن عشان يكتب رقم الاذن التالي تلقائي

لكن بسبب الحلقة التكرارية تقريبا بيعمل لكل صف اذن منفصل بعد الترحيل 

يعني لو الاذن يحتوي على 3 صفوف واخر اذن وليكن رقم 1

بيخلي الصف الاول اذن رقم2

والصف الثاني اذن رقم 3

وهكذا

والمطلوب ان رقم الاذن يكون ثابت للترحيله الواحدة

اسف لو طولت عليك / لو ليها حل يبقى جزاكم الله خيرا 

تجربة (2) (1).xlsm

[حسين مامون]

اتمنى ان يكون ما تريد في المرفق

واعتذر 

تجربة (2) (2).xlsm

[aslam samy]

انا اللي بعتذر لحضرتك تعبتك معايا 

الكود تمام كما هو مطلوب وافضل الحمد لله 🌹

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

[حسين مامون]

الحمد لله ان تم الامر كما تريد