ذخيره اطلاعات

[reza_gh_tak]

با سلام و عرض تشكر از دوستان كه همواره در حل مشكلاتم كمكم كرده اند مي خواستم ببينم چطور ميشه با زدن دكه ذخير ه اطلاعات شيت يك در شيت دو ذخيره بشه ممنون

[majid_mx4]

با سلام

لطفافایل ضمیمه را بررسی نمایید.

توضیح : کلیدهای Alt+F11 را فشار دهید تا بتوانید دستورات را مشاهده نمایید.

Sub Button5_Click()
Dim Lastrow As Long
Lastrow = Sheet2.Cells(Rows.Count, "a").End(3).Row + 1
Sheet2.Range("a" & Lastrow) = Sheet1.Range("p9")
Sheet2.Range("B" & Lastrow) = Sheet1.Range("F9")
Sheet2.Range("C" & Lastrow) = Sheet1.Range("B9")
Sheet2.Range("D" & Lastrow) = Sheet1.Range("P11")
Sheet2.Range("E" & Lastrow) = Sheet1.Range("f11")
Sheet2.Range("F" & Lastrow) = Sheet1.Range("b11")
Sheet2.Range("G" & Lastrow) = Sheet1.Range("p13")
Sheet2.Range("H" & Lastrow) = Sheet1.Range("f13")
Sheet2.Range("I" & Lastrow) = Sheet1.Range("b13")


Sheet1.Range("p9") = ""
Sheet1.Range("F9") = ""
Sheet1.Range("B9") = ""
Sheet1.Range("P11") = ""
Sheet1.Range("f11") = ""
Sheet1.Range("b11") = ""
Sheet1.Range("p13") = ""
Sheet1.Range("f13") = ""
Sheet1.Range("b13") = ""

End Sub


موفق باشید میر