• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Worksheet_Change table1 call

S

S P P

Member
Private Sub Worksheet_Change(ByVal Target As Range)
changing cell from table1 Column3 to column15 performs an action (call)
 

Attachments

  • SPP Worksheet_Change table1 call.xlsm
    16.4 KB · Views: 6
I got it like this if there is something to change it will help

>>> use code - tags <<<
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
       Dim tbl As ListObject
       Set tbl = ActiveSheet.ListObjects("Tabela1")
   
       Dim KeyCells As Range
       Set KeyCells = tbl.Range.Columns("C:Q")
      
    If Not Application.Intersect(KeyCells, ActiveSheet.Range(Target.Address)) Is Nothing Then
        call
      
End If
End Sub
 
Last edited by a moderator:
You must log in or register to reply here.
Back
Top