Select next blank cell to right..!

[m0atz]

this really cant be that hard, however i'm having one of those days..

Part of my code is as follows;

        Cells(found.Row, 28).Select 
        
        'code not working correctly!!
        If ActiveCell.Value <> "" Then
        Selection.End(xlToRight).Select
        End If
        MsgBox ActiveCell.Address

There is a row of dates 15 cols wide, the start of which is in col 28. If there is a date already in this cell I just need to select the cell next to it (however my attempt at selection.end(xltoright).select hasnt worked because there are columns after this block of 15 with other data in it). If the cell is blank, i just need to select it.

Surely this is easier than I think it is..!!

 

[VoG]

You shouldn't need to select cells to work with them but this should do what you want:

For i = 1 To 15
    If Selection.Offset(, i).Value = "" Then
        Selection.Offset(, i).Select
        Exit For
    End If
Next i
MsgBox ActiveCell.Address

 

[m0atz]

That code works if there is a value in that cell, however if its blank it still jumps a cell to the right, can it the activecell just be selected in the instance?

(reason for the cells being selected at this stage is to ensure the right cell is being referenced to throw data in from userform at later stage)

Cheers

 

[m0atz]

wait - got it, changed from 1 to 15 into 0 to 15 and this looks at the activecell value.

thanks for your help VoG - as ever much appreciated.