عبدالله صباح قام بنشر أبريل 20, 2021 مشاركة قام بنشر أبريل 20, 2021 السلام عليكم رمضان مبارك ممكن عند الضغط على الزر ينقل معه الرقم الى الشيت الثاني نقل رقم المستند.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر أبريل 20, 2021 أفضل إجابة مشاركة قام بنشر أبريل 20, 2021 السلام عليكم ورحمة الله استخدم الكود التالى و لكن يجب عليك الغاء الهايبرلنك الذى يربط الزر بورقة حساب حتى يعمل معك الكود Sub fildata() Dim lr As Long lr = Sheets("شهر3").Range("A" & Rows.Count).End(3).Row Sheets("حساب").Activate Sheets("حساب").Range("A3").Value = Sheets("شهر3").Range("A" & lr).Value End Sub 2 رابط هذا التعليق شارك More sharing options...
عبدالله صباح قام بنشر أبريل 20, 2021 الكاتب مشاركة قام بنشر أبريل 20, 2021 جزيت خيرا هو المطلوب رابط هذا التعليق شارك 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.