Sub PartCust()
Dim cp As Integer, cn As Integer, LR As Long, i As Integer
LR = Cells(Rows.Count, "A").End(xlUp).Row
cp = WorksheetFunction.CountIf(Range("A:A"), Range("C1"))
cn = 5
For i = 2 To LR
If Range("A" & i) = Range("D1") Then
Cells(1, cn) = Range("C" & i)
cn = cn + 1
Else
End If
Next i
End SubSub PartCust()
Dim cp As Integer, cn As Integer, LR As Long, i As Integer
LR = Cells(Rows.Count, "A").End(xlUp).Row
Range("E1:Z1").ClearContents
cp = WorksheetFunction.CountIf(Range("A:A"), Range("C1"))
cn = 5
For i = 2 To LR
If Range("A" & i) = Range("D1") Then
Cells(1, cn) = Range("C" & i)
cn = cn + 1
Else
End If
Next i
End Sub
| Book1 | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| A | C | D | E | F | G | H | I | |||
| 1 | County | Ward | ||||||||
| 2 | Cambridgeshire | Downham Villages | Dorset | Poole Town | Parkstone | Town Centre | ||||
| 3 | Norfolk | Upwell and Delph | ||||||||
| 4 | East Riding of Yorkshire | Kings Park | ||||||||
| 5 | East Riding of Yorkshire | Sutton | ||||||||
| 6 | Cambridgeshire | Roman Bank | ||||||||
| 7 | Kent | Walland & Denge Marsh | ||||||||
| 8 | Dorset | Poole Town | ||||||||
| 9 | Greater London | Thamesmead Moorings | ||||||||
| 10 | Greater London | Abbey Wood | ||||||||
| 11 | Greater London | Thamesmead East | ||||||||
| 12 | Greater London | Evelyn | ||||||||
| 13 | Devon | Teignmouth East | ||||||||
| 14 | Dorset | Parkstone | ||||||||
| 15 | Dorset | Town Centre | ||||||||
| 16 | East Sussex | Devonshire | ||||||||
Sheet2 | ||||||||||
| Cell Formulas | ||
|---|---|---|
| Range | Formula | |
| G2 | =IFERROR(INDEX($C$2:$C$37,AGGREGATE(15,6,(ROW($A$2:$A$37)-ROW($A$2)+1)/($A$2:$A$37=$F2),COLUMNS($A$1:A$1))),"") | |
