@TARUNKANTI1964
You can achieve this task using VBA code. Below is a sample code that you can use to transfer the data from Sheet1 to Sheet2:
Vba code is untested, please backup your file first.
Sub TransferData()
Dim wsSource As Worksheet
Dim wsDestination As Worksheet
Dim lastRow As Long
Dim i As Long
' Set references to the source and destination worksheets
Set wsSource = ThisWorkbook.Sheets("Sheet1")
Set wsDestination = ThisWorkbook.Sheets("Sheet2")
' Find the last row with data in Sheet1
lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
' Loop through each row in Sheet1
For i = 2 To lastRow ' Assuming data starts from row 2
' Check if the Chasis Number in Column A is equal to the Chasis Number in Column C
If wsSource.Cells(i, 1).Value = wsSource.Cells(i, 3).Value Then
' If they match, transfer the data to Sheet2
wsDestination.Cells(i, 1).Value = wsSource.Cells(i, 1).Value ' Copy Chasis Number
wsDestination.Cells(i, 2).Value = wsSource.Cells(i, 2).Value ' Copy License ID
wsDestination.Cells(i, 3).Value = wsSource.Cells(i, 3).Value ' Copy Chasis Number
End If
Next i
MsgBox "Data transfer complete!", vbInformation
End Sub
Here is how the code works:
- It sets references to the source and destination worksheets (Sheet1 and Sheet2).
- It finds the last row with data in Sheet1.
- It loops through each row in Sheet1.
- For each row, it checks if the Chasis Number in Column A matches the Chasis Number in Column C.
- If they match, it transfers the data (Chasis Number, License ID, and Chasis Number) to the corresponding rows in Sheet2.
Make sure to adjust the sheet names and column references in the code to match your actual worksheet layout. The texts, steps and code were created with the help of AI.
My answers are voluntary and without guarantee!
Hope this will help you.
Was the answer useful? Mark as best response and Like it!
This will help all forum participants.
