iki kodu birleştirme

[TUNCA ERSİN]

Sy. Hocalarım ;
aşağıdaki iki tane makro kodu nasıl birleştire biliriz. DÖNÜŞ_EVRAK_NO makrosunu Private Sub Worksheet_Change(ByVal Target As Range) makrosunun içine nasıl yerleştire biliriz. Teşekkür ederim.

Sub DÖNÜŞ_EVRAK_NO()
For a = 1 To Cells(5000, 2).End(xlUp).Row
Cells(a, 1) = Format(Cells(a, 2).Value, "DDMMYYhhnn") & "" & Right(Cells(a, 3).Value, 10) & "" & Left(Cells(a, 9).Value, 3)
Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then
a = Selection.Rows.Count
b = Selection.Row
For i = b To b + a - 1
Cells(i, "M") = Now
Next
Else
Target.Offset(0, 13) = Date
End If
End Sub

 

[Trilenium]

Private Sub Worksheet_Change(ByVal Target As Range)
DÖNÜŞ_EVRAK_NO
End Sub

 

[TUNCA ERSİN]

sy. @Trilenium ;
hocam yapamadım zahmet olmazsa tam yazsanız olur mu ?

 

[TUNCA ERSİN]

sy. @Trilenium ;
hocam şu şekilde yapıldı.
teşekkür ederim ilginizden dolayı

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then
a = Selection.Rows.Count
b = Selection.Row
For i = b To b + a - 1
Cells(i, "M") = Now
For a = 1 To Cells(5000, 2).End(xlUp).Row
Cells(a, 1) = Format(Cells(a, 2).Value, "DDMMhhnn") & "" & Right(Cells(a, 3).Value, 10) & "" & Left(Cells(a, 9).Value, 3)
Next
Next
Else
Target.Offset(0, 13) = Date

End If
End Sub

 

[TUNCA ERSİN]

sy. hocalarım ;
aşağıda ki kodun içine kopyala yapıştır yapınca çalışacak düşeyara eklene bilir mi ?
E sütunu koşuluna göre S sütununda arayacak T sütunundan veriyi alacak L sütununa getirecek U sütunun da arayacak N sütununa getirecek. teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then
a = Selection.Rows.Count
b = Selection.Row
For i = b To b + a - 1
Cells(i, "M") = Now
For a = 1 To Cells(5000, 2).End(xlUp).Row
Cells(a, 1) = Format(Cells(a, 2).Value, "DDMMhhnn") & "" & Right(Cells(a, 3).Value, 10) & "" & Left(Cells(a, 9).Value, 3)
Next
Next
Else
Target.Offset(0, 13) = Date

End If
End Sub