Having problems with this
vb to display a list of specific cell data
from "Sites" sheet on "Addressing" sheet.
Code:
--------------------
Sub CreateSitesList()
Sheets("Addressing").Range("V2:W40").ClearContents
Lastrow = Sheets("Sites").Range("c65536").End(xlUp).Row
For Each ce In Sheets("Sites").Range("C2:C" & Lastrow)
On Error Resume Next
nodupes.Add Item:=ce, key:=CStr(ce)
Next ce
For i = 1 To nodupes.Count
Sheets("Addressing").Range("V2").Offset(i, 0).Value = nodupes(i)
Sheets("Addressing").Range("V2").Offset(i, 1).Value = WorksheetFunction.CountIf(Sheets("Sites").Range("c 1:c" & Lastrow), nodupes(i))
Next i
End Sub
--------------------
--
swieduwi
------------------------------------------------------------------------
swieduwi's Profile:
http://www.excelforum.com/member.php...o&userid=21962
View this thread:
http://www.excelforum.com/showthread...hreadid=380191