• 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.

Combine 2 Worksheet Change Events to one

D

Dokat

Member
Hi,

I have 2 worksheet change events on same tab. How can i combine 2 codes into one. If i keep them seperate i get Ambiguous Name error.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:N")) Is Nothing Then
Call Module1.UpdateValueStates
Call Module2.UpdateValueCategory
Call Module3.UpdateValueTime
End If
End Sub

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Set ws = Worksheets("Source Data")
Set Target = ws.Range("BD1")
    If Target = "1" Then
        ws.Range("BD4:BD11").NumberFormat = "$0.0,,"
    ElseIf Target = "2" Then
        ws.Range("BD4:BD11").NumberFormat = "0.0%"
    End If
End Sub
 
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:N")) Is Nothing Then
Call Module1.UpdateValueStates
Call Module2.UpdateValueCategory
Call Module3.UpdateValueTime
End If

Set ws = Worksheets("Source Data")
Set Target = ws.Range("BD1")
    If Target = "1" Then
        ws.Range("BD4:BD11").NumberFormat = "$0.0,,"
    ElseIf Target = "2" Then
        ws.Range("BD4:BD11").NumberFormat = "0.0%"
    End If
End Sub
 
You must log in or register to reply here.
Back
Top