tbl

I have the following code: Sub DeleteCostingLine() Dim ws As Worksheet Dim tbl As ListObject Set ws = ActiveSheet Set tbl = ws.ListObjects("tblCosting") tbl.ListRows(tbl.ListRows.Count).Delete Worksheets("Costing_tool").Range("AB5").Value = "1" End Sub This...

What variable has not been set in this code? Sub cmdNot_Accept_click() Dim DocYearName As String Dim ans As String Dim tbl As ListObject Dim tblrow As ListRow Set tbl = ThisWorkbook.Worksheets("Costing_tool").ListObjects("tblCosting") If ActiveCell.EntireRow.Cells(1, 1).Value = ""...

Trying to loop through all tables on a worksheet and select column #5 but don't know how. All I got is: For each tbl in ActiveSheet.ListObjects ActiveSheet.ListObjects(tbl).ListColumns(5).Range.Select next tbl It does not like the ActiveSheet.ListObjects(tbl).ListColumns(5).Range.Select...

Hi, I am trying to create a list of all tables in a workbook and I am also trying to create an userform with one or more list boxes with the table names in them. The listbox is called listbox1, listbox2 and listbox3. Sub tableAllSheet() Dim sh As Worksheet Dim tbl As ListObject...

The below code works perfect taking what is in the form and adds it to a table on another sheet. Private Sub bOkay2_Click() Dim tbl As ListObject Dim ws As Worksheet Dim lrow As Range Dim lrow2 As Long Set tbl = Sheets("Missed Scan Summary").ListObjects("tblncidents") If...

Hello All, I am hoping someone can guide me in the right direction. I am trying to delete records in one table based on query results from another table. I have two tables of interest: For clarity, call them Tbl A and Tbl B. Tbl B is entirely a subset of Tbl A with certain fields included...

Please help. I cannot get this macro to work.... I am trying to sort by the active table, criteria is column 1. Then I would like to add a second critera, column 5 of the table. I keep getting an error on the line... ".Sort.SortFields.Add Key:=Range([activeTable("Column1")])...

Hi! Im trying to get this formula to work. It calculates the total hours from start time to end time and converts it to numbers instead of time. When executed it gives a runtime 1004 error. When i copy the formula by hand it will work just fine. Can someone please help me out? Below the VBA...

Please find the below code for 1 url. How to scrape data for multiple urls that is pasted in sheet 1 of excel and result of the scraped data in sheet 2. Sub Test() Dim html As Object Dim tbl As Object Dim tRow As Object Dim tCel As Object Dim X As Long Dim y As Long With...

I'm trying to create a Macro in VBA that will autofill a formula in the first column of the total row of a table over to a newly created column all the way to the right. Here's what I have right now: <tbody> Week Person #1 Person #2 #1 #2 #3 #4 #5 #6 #7 #8...

title says it all, here's what I have now, but for some reason, it's not working when it should... Range("A3").Select ActiveCell.Offset(1, 0).Activate Dim tbl As Range Set tbl = Range(Selection, Selection.End(xlDown)).Select MsgBox tbl.Rows.Count