View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Nigel Nigel is offline
external usenet poster
 
Posts: 923
Default delete content of one sheet off another sheet

One way is to scan table 1 and check each row (and column) in table 2 for a
match. If any column fails to match move to next table 2 entry. If all
columns match rrow from table 1.
If your tables are very big then this process can take a while to run.


Sub Test()

Dim t1LR As Long, t2LR As Long, t1CR As Long, t2CR As Long
Dim tCol As Integer, tCC As Integer, xMatch As Boolean

Application.ScreenUpdating = False

' get extent of table 1 and 2 and number of columns
' assumes tables start in column 1
t1LR = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
t2LR = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
tCol = Sheets(1).Cells(1, Columns.Count).End(xlToLeft).Column

' scan tables
' assumes tables start in row 1
For t1CR = t1LR To 1 Step -1
For t2CR = 1 To t2LR
xMatch = True
For tCC = 1 To tCol
If Sheets(1).Cells(t1CR, tCC) < Sheets(2).Cells(t2CR, tCC) Then
xMatch = False
Exit For
End If
Next tCC
If xMatch = True Then Sheets(1).Rows(t1CR).EntireRow.Delete
shift:=xlShiftUp
Next t2CR
Next t1CR
Application.ScreenUpdating = True

End Sub

--
Cheers
Nigel



"eureka" <eureka @discussions.microsoft.com wrote in message
...
I have got 2 excel sheet. Both contain a table(lets call it table1 and
table2). Both the tables have the same kind of formatting.

table1 contains other entries + table2

I want to remove table2 entries off table1.

What is the best way of going about it?