إخوتى الأعزاء ........
لقد قرأت ملاحظات أخى محمود سعيد ومن حينها وأنا أعمل على حل هذه الملاحظات ....
وأنا فى إنتظار جميع الملاحظات ........ لعل هناك ملاحظات أخرى
1 - AS11 ..... تصحيح فى module20
AS يدلآ من AM
kh1 = Range("AS" & i).Value
كود PHP:
For i = 11 To kh + 10
Range("AS" & i).Select
kh1 = Range("AS" & i).Value '
If kh1 = "Û" Then kh1 = 1
If kh1 > k19 Or k19 = 0 Or kh1 < 0 Or kh1 = "" Then
kh19 = "AS"
GoTo aam
End If
Next i
بدلآ من
كود PHP:
For i = 11 To kh + 10
Range("AS" & i).Select
kh1 = Range("AM" & i).Value '
If kh1 = "Û" Then kh1 = 1
If kh1 > k19 Or k19 = 0 Or kh1 < 0 Or kh1 = "" Then
kh19 = "AS"
GoTo aam
End If
Next i
وكذلك فى نفس الموديول إضافة GoTo MaTh2 ثم :MaTh2
كود PHP:
GoTo MaTh2
Skp:
k19 = Range("BL9").Value
For i = 11 To kh + 10
Range("BL" & i).Select
kh1 = Range("BL" & i).Value '
If kh1 = "Û" Then kh1 = 1
If kh1 > k19 Or k19 = 0 Or kh1 < 0 Or kh1 = "" Then
kh19 = "BL"
GoTo aam
End If
Next i
MaTh2:
تصحيح فى module16
كود PHP:
GoTo MaTh
SKP12:
Range("BG" & i).Select
If Range("BD" & i) = "Û" And Range("BE" & i) = "Û" Then
ActiveCell.FormulaR1C1 = Range("BE" & i).Value
ElseIf Range("BD" & i) = "Û" And Range("BE" & i) <> "Û" Then
ActiveCell.FormulaR1C1 = Range("BE" & i).Value
ElseIf Range("BE" & i) = "Û" And Range("BD" & i) <> "Û" Then
ActiveCell.FormulaR1C1 = Range("BD" & i).Value
Else
ActiveCell.FormulaR1C1 = Range("BD" & i).Value + Range("BE" & i).Value
End If
If Sheets("AAM1").Range("U4") = "10" Then GoTo SKP1
MaTh:
ولكن
يبدو أن " الشيت النهائى " لن يكون الأخير كما ظننت
فليس كل الزملاء قادرين على تصحيح الماكرو لذلك
يجب على’ تصحيح جميع الملاحظات وعرض الشيت مرة أخرى وهذا ليس بالمشكلة
المشكلة أنه خطرت لى فكرة ..........
عند مسح الشيت للتجهيز لرصد جديد يتم حفظ الشيت الجديد بطريقة آلية ويظل الشيت الأصلى كما هو .
المشكلة أنه يتم حفظ الشيت الجديد فى :
1 - إما فى My Documents
2 - أو البارتيشن المستخدم
3 - أو أن تظهر رسالة للمستخدم ليختار المكان الذى يريد
وأنا أريد أن أحفظة داخل فولدر ( مجلد ) لذلك مازال البحث مستمر
أفتونى
أيهم أفضل مكان لحقظ الشيت ؟؟؟؟؟؟؟؟؟؟؟