Method 'Range' of object '_Worksheet' failed on using Range("Reference!D3")

See also questions close to this topic

• NoSuchElementError. Element not found for XPath VBA

  I'm a beginner and I'm trying to write a VBA program to extract the analysts recommendation from a stock on tipranks.com Basically I have a spreadsheet where I need to place the number of analysts with a buy, hold and sell recommendation on a stock so I used Selenium and chromedriver to open the web site and then find the values (number of analysts per recommendation) and copy to the spreadsheet. The code works fine until it tries to copy the first value. It Says that it can't find the element "Element not found for XPath [XPath direction]". The strange thing is that if I copy the fullXPath while the code is paused (because of the error) from the chrome window the program opened and paste it again and click continue then the program will run smootly and will find the rest of the elements on the website despite the XPath is exactly the same I was using before. The problem seems to be when it tries to find the first XPath element when I run the program regardless of the element I try to find and once I resolve that it will find the rest with no problem.

  Dim obj As New WebDriver
  Dim xyz As WebElement
  Dim destino As Range
  obj.Start "chrome", ""
  obj.Get "https://www.tipranks.com/stocks/aapl/forecast"
  
  Application.Wait (Now + TimeValue("0:00:5"))
  
  Dim BUYs As Range
  Set BUYs = ActiveCell
  BUYs = obj.FindElementByXPath("/html/body/div[1]/div/div/div[2]/article/div[2]/div/main/div[1]/section/div[2]/div[1]/div[2]/div/div[2]/div/ul/li[1]/span[2]/b").Text
  ActiveCell.Offset(0, 1).Select
  Set HOLDs = ActiveCell
  Dim HOLDs As Range
  HOLDs = obj.FindElementByXPath("/html/body/div[1]/div/div/div[2]/article/div[2]/div/main/div[1]/section/div[2]/div[1]/div[2]/div/div[2]/div/ul/li[2]/span[2]/b").Text
  ActiveCell.Offset(0, 1).Select
  Dim SELLs As Range
  Set SELLs = ActiveCell
  SELLs = obj.FindElementByXPath("/html/body/div[1]/div/div/div[2]/article/div[2]/div/main/div[1]/section/div[2]/div[1]/div[2]/div/div[2]/div/ul/li[3]/span[2]/b").Text
  

  I would appreciate any help and recommendation

  Thanks in advance!
• VBA: completing a matrix

  I have a 3 by 3 matrix, where elements (1,1), (2,1), (2,2), (3,1), (3,2), (3,3) are given:

  X   .   .
  X   X   .
  X   X   X
  

  I need to write a program that writes out the missing elements, where (1,2)=(2,1), (1,3)=(3,1) and (2,3)=(3,2). I have written the following code:

  Function kiegeszito(a)
      For i = 1 To 3
          For j = 1 To 3
              If i < j Then
                  a(i, j) = a(j, i)
              Else        
                  a(i, j) = a(i, j)
              End If
          Next j
      Next i
  
      kiegeszito = a
  End Function
  

  However, this does not seem to work, could anybody help me why is this not working?
• Highlight Selected Row & Columns

  I have this code which is below. The highlight is always enable. I am trying to find out how can i create something to enable/disable whenever i want. Thanks in advance.

    Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  Static xRow
  Static xColumn
  If xColumn <> "" Then
      With Columns(xColumn).Interior
          .ColorIndex = xlNone
      End With
      With Rows(xRow).Interior
          .ColorIndex = xlNone
      End With
  End If
  pRow = Selection.Row
  pColumn = Selection.Column
  xRow = pRow
  xColumn = pColumn
  With Columns(pColumn).Interior
      .ColorIndex = 6
      .Pattern = xlSolid
  End With
  With Rows(pRow).Interior
      .ColorIndex = 6
      .Pattern = xlSolid
  End With
  End Sub
  
• Access form tabular form

  I have a question for an Access form (continuous form) where I wanted to enter values in one combo box and then after pressing the save button the values were added to all rows in the table.

  I tried to apply, but in tabular form the value was assigned only to the first row of the Person field.

  Private Sub recommendation_Click()
  If (Not IsNull(Kombi.Value)) Then
  Me.Person = Me.Kombi
  End If
  End Sub