Extract dropdown list from web?

[cspengel]

This is the link I am wanting to extract.

The Best NBA Projections for DraftKings, FanDuel, Yahoo, and SuperDraft

SaberSim has the best DFS NBA fantasy point and ownership projections for DraftKings, FanDuel, Yahoo, and SuperDraft. See them for free!

www.sabersim.com

What I would like to do is select the Fanduel option then pull the date it lists and put it into cell P19 on my excel sheet, and also pull the list of games in the dropdown box if the text contains "(Sg)"

Is this possible?

 

[cspengel]

After much fiddling around, this is what I have

Dim objIE, listCbo1,  cOption
 Dim i As Long
 Dim rng As Range
 Dim ws As Worksheet

    Set ws = ThisWorkbook.Worksheets("Main")
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True
    objIE.navigate "https://www.sabersim.com/dfs/nba/projections/"


    While objIE.Busy
        Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 4)
    Wend
  
 objIE.document.getElementById("fd1").Click
   
    While objIE.Busy
        Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 4)
    Wend
   
    i = 23
   Set listCbo1 = objIE.document.getElementsByTagName("option")
   For Each cOption In listCbo1
   If InStr(cOption.Value, "Sg") > 0 Then
 Worksheets("Main").Cells(i, "P").Value = cOption.innerText
 End If
 i = i + 1
Next cOption

Set rng = ws.Range("L19")
With rng.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$P$27:$P$35"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

End Sub

Is it somehow possible to remove the source of the validation? I want to use the values in P27:P35 as the data validation criteria, but I do not want those cells to remain with that criteria after the validation criteria is filled if that makes sense...

 

[John_w]

Is it somehow possible to remove the source of the validation? I want to use the values in P27:P35 as the data validation criteria, but I do not want those cells to remain with that criteria after the validation criteria is filled if that makes sense...

Change Formula1 to a csv string of values, like this:

Formula1:=Join(Application.Transpose(Range("P27:P35").Value), ",")

Or create the csv string directly in the For Each cOption In listCbo1 loop instead of populating the cells and use that string as the Formula1 value.

 

[cspengel]

Change Formula1 to a csv string of values, like this:

Formula1:=Join(Application.Transpose(Range("P27:P35").Value), ",")

Or create the csv string directly in the For Each cOption In listCbo1 loop instead of populating the cells and use that string as the Formula1 value.

Thank you John_w!!