x2 codes to run simultaneously help

[Patriot2879]

Hello the below code I hope you can help, I have the 2 codes below that need to run simultaneously, but at moment they don't, this is to work on a cell value change, the last code only works if you press play. hope you can help please. thex2 codes below are placed in sheet 8 (SMART Locate)

Private Sub Worksheet_Change(ByVal Target As Range)

Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Range("H:h"), Target)
xOffsetColumn = -6
If Not WorkRng Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In WorkRng
        If Not VBA.IsEmpty(Rng.Value) Then
            Rng.Offset(0, xOffsetColumn).Value = Now
            Rng.Offset(0, xOffsetColumn).NumberFormat = "dd/mm/yyyy hh:mm"
        Else
            Rng.Offset(0, xOffsetColumn).ClearContents
        End If
    Next
    Application.EnableEvents = True
End If
End Sub




Private Sub Initialise()

Dim emptyrow As Long
With ThisWorkbook.Sheets("SMART Locate")
    emptyrow = .Cells(Rows.Count, "H").End(xlUp).Row + 1
        .Cells(emptyrow, 10).Value = Environ("USERNAME")
      End With
End Sub

 

[davesexcel]

Only 1 code runs at a time, you can have the other code run inside the first code, but you have to call it.

 

[Patriot2879]

Hi how do I do that please?

 

[davesexcel]

call Initialise

Place it in the first code where you want that code to run.

 

[Patriot2879]

Sorry I am new to this. Where do I place this in the first code please? Does the rest stst the same?

 

[davesexcel]

Maybe explain what the codes are supposed to do.

 

[Joe4]

See here:
https://www.excelcampus.com/library/vba-call-statement-run-macro-from-macro/
https://www.automateexcel.com/vba/call-macro/

 

[davesexcel]

You can add the line to your original code to add the username to the range 10 cells over from the target(column R)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim WorkRng As Range
    Dim Rng As Range
    Dim xOffsetColumn As Integer

    Set WorkRng = Intersect(Range("H:H"), Target)
    xOffsetColumn = -6

    If Not WorkRng Is Nothing Then

        Application.EnableEvents = False

        For Each Rng In WorkRng

            If Not VBA.IsEmpty(Rng.Value) Then

                Rng.Offset(0, xOffsetColumn).Value = Format(Now, "dd/mm/yyyy hh:mm")
                Cells(Rng.Row, "R").Value = Environ("USERNAME")
            Else

                Rng.Offset(0, xOffsetColumn).ClearContents
                Cells(Rng.Row, "R").Value = ""
            End If

        Next

        Application.EnableEvents = True

    End If

End Sub

 

[Patriot2879]

Thank you i shall try this on Monday. Many thanks