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

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • reza_gh_tak

    • 2019/06/21
    • 149
    • 24.00
    #1

    پرسش ذخيره اطلاعات

    با سلام و عرض تشكر از دوستان كه همواره در حل مشكلاتم كمكم كرده اند مي خواستم ببينم چطور ميشه با زدن دكه ذخير ه اطلاعات شيت يك در شيت دو ذخيره بشه ممنون
    فایل های پیوست شده
    برچسب ها: هیچ‌کدام
    • majid_mx4

      • 2012/06/25
      • 699
      #2
      با سلام

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

      توضیح : کلیدهای 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
      موفق باشید میر
      فایل های پیوست شده

        کامنت

        قبلی template بعدی
        چند لحظه..