Kod'da Birleştirme ve Düzenleme

[1Al2Ver]

Merhaba,

Sayfanın kod'una aşağıdaki 2 kodu yazınca, doğal olarak çakışma oluyor,

İsteğim;

1) Bu 2 kodun tek kod olarak birleşmesi,

2) Üstteki kod'da "UserName" yerine StatusBar'da yazan ismi yada "ANASAYFA" isimli sayfada B10'da (StatusBar'da yazan ile aynıdır) yazan ismi alması,

Teşekkür ederim.

[COLOR="blue"]Private Sub Worksheet_Change(ByVal Target As Range)[/COLOR]
If Not Intersect(Target, [A5:T300]) Is Nothing Then
Cells(Target.Row, "X") = Format(Now, "dd/mmmm/yyyy - hh:mm:ss") _
& " - " & Environ("[COLOR="Red"]UserName[/COLOR]")
End If
End Sub

[COLOR="Blue"]Private Sub Worksheet_Change(ByVal Target As Range)[/COLOR]
    If Intersect(Target, Range("H5:H125")) Is Nothing Then Exit Sub
    With Target
        If IsDate(.Value) = True Then
           .Offset(0, 2).Resize(1, 2).ClearContents
        End If
 End With
End Sub

 

[PLİNT]

Merhaba
Aşağıdaki gibi iki şekilde olabilir

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A5:T300]) Is Nothing Then
Cells(Target.Row, "X") = Format(Now, "dd/mmmm/yyyy - hh:mm:ss") _
& " - " & Application.StatusBar
 If Not Intersect(Target, Range("H5:H125")) Is Nothing Then
    With Target
        If IsDate(.Value) = True Then
           .Offset(0, 2).Resize(1, 2).ClearContents
        End If
 End With
End If
End If
End Sub

veya "H" sütununa sadece tarih girildiğinde "x" sütununa veri yazılacaksa

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A5:T300]) Is Nothing And Intersect(Target, Range("H5:H125")) Is Nothing Then
Cells(Target.Row, "X") = Format(Now, "dd/mmmm/yyyy - hh:mm:ss") _
& " - " & Application.StatusBar
End If
 If Not Intersect(Target, Range("H5:H125")) Is Nothing Then
    With Target
        If IsDate(.Value) = True Then
           .Offset(0, 2).Resize(1, 2).ClearContents
        End If
 End With
End If
End Sub

 

[1Al2Ver]

Sayın PLİNT merhaba,

Çözüm ve duyarlığınız için çok çok teşekkür ederim, sağ olun.

Saygılarımla.