با سلام خدمت همراهان سایت آی تی سواد
در این مقاله ، از رویداد change کاربرگ برای انتقال اطلاعات از یک شیت به شیت دیگر ، بر اساس شرط خاص استفاده خواهیم کرد.
شیت اصلی من حاوی مقادیر نام ، کشور، شهر و… می باشد من میخواهم بر اساس مقدار ستون تایید ، اطلاعات افرادی که تایید نشده اند بصورت خودکار به شیت دیگر انتقال پیدا کند.
انتقال اطلاعات اکسل به شیت دیگر بصورت خودکار بر اساس شرط خاص
۱. کلیدهای Alt + F11 را فشار دهید تا پنجره Microsoft Visual Basic for Applications باز شود .
۲. در پنجره Microsoft Visual Basic for Applications از قسمت Project بر روی شیت موردنظرتان دابل کلیک کنید
۳. سپس مانند تصویر زیر رویداد Worksheet_Change را انتخاب کنید.
۴. سپس کد زیر را وارد کنید.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
Private Sub Worksheet_Change(ByVal Target As Range) 'Declaring variables Dim i, Lastrow As Long 'Execute code if value in seventh column is changed If Target.Column = 7 Then 'Getting the row number of last cell Lastrow = Sheets("main").Range("A" & Rows.Count).End(xlUp).Row 'Deleting any previous data from "NotEligibleData" sheet Sheets("not").Range("A2:I600").ClearContents 'Looping from tenth row to last row For i = 2 To Lastrow 'If value in G column of the row is "Not" then copy the row to destination sheet If Sheets("main").Cells(i, "G").Value = "NOT" Then Sheets("main").Cells(i, "G").EntireRow.Copy Destination:=Sheets("not").Range("A" & Rows.Count).End(xlUp).Offset(1) End If Next i End If End Sub |
از این به بعد در صورتی که داده هر ردیف ستون تایید به مقدار NOT تغییر یابد ، مقادیر آن بصورت خودکار به شیت not منتقل می شود.
ترجمه شده از سایت www.extendoffice.com
ممنون از همراهی شما کاربران عزیز آی تی سواد
اشتراک گذاری
باسلام ببخشید استاد من یک یوزر فرم دارم که با چند تکس باکس اطلاعاتی رو وارد یک شیت میکنم حالا من میخوام تا در تکس باکس اول مثلا محصولی رو وارد کردم و در تکس باکس دوم نوع اون محصول رو وارد کردم در یک تکس باکس دیگه بره و تعداد موجودی رو از اون شیت فراخوانی کنه تا من نتونم از اون بیشتر عدد واردکنم لطف میکنید راهنمایی کنید ممنون وسپاس