Excel VBA - delete hidden column in mergence status
I want to delete the hidden columns with following scripts
Sub Macro7() For i = 65 To 80 temp = Chr(i) & ":" & Chr(i) Columns(temp).Select bTEST = Selection.EntireColumn.Hidden If bTEST = True Then Selection.Delete Shift:=xlToLeft i = i - 1 End If Next End Sub It can work when no mergence. But if D3:H3 cells are merged, and Colum E is hidden, the loop goes to Columns("E:E"), the property feeds back i still "False", in that case, the hidden column E can't be delet correctly. Pls help out, ^_^ seang -- Message posted from http://www.ExcelForum.com |
Excel VBA - delete hidden column in mergence status
Don't use merged cells ... that's the best advice I can give you.
In this particular case, you can probably solve your problem by skipping the Select step and using Columns(temp) instead of Selection in the next two steps. -- Vasant "seangu " wrote in message ... I want to delete the hidden columns with following scripts Sub Macro7() For i = 65 To 80 temp = Chr(i) & ":" & Chr(i) Columns(temp).Select bTEST = Selection.EntireColumn.Hidden If bTEST = True Then Selection.Delete Shift:=xlToLeft i = i - 1 End If Next End Sub It can work when no mergence. But if D3:H3 cells are merged, and Column E is hidden, the loop goes to Columns("E:E"), the property feeds back is still "False", in that case, the hidden column E can't be delete correctly. Pls help out, ^_^ seangu --- Message posted from http://www.ExcelForum.com/ |
Excel VBA - delete hidden column in mergence status
thank you!
As you said, the problem is the selection. Right now, i have change to column(temp).delete, it's working now. --- Message posted from http://www.ExcelForum.com/ |
All times are GMT +1. The time now is 11:15 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com