mykal66
02-13-2020, 07:48 AM
25972Hi
I have a workbook where as soon as the user enters a value column A (Range A3:A100) the value in Column B is Automatically Set to the value Cell D2 on a separate ADMIN tab and the value in Column E is Set to Cell E2 on thre same ADMIN Tab which works no problem. I was wondering if it is possible to do the same thing using VBA instead?
I have some code that looks at the range and displays messages boxes but can't find anything to replace the message boxes but cannot figure out how to replaces the messages boxes with value from the other tab.
Thanks
Mykal
Private Sub Worksheet_Change(ByVal Target As Range)Dim cel As Range
For Each cel In Range("A3:A100")
If cel.Value >= 1 / 1 / 2020 Then
MsgBox "Date" THIS SHOULD BE THE VALUE OF D2 on the admin tab
Else
MsgBox "Blank " THIS SHOULD BE THE VALUE OF E2 on the admin tab
End If
Next cel
End Sub
I have a workbook where as soon as the user enters a value column A (Range A3:A100) the value in Column B is Automatically Set to the value Cell D2 on a separate ADMIN tab and the value in Column E is Set to Cell E2 on thre same ADMIN Tab which works no problem. I was wondering if it is possible to do the same thing using VBA instead?
I have some code that looks at the range and displays messages boxes but can't find anything to replace the message boxes but cannot figure out how to replaces the messages boxes with value from the other tab.
Thanks
Mykal
Private Sub Worksheet_Change(ByVal Target As Range)Dim cel As Range
For Each cel In Range("A3:A100")
If cel.Value >= 1 / 1 / 2020 Then
MsgBox "Date" THIS SHOULD BE THE VALUE OF D2 on the admin tab
Else
MsgBox "Blank " THIS SHOULD BE THE VALUE OF E2 on the admin tab
End If
Next cel
End Sub