محتاج مساعدة ضروري لو سمحتم في الملف المرفق الذي أريده في الفورم 2 زر التعديل شغال تمام أريد اضافة كود عليه في حال أي خلية من العامود U في شيت mkt بتساوي كلمة "نعم" ينقل السطر الى شيت data ويحط كل معلومة تحت العامود بتاعها ويحذف السطر الموجود في شيت mkt بس كده
رجاء المساعدة في اسرع وقت ضروري اكرمكم الله
أفضل إجابة مقدمة من
YasserKhalil
وهي:
السلام عليكم نبدأ بها أخي الكريم
قبل سطر الرسالة الأخيرة ضع الأسطر التالية في الكود الخاص بالتعديل ..
قمت في الكود بالترحيل للصف بعد الجدول بصف لأن التعامل مع الجدول يسبب مشاكل في ملفك ولا أدري سبب المشكلة ، لذا أنصحك أن تجعل النطاقات عادية وليست جداول ..
بعد الترحيل يمكنك حذف الصف من الورقة المسماة mkt حاول عمل هذا السطر بنفسك.
عرض الإجابة
قبل سطر الرسالة الأخيرة ضع الأسطر التالية في الكود الخاص بالتعديل ..
Dim m As Long
Set wsData = ThisWorkbook.Worksheets("data")
m = wsData.Cells(Rows.Count, 1).End(xlUp).Row + 1
If ComboBox30.Value = "äÚã" Then
With wsData
.Cells(m, 1).Value = wsMkt.Cells(rowNum, 1).Value
.Cells(m, 2).Value = wsMkt.Cells(rowNum, 7).Value
.Cells(m, 3).Resize(, 4).Value = wsMkt.Cells(rowNum, 2).Resize(, 4).Value
.Cells(m, 7).Resize(, 5).Value = wsMkt.Cells(rowNum, 10).Resize(, 4).Value
.Cells(m, 20).Value = wsMkt.Cells(rowNum, 18).Value
.Cells(m, 22).Value = wsMkt.Cells(rowNum, 20).Value
.Cells(m, 25).Resize(, 2).Value = wsMkt.Cells(rowNum, 22).Resize(, 2).Value
End With
End If
قمت في الكود بالترحيل للصف بعد الجدول بصف لأن التعامل مع الجدول يسبب مشاكل في ملفك ولا أدري سبب المشكلة ، لذا أنصحك أن تجعل النطاقات عادية وليست جداول ..
بعد الترحيل يمكنك حذف الصف من الورقة المسماة mkt حاول عمل هذا السطر بنفسك.
أعجبني أعجبك هذاإلغ اعجابي 0