How to create a pulldown list in numbers

Question

how to create a pulldown list in numbers

Answer 1

Here is it:
Open Applescript editor
Copy the entire script and paste it into Applescript Editor
Compile it
Read the instructions at the top of the script
Run the script, following the instructions.
You can save the script and it will be available in the Scripts menu (on the right side of the menu bar where Time Machine , Airport, and all those icons are).
Copy and paste all of what is below:
-- Script to populate a Numbers pop-up list.
-- Instructions:
--                    GUI scripting must be on in System Preferences
--                    Create a list of items. Must be a contiguous range of cells in a table.
--                    Select the range of cells to use as items in the popup.
--                    Run the script. 
--                    A dialog box will appear asking you to select which cells you want to turn into pop-ups
--                    Select the cells then click OK on the dialog box
set tValues to my doThis(1) -- get values of the selection
if tValues is not "" then
  activate
          display dialog "Select the cells where you want to create the PopUp." & return & "After that, click on the 'OK' button."
          my doThis(tValues) -- set the cell format of the new selection to "PopUp Menu" and set the values of the each menu item
          tell application "Numbers" to display dialog "Done"
else
          tell application "Numbers" to display dialog "You must select the cells in a table before running this script."
end if
on doThis(n)
          tell application "Numbers"
                    set tTables to (tables of sheets of front document whose its selection range is not missing value)
                    repeat with t in tTables -- t is a list of tables of a sheet
                              if contents of t is not {} then -- this list is not empty, it's the selected sheet
                                        set activeTable to (get item 1 of t)
                                        if n = 1 then return value of cells of selection range of activeTable -- return values of the selection
                                        set format of (cells of selection range of activeTable) to pop up menu -- set the format to pop up menu
                                        return my setValuePopUp(n) -- set value of each menu item
                              end if
                    end repeat
          end tell
          return ""
end doThis
on setValuePopUp(L)
          tell application "System Events"
                    tell process "Numbers"
                              set frontmost to true
                              delay 0.3
                              set inspectorWindow to missing value
                              set tWindows to windows whose subrole is "AXFloatingWindow"
                              repeat with i in tWindows
                                        if exists radio group 1 of i then
                                                  set inspectorWindow to i
                                                  exit repeat
                                        end if
                              end repeat
                              if inspectorWindow is missing value then
  keystroke "i" using {option down, command down} -- Show Inspector
                              else
  perform action "AXRaise" of inspectorWindow -- raise the Inspector window to the front
                              end if
                              delay 0.3
                              tell window 1
  click radio button 4 of radio group 1 -- the "cell format" tab
                                        delay 0.3
                                        tell group 2 of group 1
                                                  set tTable to table 1 of scroll area 1
                                                  set tc to count rows of tTable
                                                  set lenL to (count L)
                                                  if tc < lenL then -- ** add menu items **
                                                            repeat until (count rows of tTable) = lenL
  click button 1 -- button [+]
                                                            end repeat
  keystroke return -- validate the default name of the last menu item
                                                  else if tc > lenL then -- ** remove menu items **
                                                            repeat while exists row (lenL + 1) of tTable
                                                                      select row (lenL + 1) of tTable
  click button 2 --  button [-]
                                                            end repeat
                                                  end if
                                                  tell tTable to repeat with i from 1 to lenL -- ** change value of each menu item **
                                                            set value of text field 1 of row i to item i of L
                                                  end repeat
                                        end tell
                              end tell
                    end tell
          end tell
end setValuePopUp