Hücreye Kayıt Yapılamamışsa Makro Çalışmasın

[baydeniro]

Merhaba arkadaşlar. F sütunundaki bir hücreye kayıt yapılınca sağındaki hücrelere user name ve tarihi yazan bir kod gayet güzel çalışıyor. Ancak minik bir konu var : Hücreye kayıt gerçekleşmez ise user name ve tarihi yazılmaması nasıl sağlanır ? Örnek dosya ekte.

 

[asi_kral]

Merhaba arkadaşlar. F sütunundaki bir hücreye kayıt yapılınca sağındaki hücrelere user name ve tarihi yazan bir kod gayet güzel çalışıyor. Ancak minik bir konu var : Hücreye kayıt gerçekleşmez ise user name ve tarihi yazılmaması nasıl sağlanır ? Örnek dosya ekte.

Sayfada bulunan kodu bununla değiştirip dener misiniz_?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
If Target <> "" Then
Target.Offset(, 1) = Environ("UserName")
Target.Offset(, 2) = Now
End If: End If
End Sub

 

[baydeniro]

Sayın asi kral 1967 çok çok teşekkür ederim. Emeğinize, aklınıza sağlık, Allah uzun ömürler versin. Sağlıcakla kalın.

 

[asi_kral]

Sayın asi kral 1967 çok çok teşekkür ederim. Emeğinize, aklınıza sağlık, Allah uzun ömürler versin. Sağlıcakla kalın.

Kolay Gelsin.

 

[baydeniro]

Hücredeki veri silinirse User Name ve Tarih silinebilir mi ?

 

[Murat OSMA]

Sanırım kodların ne anlama geldiklerini de anlatmak gerekiyor.

Serdar Bey, yaptırdığınız işlemin tersini yapacaksınız.

Eğer F sütundaki satır dolu ise G sütununa kullanıcı adını H sütununa da tarih ve saati yazdırmak istiyorunuz.
Eğer F sütunundaki satır boş ise (silinirse) ne yapılması gerekir ?

Bunu aslında kodlara bakarsanız siz de yapabilirsiniz...

 

[asi_kral]

Hücredeki veri silinirse User Name ve Tarih silinebilir mi ?

Merhaba

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
If Target <> "" Then
Target.Offset(, 1) = Environ("UserName")
Target.Offset(, 2) = Now
Else
Target.Offset(, 1) = ""
Target.Offset(, 2) = ""
End If:End If
End Sub

Şeklinde deneyin.