Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Deleting cells using VB (macro)
Hi,
Try the following: Sub test() Dim rgToSearch As Range, cell As Range, rgResult As Range Dim strToSearchFor As String '---------- CHANGE HERE ------------------------------------------------ Set rgToSearch = ActiveSheet.Range("A1:A10") 'Range to search strToSearchFor = "C" 'String to search for '---------------------------------------------------------------------------- 'Find non-matching cells For Each cell In rgToSearch.Cells If cell.Text < strToSearchFor Then 'If no match If rgResult Is Nothing Then 'Add the cell to the result range Set rgResult = cell Else Set rgResult = Application.Union(rgResult, cell) End If End If Next cell 'Process the result range If Not rgResult Is Nothing Then 'rgResult.ClearContents 'clear the contents of these cells rgResult.Delete xlShiftUp 'delete End If End Sub -- Regards, Sébastien <http://www.ondemandanalysis.com "maia" wrote: Hi. I have a macro that deletes cells from A1 till A10. What I'd like the macro to do for me is if the macro finds a specific cell name (string), then it doesn't delete the cells having that string. If it doesn't, then delete every cell not cointaining that scheme. Example: If I have the letter "C" in cell A2 and A7, I'd like the macro to delete every other cell, ranging from A1 till A10 (excluding A2 and A7 that has the "C" string). Best regards |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
MACRO HELP - deleting rows containing a range of blank cells | Excel Discussion (Misc queries) | |||
Deleting cells in Macro | Excel Programming | |||
deleting unused cells / getting rid of inactive cells | Excel Discussion (Misc queries) | |||
Macro For Deleting Cells Containing A Number | Excel Programming | |||
Deleting Hyphens or Dashes from multiple cells without deleting the remaining content | Excel Programming |