' Set dValues = CreateObject("Scripting.Dictionary") If Not dValues.Exists(c.Value) Then dValues(c.Value) = c.Valueįor Each c In LO.ListColumns("Candidate").DataBodyRange.SpecialCells(xlCellTypeVisible) Set dValues = CreateObject(“New.Dictionary")įor Each c In LO.ListColumns("Value").DataBodyRange.SpecialCells(xlCellTypeVisible) LO.Range.AutoFilter Field:=LO.ListColumns("Attribute").Index, Criteria1:=dKey If Not dAttributes.Exists(c.Value) Then dAttributes(c.Value) = c.Value Set dAttributes = CreateObject(“New.Dictionary")įor Each c In LO.ListColumns("Attribute").DataBodyRange.Cells Ws.ListObjects.Add xlSrcRange, Range("A1:C1"),, xlYes Ws.Range("A1:C1").Value = Array("Candidate", "Attribute", "Value") If LO Is Nothing Then MsgBox "Please select the table and re-run": Exit Sub
Set dValues = CreateObject("New.Dictionary”) Set dAttributes = CreateObject("New.Dictionary") Can anyone spend a few minutes looking at the files and tell me which parts I need to change to get this running? įWIW, I have tried to replace “Scripting.Dictionary” with “New.Dictionary” in two places (see below), but that didn’t get it working. It’s probably super easy for those who know what they are doing. I’m not a programmer, so the problem is probably me, not knowing what to change to get things working. I tried to import Tim Hall’s Dictionary.cls, but it still doesn’t work. The problem is that this macro works fine on a PC, but not on the Mac. I’m trying to get an Excel 2011 32-bit (for Mac) spreadsheet working that contains a macro.
0 kommentar(er)
