On Nov 23, 12:14*pm, "Roger Govier"
wrote:
Hi K
Try
Sub DelCol()
* * Dim i As Long
* * For i = Range("I9:BF9").Columns.Count + 8 To 9 Step -1
* * * * If Cells(9, i).Value = "X" Then
* * * * * * Columns(i).EntireColumn.Delete
* * * * End If
* * Next
End Sub
You need to add 8 (columns(A:G)) to your Count and to your final value to
ensure it is the correct columns you are deleting
--
Regards
Roger Govier
"K" wrote in message
...
Hi all, *I am trying to delete EntireColumn of Range("I9:BF9") where
cell value in that range is "X". *I tried doing it with below code but
I its not deleting all the columns. *I think I might need to put
something where it say "i" in line "If Cells(9, i).Value = "X" Then"
and "Cells(9, i).EntireColumn.Delete". But I cant work it out. Please
can any friend can help me on this
Code I am using************
Sub DelCol()
For i = Range("I9:BF9").Columns.Count To 1 Step -1
If Cells(9, i).Value = "X" Then
Cells(9, i).EntireColumn.Delete
End If
Next
End Sub
__________ Information from ESET Smart Security, version of virus
signature database 5641 (20101123) __________
The message was checked by ESET Smart Security.
http://www.eset.com
__________ Information from ESET Smart Security, version of virus signature database 5641 (20101123) __________
The message was checked by ESET Smart Security.
http://www.eset.com- Hide quoted text -
- Show quoted text -
thanks lot Roger