how to run these two macros?

[Krister]

i got 2 macro`s that i dont know how to run togheter.. The first macro is just posting date when i write something in column A and posting it in Column b. the sekund mocro is copying Cell F and posting it in Cell G
the first macro is

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    'disable events to stop changes made by this macro re-trigering it
    Application.EnableEvents = False
    'test if changed cell is a number
    If IsNumeric(Target.Value) Then
        'only add a date if no date in column I
        If Not IsDate(Range("B" & Target.Row).Value) Then
            Range("b" & Target.Row).Value = Format(Date, "YYYYDDMM")
        End If
    End If
    're-enable events
    Application.EnableEvents = True
End If
Exit Sub

'error handler
ErrHnd:
Err.Clear
're-enable events
Application.EnableEvents = True
End Sub

This under here is the 2 one

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Target.Column = 1 Then
      Target.Offset(, 6).Value = Target.Offset(, 5).Value
   End If
End Sub

 

[Fluff]

Cross posted how to make them work togheter" Marco`s "

While we do allow Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules). This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered elsewhere.

 

[Fluff]

Hi & welcome to MrExcel.
Try adding the line in blue to your first code

    If IsNumeric(Target.Value) Then
        Target.Offset(, 6).Value = Target.Offset(, 5).Value
        'only add a date if no date in column I
        If Not IsDate(Range("B" & Target.Row).Value) Then
            Range("b" & Target.Row).Value = Format(Date, "YYYYDDMM")
        End If
    End If

 

[Krister]

Hi & welcome to MrExcel.
Try adding the line in blue to your first code

    If IsNumeric(Target.Value) Then
        Target.Offset(, 6).Value = Target.Offset(, 5).Value
        'only add a date if no date in column I
        If Not IsDate(Range("B" & Target.Row).Value) Then
            Range("b" & Target.Row).Value = Format(Date, "YYYYDDMM")
        End If
    End If

This was a very clever way to do it.. more clever way then i tought of! amazing, and tank you so much for that!

 

[Fluff]

You're welcome & thanks for the feedback.