VB for hidden columns, trying to get this working

[moncode]

Hi, I'm trying to get this VB working for hidden columns, it's working for rows (got it somewhere searching in google ) .... I'm not good at this ....


Sub Test1()
Dim x As Long, y As Long
x = ActiveCell.Row
y = ActiveCell.Column
Do
x = x + 1
Loop Until Cells(x, y).EntireRow.Hidden = False
Cells(x, y).Select
End Sub<strike></strike>

 

[Snakehips]

moncode,

Not sure what you are wanting to achieve here but the column variant of the above code would be...

Sub Test2()
Dim x As Long, y As Long
x = ActiveCell.Row
y = ActiveCell.Column
Do
y = y + 1
Loop Until Cells(x, y).EntireColumn.Hidden = False
Cells(x, y).Select
End Sub

Hope that helps.

 

[moncode]

Thank you for your response but it's not doing what I'm looking for.

Here's an example of my situation : A1 and B1 are merge with a text in it (let's say "Hello mom") then column "C" is hidden I need a VB code that will let me go to D1 and E1 that are also merge to write something down in these merge cell without stopping in C1.

I've tried Offset function but it doesn't ignore the hidden cells

Also I need to do that in several places in the spreadsheet and it's not always in the same place.

 

[Snakehips]

Try...

Sub Test3()
Dim y As Long
Set AC = ActiveCell


Do
    y = y + 1
    AC.Offset(0, y).Select
Loop Until AC.Offset(0, y).EntireColumn.Hidden = False


End Sub