VBA affecting other columns

[Ruben_A]

Hi,
Could someone please help me fix this issue, so I did a VBA code that is below but I just want the VBA code to ONLY take affect in column's D, E, and F but the VBA code is affecting every column. How can I fix this?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Oldvalue As String
Dim Newvalue As String
Application.EnableEvents = True
On Error GoTo Exitsub
If Range("D999:E999:F999").EntireColumn.Show Then
  If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
    GoTo Exitsub
  Else: If Target.Value = "" Then GoTo Exitsub Else
    Application.EnableEvents = False
    Newvalue = Target.Value
    Application.Undo
    Oldvalue = Target.Value
      If Oldvalue = "" Then
        Target.Value = Newvalue
      Else
        If InStr(1, Oldvalue, Newvalue) = 0 Then
            Target.Value = Oldvalue & ", " & Newvalue
      Else:
        Target.Value = Oldvalue
      End If
    End If
  End If
End If
Application.EnableEvents = True
Exitsub:
Application.EnableEvents = True
End Sub

 

[davesexcel]

You need to tell if what columns are the target columns

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub    ' this stops code error if more than one cell is changed at once

    If Not Application.Intersect(Target, Me.Range("D:F")) Is Nothing Then    ' indicates the Target range
        MsgBox "You have changed " & Target.Address & " to " & Target'your code here
    End If

End Sub

 

[Ruben_A]

You need to tell if what columns are the target columns

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub    ' this stops code error if more than one cell is changed at once

    If Not Application.Intersect(Target, Me.Range("D:F")) Is Nothing Then    ' indicates the Target range
        MsgBox "You have changed " & Target.Address & " to " & Target'your code here
    End If

End Sub

Thank you so much! that actually worked...really appreciate the help

 

[Joe4]

Good to hear you got the solution.

In the future, when marking a post as the solution, please mark the original reply that actually contains the solution (not your own post acknowledging that there is a solution).
I went ahead and corrected that for you.

 

[Ruben_A]

Good to hear you got the solution.

In the future, when marking a post as the solution, please mark the original reply that actually contains the solution (not your own post acknowledging that there is a solution).
I went ahead and corrected that for you.

Got it, I recently signed up here. Thank you! and you are?

 

[Joe4]

Got it, I recently signed up here. Thank you! and you are?

An MVP, Moderator, and Admin of the site.

 

[Ruben_A]

An MVP, Moderator, and Admin of the site.

Oh nice! nice to meet you, good to know.

 

[Joe4]

Welcome aboard!

Hope you find this site helpful.