Prompt input box if value is true

[TORPIDO]

Hi all,

I've done couple of searches but couldn't exactly match what im looking for, appreciate if someone can help me and hope I don't **** anyone

im trying to get an input box to be promoted if column "A" value is "Ok" and myValue is then copied in relevant B column

so it looks like:

if A1 = "ok" then prompt inputbox and value entered is copied to B1

 

[TORPIDO]

hi Fluff, sorry for late response...

the offset part is returning error somehow;

below the exact what im using, can you please have a look, highlighted part is what seems to have issue;

I thought it could be due to column being locked, but checked it, it is not

Private Sub Worksheet_Change(ByVal Target As Range)
Me.Unprotect Password:="dxb20"
Target.Locked = True
Me.Protect Password:="dxb20"
If Target.CountLarge > 1 Then Exit Sub
If Target.Column = 7 Then
If LCase(Target.Value) = "post dated cheque" Then Target.Offset(, 7).Value = InputBox("Enter Due date")
End If
End Sub

 

[jasonb75]

See if this fixes it

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Me.Unprotect Password:="dxb20"
If Target.CountLarge > 1 Then Exit Sub
If Target.Column = 7 Then
    If LCase(Target.Value) = "post dated cheque" Then Target.Offset(, 7).Value = InputBox("Enter Due date")
End If
Target.Locked = True
Me.Protect Password:="dxb20"
Application.EnableEvents = True
End Sub

 

[TORPIDO]

worked like charm, thanks

 

[TORPIDO]

See if this fixes it

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Me.Unprotect Password:="dxb20"
If Target.CountLarge > 1 Then Exit Sub
If Target.Column = 7 Then
    If LCase(Target.Value) = "post dated cheque" Then Target.Offset(, 7).Value = InputBox("Enter Due date")
End If
Target.Locked = True
Me.Protect Password:="dxb20"
Application.EnableEvents = True
End Sub

hi,

I was trying the code, previously it was locking the cells after value is entered, now it is not; any reason?

 

[TORPIDO]

hi,

I was trying the code, previously it was locking the cells after value is entered, now it is not; any reason?

nvm, it fixed it self, seems it needed some time

 

[jasonb75]

If you mean that the cell where the due date is entered was not being locked then this slight edit will fix it, the code would not have locked it previously unless a subsequent attempt to edit that cell was made.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Me.Unprotect Password:="dxb20"
If Target.CountLarge > 1 Then Exit Sub
If Target.Column = 7 Then
    If LCase(Target.Value) = "post dated cheque" Then Target.Offset(, 7).Value = InputBox("Enter Due date")
    Target.Offset(, 7).Locked = True
End If
Target.Locked = True
Me.Protect Password:="dxb20"
Application.EnableEvents = True
End Sub