Zero Find And Delete

**jamer02** · 07-13-2011, 07:18 AM

Hey all,

I currently have this code:

Sub zerofind()
'
' zerofind Macro
'
Dim LastRow As Long, n As Long
     
    LastRow = Range("B65536").End(xlUp).Row
    For n = LastRow To 1 Step -1
        If Cells(n, 2).Value = 0 Then Cells(n, 2).EntireRow.Delete
        Next n
'
End Sub

Rather than deleting the entire row, I only want to delete the first three cells in that row.

Help would be greatly appreciated.

Thanks

Jamer

**mohd9876** · 07-13-2011, 07:22 AM

try this:

Cells(n, 2).Resize(1,3).Delete

**StephenR** · 07-13-2011, 07:22 AM

If you mean cols BCD:

If Cells(n, 2).Value = 0 Then Cells(n, 2).Resize(,3).Delete

Use Clear instead of Delete if you just want to remove the cells' contents.

**jamer02** · 07-13-2011, 08:27 AM

No I mean cols ABC

Cheers

**mohd9876** · 07-13-2011, 08:28 AM

in that case:

Cells(n, 1).Resize(1,3).Delete

**jamer02** · 07-13-2011, 08:34 AM

For some reason that is deleting colums BCD still :/

Any ideas?

**jamer02** · 07-13-2011, 08:35 AM

Actually, when I have another value in that row, it is moving that value accross.

Why is this do you think? And is there a solution?

**mohd9876** · 07-13-2011, 08:39 AM

you should use Clear instead of delete as StephenR said

Cells(n, 1).Resize(1,3).Clear

Zero Find And Delete

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Zero Find And Delete

Re: Zero Find And Delete

Re: Zero Find And Delete

Re: Zero Find And Delete

Re: Zero Find And Delete

Re: Zero Find And Delete

Re: Zero Find And Delete

Re: Zero Find And Delete

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions