الهرم الرابع قام بنشر مايو 21, 2021 مشاركة قام بنشر مايو 21, 2021 ()Private Sub CommandButton1_Click Dim ahmed As Range ahmed = sheet2.Range("a10000").End(xlUp).Row + 1 sheet2.Cells(ahmed, "a").Value = sheet1.Range("d2").Value End Sub رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر مايو 21, 2021 أفضل إجابة مشاركة قام بنشر مايو 21, 2021 السلام عليكم ورحمة الله غير العبارة Dim ahmed As Range الى Dim ahmed As long و سيعمل معك الكود 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.