Combining two codes

[ipbr21054]

Evening,

I have this code in use,

Private Sub Worksheet_Change(ByVal Target As Range)    With Target
        If .Column = 7 Then Exit Sub
        If .Count = 1 And Not .HasFormula Then
            Application.EnableEvents = False
            .Value = UCase(.Value)
            Application.EnableEvents = True
        End If
    End With
End Sub

Of which i would like to merge with this code,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)    Dim myStartCol As String
    Dim myEndCol As String
    Dim myStartRow As Long
    Dim myLastRow As Long
    Dim myRange As Range


    If Target.Cells.Count > 1 Then Exit Sub
    
    Application.ScreenUpdating = False
    
'   *** Specify columns to apply this to ***
    myStartCol = "A"
    myEndCol = "G"


'   *** Specify start row ***
    myStartRow = 4
    
'   Use first column to find the last row
    myLastRow = Cells(Rows.Count, myStartCol).End(xlUp).Row
    
'   Build range to apply this to
    Set myRange = Range(Cells(myStartRow, myStartCol), Cells(myLastRow, myEndCol))
    
'   Clear the color of all the cells in range
    myRange.Interior.ColorIndex = 6
    
'   Check to see if cell selected is outside of range
    If Intersect(Target, myRange) Is Nothing Then Exit Sub
    
'   Highlight the row and column that contain the active cell
    Range(Cells(Target.Row, myStartCol), Cells(Target.Row, myEndCol)).Interior.ColorIndex = 8
    Target.Interior.Color = vbGreen
    Application.ScreenUpdating = True


End Sub

I know it should not be hard but i am finding it hard for some reason.

If you could advise Thanks very much.

 

[rlv01]

Not much info about your intent to go on, but maybe this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim myStartCol As String
    Dim myEndCol As String
    Dim myStartRow As Long
    Dim myLastRow As Long
    Dim myRange As Range


    With Target
        If .Cells.Count > 1 Then
            Exit Sub
        End If
        If .Column <> 7 Then
            If .Count = 1 And Not .HasFormula Then
                Application.EnableEvents = False
                .Value = UCase(.Value)
                Application.EnableEvents = True
            End If
        End If
    End With


    Application.ScreenUpdating = False


    '   *** Specify columns to apply this to ***
    myStartCol = "A"
    myEndCol = "G"




    '   *** Specify start row ***
    myStartRow = 4


    '   Use first column to find the last row
    myLastRow = Cells(Rows.Count, myStartCol).End(xlUp).Row


    '   Build range to apply this to
    Set myRange = Range(Cells(myStartRow, myStartCol), Cells(myLastRow, myEndCol))


    '   Clear the color of all the cells in range
    myRange.Interior.ColorIndex = 6


    '   Check to see if cell selected is outside of range
    If Intersect(Target, myRange) Is Nothing Then Exit Sub


    '   Highlight the row and column that contain the active cell
    Range(Cells(Target.Row, myStartCol), Cells(Target.Row, myEndCol)).Interior.ColorIndex = 8
    Target.Interior.Color = vbGreen
    Application.ScreenUpdating = True
End Sub

 

[ipbr21054]

I will check it out tomorrow.

I need to merge the two together.
I tried a few options but the more I tried the more end with without with end if block if messages etc.