ذخیره سازی اطلاعات از یک شیت به شیت دیگر

[ebrahimfendresk]

با سلام
فایل زیر رو برای محاسبه حقوق تو یک شرکت کوچیک استفاده می کنیم حالا یک قسمت به فایل اضافه کردیم برای ذخیره سازی اطلاعات می خوام وقتی دکمه ذخیره رو می زنم اطلاعات در شیت بانک فیش های حقوق ذخیره شوند مثلا کد کارمند تو ستون کد کارمند و الباقی اطلاعاتی که در فیش حقوقی هست و باید ذخیره شود در انجا.

متاسفانه من زیاد از vba سر در نمیارم
پیشاپیش ممنون از راهنمایی شما.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

با استفاده از ماکرو ذیل میتوانید دیتای مورد نظر را در شیت سوم ثبت نمایید

Sub test()

Z3 = Sheet3.Cells(Sheet3.Rows.Count, "c").End(xlUp).Row + 1

Dim list1 As New Collection

list1.Add Range("B10")  

list1.Add Range("B11") 

list1.Add Range("I2") 

list1.Add Range("H5")

list1.Add Range("H7")

list1.Add Range("L5") 

list1.Add Range("L6")

list1.Add Range("L7")

list1.Add Range("L8")

list1.Add Range("O5")

list1.Add Range("O6")

list1.Add Range("O7")

list1.Add Range("O8")

list1.Add Range("N14")

'===˜í ÏÑ ÔíÊ ãÞÕÏ==='

For I = 1 To list1.Count

Sheet3.Cells(Z3, I) = list1.Item(I)

Next

MsgBox ". ثبت شد"

End Sub