Loop my Change Event

[WaterSkiExcel]

I'm new to the VBA side of excel. I need to auto-populate the "date" and "username" into columns A and B when a value is typed into column G. I'm able to do this for one line (something is typed in G13, then A13 and B13 populate) using this code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$13" Then
Range("A13").Value = Date
Range("B13").Value = UCase(Application.UserName)
End If
End Sub

How do I make this loop so anytime a value is typed into a cell in column G the corresponding cells in column A and B auto-populate?

Thanks

 

[mikerickson]

Something like

With Target.Cells(1, 1)
    If .Column = 7 Then
        With .EntireRow
            .Range("A1") = Date
            .Range("B1") = Application.UserName
        End With
    End If
End With

 

[K e v i n]

Hi,

Try the following - note the disable events

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Column = 7 Then
        With Workbooks(ThisWorkbook.Name).Worksheets("Sheet1")
        Application.EnableEvents = False
            Target.Offset(0, -6) = Date
            Target.Offset(0, -5) = UCase(Application.UserName)
            Application.EnableEvents = True
        End With
    End If
    
End Sub

 

[WaterSkiExcel]

Thanks to both mikerickson and K e v i n. They both worked well.