I am trying to generate a message to the user as follows:
Each time a value is entered in any cell in range W8:W140 (e.g W10), and the row (row 10) has a value in column G (cell G10)
then a msgbox will popup with the value of the cell in column G (cell G10)
Is this possible?
Try this:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("W8:W140")) Is Nothing Then If Not IsEmpty(Range("G" & Target.Row)) Then MsgBox (Range("G" & Target.Row).Value) End If End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Dim rIntersect As Excel.Range Set rIntersect = Intersect(Target, Range("D1:D100")) If Not rIntersect Is Nothing Then If Cells(Target.Row, 7).Value <> "" Then MsgBox "VALUE IN G IS " & Cells(Target.Row, 7).Value End If End If End Sub
Hope this helps
Sometimes its best to start at the beginning and learn VBA & Excel.
Please dont ask me to do your work for you, I learnt from Reading books, Recording, F1 and Google and like having all of this knowledge in my head for the next time i wish to do it, or wish to tweak it.
Available for remote consultancy work PM me
i used D for my inspection range, not W too lazy to scroll over
Both solutions are working when I enter a value. many thanks!
the problem is when I select a cell in column W and hit the delete button to clear the value, I get a Run Time Error '1004' Application-defined or object defined error on the msgbox line
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks