انتقال اطلاعات اکسل به شیت دیگر در صورت دارا بودن شرط خاص

حامد محمودخانی

4 سال پیش

با سلام خدمت همراهان سایت آی تی سواد

در این مقاله ، از رویداد change کاربرگ برای انتقال اطلاعات از یک شیت به شیت دیگر ، بر اساس شرط خاص استفاده خواهیم کرد.

شیت اصلی من حاوی مقادیر نام ، کشور، شهر و… می باشد من میخواهم بر اساس مقدار ستون تایید ، اطلاعات افرادی که تایید نشده اند بصورت خودکار به شیت دیگر انتقال پیدا کند.

انتقال اطلاعات اکسل به شیت دیگر بصورت خودکار بر اساس شرط خاص

۱. کلیدهای Alt + F11 را فشار دهید تا پنجره Microsoft Visual Basic for Applications باز شود .

۲. در پنجره Microsoft Visual Basic for Applications از قسمت Project بر روی شیت موردنظرتان دابل کلیک کنید

۳. سپس مانند تصویر زیر رویداد Worksheet_Change را انتخاب کنید.

۴. سپس کد زیر را وارد کنید.

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