MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Sub KillStr() Dim Myrange As Range, DelRange As Range, C As Range Dim FirstAddress As String Dim MyStr, MyElm Columns("E:E").Select Selection.Delete Shift:=xlToLeft Columns("F:F").Select Selection.Delete Shift:=xlToLeft MyStr = Array("5GFI10", "5MAC20", "INT515", "5MAC15", "5MAC05", "5MAC10", "5TYC10", "5GVW10") Set Myrange = Intersect(ActiveSheet.UsedRange, Range("b2:b25000")) If Myrange Is Nothing Then Exit Sub Application.ScreenUpdating = False For Each MyElm In MyStr Set C = Myrange.Find(MyElm, Myrange.Cells(1), xlValues, xlPart) If Not C Is Nothing Then Set DelRange = C FirstAddress = C.Address Do Set C = Myrange.FindNext(C) Set DelRange = Union(DelRange, C) Loop While FirstAddress <> C.Address End If If Not DelRange Is Nothing Then DelRange.EntireRow.Delete Next MyElm
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Excel If Statement||3||26|
|Modification to nested formula needed||2||25|
|Formula fix for vlookup and iserror||3||26|
|Looking for UDF that would pick out part of a cell given the the delimiter and the position.||6||17|