مساعدة في تعديل كود

[بلال منذر]

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

احتاج المساعدة في تعديل كود الترحيل.

- أولا... أريد أن ارحل فقط الخانات الثلاث باللون الاخصر منن شيت "سند تحصيل" الى شيت "إشعار بالخصم"

- ثانيا... لا اريد ان يرحل لي قيمة الرقم وهنا وجب عدم استعمال كود endRows.

-ثالثا... في كل مرة اقوم بالضغط على زر الترحيل يضيف المرحلين الى صف جديد فارغ يعني صف بعد صف.

وبدون الترحيل مع الترقيم التلقائي.

هذا الكود وكذلك الملف.

Sub terhel()
Dim EndRow As Long
    If Sheets("ÓäÏ ÊÍÕíá").Range("B12").Value = "" Or Sheets("ÓäÏ ÊÍÕíá").Range("D35").Value = "" Or Sheets("ÓäÏ ÊÍÕíá").Range("E12").Value = "" Then
        MsgBox prompt:="ÊÃßÏ ãä ÅÏÎÇá ßÇÝÉ ÇáÈíÇäÇÊ", Title:="ÎØÃ"
Else
    EndRow = Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Range("A1").CurrentRegion.Rows.Count

    Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 1).Value = EndRow
    Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 4).Value = Sheets("ÓäÏ ÊÍÕíá").Cells(12, 2).Value
    Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 5).Value = Sheets("ÓäÏ ÊÍÕíá").Cells(35, 4).Value
    Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 6).Value = Sheets("ÓäÏ ÊÍÕíá").Cells(12, 5).Value
        Sheets("ÓäÏ ÊÍÕíá").Range("B12").ClearContents
    MsgBox prompt:="Êã ØÈÇÚÉ æ ÊÑÍíá ÇáÈíÇäÇÊ ÈäÌÇÍ", Title:="ÑÓÇáÉ ÊÃßíÏ"
End If
    
End Sub
 

terhel.xlsm

وشكرا على رحابة صدركم.

 

تم تعديل يوليو 30, 2018 بواسطه bilouinfo