Run VBA code using event (TableUpdate)

[Guinaba]

Hi guys,

I have the following code that I'd like to run when my table is refreshed using PowerQuery, but not sure how to use it within the event. Any suggestion?

Private Sub Worksheet_TableUpdate(ByVal Target As TableObject)
  
  Dim wrksht4 As Worksheet
  Dim i As Integer
   
  Set wrksht4 = ActiveWorkbook.Worksheets("EDPlannedOrders")
    With wrksht4
     'Find the last non-blank cell in column A(1)
      LRow = .Cells(Rows.Count, 9).End(xlUp).Row
      
      i = LRow
        .Cells(LRow + 1, 9) = Format(Date, "YYYY/MM/DD")
        .Cells(LRow + 1, 10) = .Cells(1, 6).Value
    End With

End Sub

 

[Legacy 143009]

Option Explicit
Private WithEvents QT As QueryTable
Private Sub Workbook_Open()
       Set QT = Worksheets("Sheet1").ListObjects("QueryTableName").QueryTable
End Sub
Private Sub QT_AfterRefresh(ByVal Success As Boolean)
  Dim wrksht4 As Worksheet
  Dim i As Integer
  
  Set wrksht4 = ActiveWorkbook.Worksheets("EDPlannedOrders")
    With wrksht4
     'Find the last non-blank cell in column A(1)
      LRow = .Cells(Rows.Count, 9).End(xlUp).Row
     
      i = LRow
        .Cells(LRow + 1, 9) = Format(Date, "YYYY/MM/DD")
        .Cells(LRow + 1, 10) = .Cells(1, 6).Value
    End With
End Sub

You should replace the actual query table name and referring sheet.