Delete Entire Column
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 |
Delete Entire Column
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 |
Delete Entire Column
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 |
All times are GMT +1. The time now is 01:41 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com