عند الضغط على الزر يذهب الى الشيت المخصص وينقل معه الرقم

[عبدالله صباح]

السلام عليكم

رمضان مبارك

ممكن عند الضغط على الزر ينقل معه الرقم الى الشيت الثاني

نقل رقم المستند.xlsm

[ابراهيم الحداد]

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

استخدم الكود التالى

و لكن يجب عليك الغاء الهايبرلنك الذى يربط الزر بورقة حساب حتى يعمل معك الكود

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

 

[عبدالله صباح]

جزيت خيرا

هو المطلوب