G
grime
On sheet "sort" (not the active sheet) I have column C with a list of
locations (all unique data).
For each location in column C, in that same row, I have a list of
corresponding locations, starting at column G and moving to the right.
There is no set number of corresponding locations for each location, so
the amount of columns that each row expands to is variable.
What I am trying to do is search column C for a specific location (I've
grabbed the row number), and then copy the list of locations that
correspond to that found location.
"A3" on "Current Territory Worksheet" is the location that I am
searching for..
Here's my code that doesn't work (the red section is where I am getting
errors):
RowOfHostStore =
Sheets("Sort").Columns("C:C").Find(What:=Worksheets("Current Territory
Worksheet").Range("A3"), LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:=False).Row
With Worksheets("Sort")
Range(Cells(RowOfHostStore, 7), Range(Cells(RowOfHostStore,
7).End(x1ToRight))).Copy
End With
Worksheets("Current Territory Worksheet").Range("A4").PasteSpecial
Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Any help is greatly appreciated
locations (all unique data).
For each location in column C, in that same row, I have a list of
corresponding locations, starting at column G and moving to the right.
There is no set number of corresponding locations for each location, so
the amount of columns that each row expands to is variable.
What I am trying to do is search column C for a specific location (I've
grabbed the row number), and then copy the list of locations that
correspond to that found location.
"A3" on "Current Territory Worksheet" is the location that I am
searching for..
Here's my code that doesn't work (the red section is where I am getting
errors):
RowOfHostStore =
Sheets("Sort").Columns("C:C").Find(What:=Worksheets("Current Territory
Worksheet").Range("A3"), LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:=False).Row
With Worksheets("Sort")
Range(Cells(RowOfHostStore, 7), Range(Cells(RowOfHostStore,
7).End(x1ToRight))).Copy
End With
Worksheets("Current Territory Worksheet").Range("A4").PasteSpecial
Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Any help is greatly appreciated