non blank cells

[hothhg]

I have a must requirement that if A1 has data, B1 should be either / or some other user defined text but should never be blank.
This is just an example, I would also like to extend the logic to complete list e.g. from A1 to A25 and so on.

Trying data validation and some macros already discussed in this forum but no luck.

Please help

 

[mumps]

Do you want to force data entry in column B as you are entering data in column A or do you want to check column B for blanks after all the data has been entered in column A?

 

[hothhg]

Dear Mumps,

I want to force data in column B as I enter data in column A e.g. * or / (any predefined text).

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter a value in column A.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Dim response As String
    If Target.Offset(0, 1) = "" Then
        Do
            response = InputBox("Please enter a value for cell " & Target.Offset(0, 1).Address(0, 0) & ".")
            If response <> "" Then
                Target.Offset(0, 1) = response
                Exit Do
            ElseIf response = "" Then
                MsgBox "You must enter a value for cell " & Target.Offset(0, 1).Address(0, 0) & ".", vbOKOnly, ""
            Else: Exit Do
            End If
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

 

[hothhg]

Thanks Mumps. This is enough for me to go ahead and play more.

 

[mumps]

You are very welcome.