Before:- ( from your uploaded files )
_____ Workbook: sample1.xlsx ( Using Excel 2007 32 bit )
Worksheet: Sheet1
Row\Col A B C D 1 2ACC 150 3DLF 120 4 5match column A of sample1.xlsx with column B of sample2.xlsx 6If it matches then do nohing 7if it doesn’t matches then delete that enire row 8
_____ Workbook: sample2.xlsx ( Using Excel 2007 32 bit )
Worksheet: Sheet1
Row\Col A B C D E F G H I 1Exchange Symbol Series/Expiry Open High Low Prev Close LTP 2NSE ACC EQ 1034 1068.75 988 998.45 998.45 3NSE ADANIENT EQ 123.05 135 118.2 120.9 120.9This entire row will be deleted 4NSE DLF EQ 235 235.8 203 207.8 207.8 5
Now I run this
After run:-Code:Sub conditionally_delete() Dim Wb1 As Workbook, Wb2 As Workbook, Ws1 As Worksheet, Ws2 As Worksheet Set Wb1 = Workbooks("sample1.xlsx") ' Workbooks.Open("C:\Users\WolfieeeStyle\Desktop\Upstox\STEP1U.xlsb") Set Ws1 = Wb1.Worksheets.Item("Sheet1") ' worksheet with string tab name of Sheet1 Set Wb2 = Workbooks("sample2.xlsx") ' Workbooks.Open("C:\Users\WolfieeeStyle\Desktop\1.xls") Set Ws2 = Wb2.Worksheets.Item(1) ' worksheet of first tab '1b Ranges Dim Rng1 As Range, Rng2 As Range Set Rng1 = Ws1.Range("A1").CurrentRegion: Set Rng2 = Ws2.Range("A1").CurrentRegion Dim Rng1A As Range, Rng2B As Range Set Rng1A = Rng1.Range("A1:A" & Rng1.Rows.Count & ""): Set Rng2B = Rng2.Range("B1:B" & Rng2.Rows.Count & "") ' : Set Rng2A = Rng2.Range("A1:A" & Rng2.Rows.Count & "") Rem 2 take each row in column A of 1.xlsx and compare it with each row in column B of of 2.xlsx Dim Rws As Long For Rws = Rng1.Rows.Count To 2 Step -1 If Rng1A.Item(Rws).Value = Rng2B.Item(Rws).Value Then ' Do nothing Else Rng2B.Item(Rws).EntireRow.Delete Shift:=xlUp End If Next Rws ' Wb1.Save ' Wb1.Close ' Wb2.Save ' Wb2.Close End Sub
_____ Workbook: sample1.xlsx ( Using Excel 2007 32 bit )
Worksheet: Sheet1
Row\Col A B C 1 2ACC 150 3DLF 120 4
_____ Workbook: sample2.xlsx ( Using Excel 2007 32 bit )
Worksheet: Sheet1
Row\Col A B C D E F G H I 1Exchange Symbol Series/Expiry Open High Low Prev Close LTP 2NSE ACC EQ 1034 1068.75 988 998.45 998.45 3NSE DLF EQ 235 235.8 203 207.8 207.8 4 5
I see no problem...
This is almost a repeat of previous posts , with similar data files and results ... nothing much new here...




Reply With Quote

Bookmarks