Hi, I'm new to VBA, i need help to copy cell value, find value in other worksheet, then paste row where the found cell value is. I am using a workbook as a template so each user can use it.
I have a worksheet called "Survey" I want a vba code to copy the cell value in cell "J5"
Go to worksheet "Raw_Data" find the value of the cell J5 from the sheet "Survey" in column "AW" on the Raw_Data tab then paste special that particular row and then save the workbook as an xlsx and with the template clear the contents in cell J5 on the "Survey" sheet.
This is what I have so far but I am stuck finding and pasting the data.
Code
Sheets("Survey").Select
On Error Resume Next
ThisWorkbook.Sheets(Worksheets("Survey").Range("J5").Value).Activate
Selection.Copy
Sheets("Raw_Data").Select
Columns("AW:AW").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks("Voluntary Assessment Tool Master.xlsx").Save
Application.DisplayAlerts = False
End Sub
Display More