Hi AB33
I am trying to get to grips with your code. I am altering it to move some more stuff. Sadly I don't understand it and it won't work. I will upload the sheet again.
I am attempting to do the same filter in another table (actually the table you moved the entries to) to another table in the control sheet. Below is your code and mine below. I also upload the sheet.
Please excuse me if this is not within the Forum's rules. And I should repost it. Not sure.
Sub Macro30()
'
' Macro30 Macro
'
Dim LR&, ms As Worksheet
Set ms = Sheets("ControlSheet")
LR = ms.Columns(2).Find("*", , , , xlByRows, xlPrevious).Row
With Sheets("ControlSheet").ListObjects("descriptTocCompany")
With .Range
.AutoFilter 4, "#N/A"
If .Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
Sheets("ControlSheet").ListObjects("BDCAll").ListColumns(3).DataBodyRange.Resize(, 2).Copy ms.Cells(LR + 1, "H")
End If
End With
.AutoFilter.ShowAllData
End With
End Sub
Sub Macro31()
Dim LR&, ms As Worksheet
Set ms = Sheets("ControlSheet")
LR = ms.Columns(2).Find("*", , , , xlByRows, xlPrevious).Row
With Sheets("BDC2").ListObjects("BDCAll")
With .Range
.AutoFilter 14, "#N/A"
If .Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
Sheets("BDC2").ListObjects("BDCAll").ListColumns(13).DataBodyRange.Resize(, 2).Copy ms.Cells(LR + 1, "B")
End If
End With
.AutoFilter.ShowAllData
End With
End Sub
Thanks Mark
Please feel free to have this moved to a new post if necessary.
Bookmarks