moh250 قام بنشر أغسطس 25, 2009 قام بنشر أغسطس 25, 2009 السلام عليكم و رحمة الله اخوانى فى الله برجاء المساعدة فى ترحيل البيانات فى الشيت المرفق من " حسابات الغرامة " الى SHEET1 مع الشرح سؤال اخر ما المقصود For I = 25 To Range("F41").End(xlUp).Row ؟؟؟ 1.rar
ابو اسامة العينبوسي قام بنشر أغسطس 26, 2009 قام بنشر أغسطس 26, 2009 السلام عليكم 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.