change 'Found.EntireRow.Copy' to a # of columns

trevorc · #1 01-06-2017, 11:44 PM

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)

Can you help?

thanks in advance.

Similar Threads
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
Macro to copy specific columns in Excel from another spreadsheet	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