HSHO's questions

Estou trabalhando no desenvolvimento de uma fórmula que faça referência aos valores da Coluna A e adapte sua funcionalidade com base nesses números.

Por exemplo, se eu tiver 25 resultados na Coluna A da Planilha1, gostaria de dividir e usar a função TEXTJOIN de acordo com os valores correspondentes na Coluna A da Planilha2, conforme ilustrado na fórmula abaixo.

Meu objetivo é criar uma fórmula dinâmica que funcione dessa maneira.

Folha1

Planilha2

Tentei, mas ocorreu um erro:

=TEXTJOIN("', '", TRUE, ARRAYFORMULA(
  IF(MOD(ROW(Sheet1!B2:B)-ROW(Sheet1!B1), 5) = 0, "'" & Sheet1!B2:B & "'", "")))

Aqui está o resultado final:

Formulei o seguinte código para recuperar dados da página da web fornecida: https://www.redfin.com/NV/Fallon/630-Serpa-Pl-89406/unit-Fallon/home/178255574?utm_source=android_share&utm_medium=share&utm_nooverride =1&utm_content=link&2010988919=variant&utm_campaign=homecard_share .

No entanto, estou encontrando um erro de 'objeto obrigatório' na linha: sqFt = html.getElementsByClassName("statsLabel")(0).NextSibling.getElementsByClassName("statsValue")(0).innerText.

Espero que alguém possa oferecer assistência para corrigir esse problema, permitindo que o código extraia com êxito as informações pertinentes da página da web.

Sua orientação seria muito apreciada. Obrigado.

Sub ExtractingRedfin()
    Dim url As String
    Dim ie As Object
    Dim html As Object
    Dim Lastrow As Long
    Lastrow = Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row
    
    ' URL of the webpage to scrape
    url = Sheet1.Cells(Lastrow, 1).Value
    
    ' Create a new Internet Explorer instance
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = False ' Set to True if you want to see the browser
    
    ' Navigate to the URL
    ie.navigate url
    
    ' Wait for the browser to finish loading the page
    Do While ie.readyState <> 4 Or ie.Busy
        DoEvents
    Loop
    
    ' Get the HTML content of the page
    Set html = ie.document
    
    Dim beds As String
    Dim baths As String
    Dim sqFt As String
    Dim price As String
    Dim est As String
    Dim address As String
    Dim cityStateZip As String
    
    beds = html.getElementsByClassName("statsValue")(0).innerText
    baths = html.getElementsByClassName("statsValue")(1).innerText
    sqFt = html.getElementsByClassName("statsLabel")(0).NextSibling.getElementsByClassName("statsValue")(0).innerText
    price = html.getElementsByClassName("info-block price")(0).getElementsByClassName("statsValue")(0).innerText
    est = html.getElementsByClassName("info-block price")(0).getElementsByClassName("statsLabel")(0).innerText
    address = html.getElementsByClassName("street-address")(0).innerText
    cityStateZip = html.getElementsByClassName("citystatezip")(0).innerText
    

    ie.Quit
    
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet3")
    
    ws.Cells(2, 1).Value = beds
    ws.Cells(2, 2).Value = baths
    ws.Cells(2, 3).Value = sqFt
    ws.Cells(2, 4).Value = price
    ws.Cells(2, 5).Value = est
    ws.Cells(2, 6).Value = address
    ws.Cells(2, 7).Value = cityStateZip
End Sub

Desenvolvi um script baseado em um conceito: quando clico em uma célula específica que defini no Apps Script, o valor dessa célula deve ser copiado para a célula K5.

Não tenho certeza de por que não está funcionando conforme o esperado e não há nenhuma mensagem de erro fornecida. Eu apreciaria muito sua ajuda para identificar e resolver o problema. Sua ajuda é valiosa.

function onEdit(e) {
  var sheet = e.source.getActiveSheet();
  var range = e.range;
  var sheetName = "Calendar"; // Replace with the actual sheet name
  
  // Define your dynamic calendar ranges here
  var calendarRanges = [
    sheetName + "!B7:H7",
    sheetName + "!B13:H13",
    sheetName + "!B19:H19",
    sheetName + "!B25:H25",
    sheetName + "!B31:H31",
    sheetName + "!B37:H37"
  ]; // Add your ranges here
  
  // Check if the edited cell is within any of the defined calendar ranges
  for (var i = 0; i < calendarRanges.length; i++) {
    var rangeData = sheet.getRange(calendarRanges[i]);
    if (
      range.getRow() >= rangeData.getRow() &&
      range.getRow() <= rangeData.getLastRow() &&
      range.getColumn() == rangeData.getColumn()
    ) {
      sheet.getRange("K5").setValue(range.getValue());
      break; // Stop checking after finding a matching range
    }
  }
}

Eu preciso de ajuda. Estou usando a fórmula abaixo para recuperar informações de uma coluna correspondente e gerar um hiperlink para navegar de volta aos dados. Infelizmente, esta fórmula não está funcionando como esperado. Espero que alguém possa fornecer orientação para resolver esse problema.

=ArrayFormula(IFERROR(HYPERLINK("Scheduler!$B$"&MATCH(SMALL(IF($D$3=INT(Scheduler!B:B),Scheduler!B:B,""),ROW(A1)),Scheduler!B:B,0)+2,SMALL(IF($D$3=INT(Scheduler!B:B),Scheduler!B:B,""),ROW(A1))),""))

Planilha Google