Macro

[DMFisher]

Hi,

Is it possible to have a macro that deletes data from a table?

e.g - If cell I10 (Sheet2) matches data in a table on Sheet1 then delete the row that the data is stored in on Sheet1

 

[SteveO59L]

post the code you have modified

 

[DMFisher]

I have changed the sheets from Sheet1 to Storage and Sheet2 to Remove Storage Loc.


Sub Remove_Storage_Location()
'
' Remove_Storage_Location Macro
'
Sheets("Storage").Activate
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "d").End(xlUp).Row
For i = Lastrow To 1 Step -1
If Cells(i, 2).Value = Sheets("Remove Storage Loc.").Range("d10").Value Then
Rows(i).Delete
End If
Next
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Remove Storage Loc.").Select
Selection.ClearContents
'
'
End Sub

 

[SteveO59L]

If you are cooling in column D, then

If Cells(i, 2), should be

If Cells(i, 4)

 

[DMFisher]

Thanks!