Auto refresh data

[rakupareek]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
    Dim cell As Range
    Dim dataSheet As Worksheet
    Dim selectedValue As String

    Set rng = Me.Range("A4:A22")
    Set dataSheet = ThisWorkbook.Sheets("Data Input Sheet")
    If Not Intersect(Target, rng) Is Nothing Then
    Application.EnableEvents = False
      
For Each cell In Intersect(Target, rng)
            If cell.Value = "House Rent Allowance" Then
            Me.Range("P" & cell.Row).Value = dataSheet.Range("F14").Value
            ElseIf cell.Value = "Children Edu Allowance" Then
            Me.Range("P" & cell.Row).Value = dataSheet.Range("F18").Value
            ElseIf cell.Value = "Children Hostel Allowance" Then
            Me.Range("P" & cell.Row).Value = dataSheet.Range("F19").Value
            Else
            Me.Range("P" & cell.Row).ClearContents
            End If
        Next cell
        Application.EnableEvents = True
    End If
    Exit Sub
End Sub

Using this VBA but when I change some value in Data Input Sheet then data does not refresh.
Can possible to refresh data automatic when I change any value

 

[RoryA]

It should if the values match the ones in your code, unless events have become disabled somehow. Try running this routine and see what the message says:

sub checkevents()
if application.enableevents then 
msgbox "Events are enabled"
else
msgbox "Events are disabled"
end if
end sub

 

[rakupareek]

Massage shows Events are enabled

 

[RoryA]

Wait, are you clearing the data from column A, then column P? You don't need to touch column P yourself - the code does that. If you do it after changing column A, then P will all remain blank until you change data in A again.

 

[rakupareek]

Sorry massage shows events are disable

 

[RoryA]

Then that is the problem - the code isn't even running. Restart Excel then try the code again.

 

[rakupareek]

Even not working after restart

 

[RoryA]

If events are still disabled then you must have some other code that is disabling them.

 

[rakupareek]

My sheet is password protected pasword is 1234
Is this stopping the code run

 

[RoryA]

You would get an error if that were the problem.

 

[rakupareek]

If events are still disabled then you must have some other code that is disabling them.

How to get which code disabling this code