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

[أبو عبد الملك السوفي]

السلام عليكم جزاكم الله كل خير ونفع بكم

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

Sub kh_trheel2014()
On Error Resume Next
Dim Ary
Dim M As Long, Mt As Long
Dim Txt As String
Txt = [C14] & [C8] & [C9] & [D10] & [G10] & [C12]
With shit4
    M = .Cells(.Rows.Count, "A").End(xlUp).Row
      Mt = WorksheetFunction.Match(Txt, .Range("L2").Resize(M), 0)
    If Mt Then
        If MsgBox("تم تويق البيانات من قبل " & vbCr & "هل تريد مواصلة التوثيق", vbYesNo, "تأكيد") = vbNo Then GoTo 1
    End If
    Ary = Array(M, [C14], [C8], [C9], [D10], [G10], [C12], [F14], [G5] & [H5] & [I5], [D18], [G16], Txt)
    .Cells(M + 1, 1).Resize(1, 12).Value = Ary
    MsgBox ("شكرا تم التويق")
  Range("C8:I8").ClearContents
 Range("C9:I9").ClearContents
 Range("D10:E10").ClearContents
 Range("G10:I10").ClearContents
 Range("C12:I12").ClearContents
 Range("C14:D14").ClearContents
 Range("F14:I14").ClearContents
 Range("D18:I18").ClearContents
End With
1:
End Sub

والتغيير المطلوب هو عندما تكون نفس البيانات اريد من الكود ان يحفظ البيانات الجديدة في نفس المكان ولا يرحلها الى آخر سطر

[أبو عبد الملك السوفي]

ألا هل من مجيب جزاكم الله خيرا

[ناصر سعيد]

ضع ملفا به كودك يسهل للاخوه التعامل ... من فضلك

[أبو عبد الملك السوفي]

•  

• أبلغ فريق الموقع عن مخالفة
•  

قام بنشر منذ 18 ساعات

السلام عليكم جزاكم الله كل خير ونفع بكم

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

Sub kh_trheel2014()
On Error Resume Next
Dim Ary
Dim M As Long, Mt As Long
Dim Txt As String
Txt = [C14] & [C8] & [C9] & [D10] & [G10] & [C12]
With shit4
    M = .Cells(.Rows.Count, "A").End(xlUp).Row
      Mt = WorksheetFunction.Match(Txt, .Range("L2").Resize(M), 0)
    If Mt Then
        If MsgBox("تم تويق البيانات من قبل " & vbCr & "هل تريد مواصلة التوثيق", vbYesNo, "تأكيد") = vbNo Then GoTo 1
    End If
    Ary = Array(M, [C14], [C8], [C9], [D10], [G10], [C12], [F14], [G5] & [H5] & [I5], [D18], [G16], Txt)
    .Cells(M + 1, 1).Resize(1, 12).Value = Ary
    MsgBox ("شكرا تم التويق")
  Range("C8:I8").ClearContents
 Range("C9:I9").ClearContents
 Range("D10:E10").ClearContents
 Range("G10:I10").ClearContents
 Range("C12:I12").ClearContents
 Range("C14:D14").ClearContents
 Range("F14:I14").ClearContents
 Range("D18:I18").ClearContents
End With
1:
End Sub

والتغيير المطلوب هو عندما تكون نفس البيانات اريد من الكود ان يحفظ البيانات الجديدة في نفس المكان ولا يرحلها الى آخر سطر

برنامج رشيد للشهادت المدرسية1.rar

تم تعديل ديسمبر 22, 2017 بواسطه أبو عبد الملك السوفي

[أبو عبد الملك السوفي]

 فضلكم هل من رد أضن أن الامر ليس بهاته الصعوبة على عمالقة المنتدى

 

للرفع رفع  الله قدركم