How to have 2 Private Sub Worksheet_Changes

[mmctague]

HI currently have this code in my sheet, and would like to incorporate the second code into the same sheet.

When I just put them together neither will work.

Just not sure how to do it


Code 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With thisworkbook.Names("ActiveRow")
.Name = "ActiveRow"
.RefersToR1C1 = "=" & ActiveCell.Row
End With

End Sub

Code 2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    'another method is to have it show if a cell that is formatted as a date is selected...see below
    If Target.NumberFormat = "m/d/yy;@" Then
        CalendarFrm.Show
    End If
      
    'another method is using Select Case...see below
    Select Case Target.NumberFormat
        Case Is = "m/d/yy", "m/d/yyyy", "m/d/yy", "mm/dd/yy", "yyyy-mmm-dd", "dd-mmm-yy"
        CalendarFrm.Show
        'Case Else
        '    MsgBox "Not a valid date format!"
    End Select
End Sub

[Leith Ross]

Hello mmctague ,

I understand the second event macro but I don't follow the purpose of the first one. Can you explain a little more about what you want to achieve?

[FortySixAndTwo]

When you put them together, did it look like:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    'another method is to have it show if a cell that is formatted as a date is selected...see below
    If Target.NumberFormat = "m/d/yy;@" Then
        CalendarFrm.Show
    End If
      
    'another method is using Select Case...see below
    Select Case Target.NumberFormat
        Case Is = "m/d/yy", "m/d/yyyy", "m/d/yy", "mm/dd/yy", "yyyy-mmm-dd", "dd-mmm-yy"
        CalendarFrm.Show
        'Case Else
        '    MsgBox "Not a valid date format!"
    End Select
    
    With ThisWorkbook.Names("ActiveRow")
        .Name = "ActiveRow"
        .RefersToR1C1 = "=" & ActiveCell.Row
    End With


End Sub

It is hard to test this as none of us have the form to show but if you upload a workbook with non-sensitive data in it you may get the answer you need.

[mmctague]

The First code highlights the entire row that has the active cell.

The second code (when the cell is selected) will pull up a calendar that a date can be selected and then added to that cell.

I want to make both work

[mmctague]

Is there a way to make it onl look in certain cells?

[mmctague]

Here is what I need look in columns (G,J,K,N,R,S,V,Z,AA, & AB) and pull up the calendar all other column do nothing

[mmctague]

Thanks 46 & 2 that did what i needed.

Thank you very much!

[FortySixAndTwo]

Really? Well then, you are most welcome!

[FortySixAndTwo]

Sure, which cells?

[mmctague]

Here is the modified code that i have that works but only highlights the entire row if those columns are the active cell.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 7 Or Target.Column = 10 Or Target.Column = 11 Or Target.Column = 14 Or Target.Column = 18 Or Target.Column = 19 Or Target.Column = 22 Or Target.Column = 26 Or Target.Column = 27 Or Target.Column = 28 Then
    If Target.NumberFormat = "d/m;@" Then
          CalendarFrm.Show
    End If
    Select Case Target.NumberFormat
        Case Is = "m/d", "m/d", "m/d", "mm/dd", "mmm-dd", "dd-mmm"
        CalendarFrm.Show
    End Select
    
    With thisworkbook.Names("ActiveRow")
        .Name = "ActiveRow"
        .RefersToR1C1 = "=" & ActiveCell.Row
    End With

End If
End Sub

Need some help so that any cell will highlight the entire row