Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Please help - Find & copy Macro
Please help -
Macro to find "E4" value in column A. If found, copy found value from the A column and paste in cell A5. All info are in sheet named is List. Thanks! |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Please help - Find & copy Macro
Hi,
Try the following code: I'm assuming you know hw to inser this code into a VBA module. This also assumes that there are no blanks in column A. Sub FindValue() Dim CellValue As Variant Dim i As Variant CellValue = Range("e4").Value Application.ScreenUpdating = False Range("e5").ClearContents Range("a1").Select For i = 1 To Range("a1").End(xlDown).Row If ActiveCell().Value = CellValue Then Selection.Copy Range("E5").Select ActiveSheet.Paste Application.CutCopyMode = False Else ActiveCell.Offset(1, 0).Select End If Next i Application.ScreenUpdating = True Range("a1").Select End Sub John "Damil4real" wrote: Please help - Macro to find "E4" value in column A. If found, copy found value from the A column and paste in cell A5. All info are in sheet named is List. Thanks! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find and Copy down macro | Excel Discussion (Misc queries) | |||
FIND-COPY DIFFERENT WORDS WITH MACRO | Excel Discussion (Misc queries) | |||
FIND-COPY DIFFERENT WORDS WITH MACRO | Excel Discussion (Misc queries) | |||
Macro to find matching date and copy values to another sheet | Excel Discussion (Misc queries) | |||
Macro to find, copy, and paste until value change | Excel Worksheet Functions |