![]() |
#1
|
|||
|
|||
![]()
I need to change the code below so that it returns a range of cells rather than the entire row, I need it to return a range of B to K columns for the found row.
found is the search string i'm looking for. Code:
Set Found = .UsedRange.Find(what:=myText, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False) If Not Found Is Nothing Then FirstAddress = Found.Address Do foundNum = foundNum + 1 AddressStr = .Name & " " & Found.Address & vbCrLf Set Found = .UsedRange.FindNext(Found)Found.EntireRow.Copy Destination:=Worksheets("instructions").Range("a2" & foundNum) thanks in advance. |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Need to change table to text so that both columns merge to form 1 line | jrasicmark | Word | 3 | 02-24-2015 07:28 AM |
Want to change Macro to copy and paste data to new sheet | Vortex69 | Excel Programming | 0 | 12-23-2014 09:53 PM |
![]() |
KD999 | Excel Programming | 1 | 07-20-2012 08:58 AM |
quick replace, sort, change columns | userman | Excel | 1 | 05-01-2012 06:24 AM |
If two geographical data match in two sheets, copy unique id/code found in one sheet | alliage | Excel | 1 | 09-01-2011 05:23 AM |