Define Range using VBA

[farhad]

Good Day

I have the following which writes to a specific cell. I would like to extend the range for column H
Thanks

Sub Meet()
 If ThisWorkbook.Sheets(1).Range("H15:H15").Value = "" Then
            MsgBox "Please Enter a Meeting Number"
            Exit Sub
End If
End Sub

 

[MARK858]

Your macro doesn't write to a cell, it displays a message box if the cell in H15 is blank/has an empty string.
Please describe in detail what you want the code to do.

 

[farhad]

Hi Mark

I would like to code to extend to the entire column which is column H as I entering a row each time.
The current code work on the basis, of when a cell in column H is not filled in a message appears to insert a value. Once the value is inserted in column H the next column I auto-fills another number works fine. The current code points to Cell reference H15. I would like to extend this to H1000.

 

[mikerickson]

Try

Sub CheckValues()
    Dim oneCell as Range
    Dim uiEntry as Variant

    For Each oneCell in Range("H15:H1000")
        If oneCell.Value = vbNullString Then
            uiEntry = Application.InputBox("Enter the value for " & oneCell.Address, type:=2)
            If uiEntry = False Then Exit Sub
            oneCell.Value = uiEntry
        End If
    Next oneCell
End Sub

 

[farhad]

HI Mike

This works, however I don't want it to prompt to enter cells in Column H.
I want to work on basis of when I enter a new row and if column H is blank then the user must enter a value

 

[mikerickson]

HI Mike

This works, however I don't want it to prompt to enter cells in Column H.
I want to work on basis of when I enter a new row and if column H is blank then the user must enter a value

The current code points to Cell reference H15. I would like to extend this to H1000.

I don't understand the problem. Run the macro and it checks H15:H1000 as requested.