Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problem with matching pasted cells
OK, I have a userform where a user will input values. Then the program will
copy and paste row values from another workbook and write the input values in worksheets("Selection").Range("D4").End(xlDown) I have this macro that will look at one column "S" in a different worksheet("System") and if it doesn't match with values in ("D4").End(xlDown) it will delete the entire row. But it doesn't work it deletes every row even if they are similar values, curiously if I type in a value in Column "S" it works. This is what I have. Thanks in advance. Sub Redundancy() Dim iLastRow As Long Dim i As Long 'With Application CalcMode = .Calculation .Calculation = xlCalculationManual .ScreenUpdating = False 'End With iLastRow = worksheets("System").Cells(Rows.Count, "S").End(xlUp).Row For i = iLastRow To 2 Step -1 If IsError(Application.Match(worksheets("System").Cel ls(i, "S").Value, _ worksheets("Selection").Range("D4").End(xlDown), 0)) Then worksheets("System").Cells(i, "S").EntireRow.Delete Shift:=xlUp End If Next i If worksheets("System").Column("S:S").Value = "" Then worksheets("System").EntireRow.Delete End If With Application .ScreenUpdating = True .Calculation = CalcMode End With End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Problem with excel charts pasted into Word | Excel Discussion (Misc queries) | |||
Not all pasted text appears in cells | Excel Discussion (Misc queries) | |||
VBA: Pasted Cells Not Formatted | Excel Programming | |||
cell validation even for values pasted into cells | Excel Worksheet Functions | |||
how do I remove spaces from cells that were pasted | Excel Discussion (Misc queries) |