Problems with functions
OOOPS. Here it si in plain text.Thanks! While ActiveCell.Value < "" ActiveSheet.[b2].Offset(saved_pos, 0).Range("a1").Select blnk = Excel.WorksheetFunction.Search("", ActiveCell.Value, 1) tmp = VBA.Strings.Mid(ActiveCell.Value, 1, blank) While ActiveCell.Value < "" ActiveCell.Offset(1, 0).Range("a1").Select blnk2 = Excel.WorksheetFunction.Search("", ActiveCell.Value, 1) tmp2 = VBA.Strings.Mid(ActiveCell.Value, 1, blnk2) If tmp2 = tmp Then Selection.EntireRow.Delete Shift:=xlUp End If Wend saved_pos = saved_pos + 1 Wend -- Manu Palao ------------------------------------------------------------------------ Manu Palao's Profile: http://www.excelforum.com/member.php...o&userid=16205 View this thread: http://www.excelforum.com/showthread...hreadid=276626 |
Hi
check in the VBA editor if the references are set correctly ('Tools - References') -- Regards Frank Kabel Frankfurt, Germany "Manu Palao" schrieb im Newsbeitrag ... OOOPS. Here it si in plain text.Thanks! While ActiveCell.Value < "" ActiveSheet.[b2].Offset(saved_pos, 0).Range("a1").Select blnk = Excel.WorksheetFunction.Search("", ActiveCell.Value, 1) tmp = VBA.Strings.Mid(ActiveCell.Value, 1, blank) While ActiveCell.Value < "" ActiveCell.Offset(1, 0).Range("a1").Select blnk2 = Excel.WorksheetFunction.Search("", ActiveCell.Value, 1) tmp2 = VBA.Strings.Mid(ActiveCell.Value, 1, blnk2) If tmp2 = tmp Then Selection.EntireRow.Delete Shift:=xlUp End If Wend saved_pos = saved_pos + 1 Wend -- Manu Palao --------------------------------------------------------------------- --- Manu Palao's Profile: http://www.excelforum.com/member.php...o&userid=16205 View this thread: http://www.excelforum.com/showthread...hreadid=276626 |
All times are GMT +1. The time now is 11:01 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com