ترحيل بيانات

[moh250]

السلام عليكم و رحمة الله

اخوانى فى الله برجاء المساعدة فى ترحيل البيانات فى الشيت المرفق من " حسابات الغرامة " الى SHEET1 مع الشرح

سؤال اخر ما المقصود For I = 25 To Range("F41").End(xlUp).Row ؟؟؟

1.rar

[ابو اسامة العينبوسي]

السلام عليكم

Sub ãÓÊØíá38_äÞÑ()

With Sheets("Sheet1")

X = .Cells(Rows.Count, 2).End(xlUp).Row + 1

.Cells(X, 2) = Sheets(1).Cells(10, 2)

.Cells(X, 3) = Sheets(1).Cells(6, 4)

.Cells(X, 4) = Sheets(1).Cells(7, 10)

.Cells(X, 5) = Sheets(1).Cells(7, 8)

.Cells(X, 6) = Sheets(1).Cells(12, 8)

End With

End Sub

BESO - DEM2.rar