saat kodu verilen hücrenin içeriğinin silinmesi

[bennidetto]

Değerli üstadlarım.....
çalışma sayfama bir kod yazdım

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("a1:a10")) Is Nothing Then Exit Sub
bugun = Format(Now, "hh:mm;@")
Target.Offset(0, 1) = bugun
End Sub

belirli aralıklar arasına girilen değerde yanına saat yazyor....Saati yazan hücre aralıklarını kilitledim(Hücreleri Biçimlendir menüsünden)....değer girdiğim hücreleri sildiğim anki zamanı zamanı gösteriyor...Bu problemi ortadan kaldırmak için kod düzenimde ne gibi revize yapabilirim....
Desteklerinizi bekliyorum....

Saygılarımla...
İyi çalışmalar....

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Intersect(Target, Range("a1:a10")) Is Nothing Then Exit Sub
    If Target = Empty Then Exit Sub
    bugun = Format(Now, "hh:mm;@")
    Target.Offset(0, 1) = bugun
End Sub

 

[bennidetto]

Sayın Hamitcan
Yazmış olduğunuz kodu denedim.hücre içeriğini sildikten sona yine saat veriyor...

 

[Necdet]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("a1:a10")) Is Nothing Then Exit Sub
If Target = "" Then
Target.Offset(0, 1) = ""
Else
Target.Offset(0, 1) = Format(Now, "hh:mm:ss")
End If
End Sub

 

[bennidetto]

merhaba

Sayın hocam çok teşekkür ederim...
Emeğinize sağlık....

Saygılarımla
İyi Çalışmalar.....

 

[bennidetto]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("a1:a10")) Is Nothing Then Exit Sub
If Target = "" Then
Target.Offset(0, 1) = ""
Else
Target.Offset(0, 1) = Format(Now, "hh:mm:ss")
End If
End Sub

Sayın hocam yazdığınız kodda("a1:a10")arasında hücreleri tek tek silmem gerekli toplu silme işlemi yapamıyorum ve b1:b10 arasına yazdırılan saat hücrelerini koruma ile kilitleyemiyorum...
Yardımcı olurmusunuz...
Teşekkürler...

Saygılarımla
İyi çalışmalar

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo Son
If Intersect(Target, Range("a1:a10")) Is Nothing Then Exit Sub
If Target = "" Then
Target.Offset(0, 1) = ""
Else
Target.Offset(0, 1) = Format(Now, "hh:mm:ss")
End If
Exit Sub
Son:
Range("A1:B10").ClearContents
End Sub

 

[bennidetto]

Teşekkür ederim hocam...
Saygılarımla....
İyi çalışmalar....
:dua: :dua: :dua: :dua:

 

[bennidetto]

Merhaba

Sayın hocam destekleri için tekrardan teşekkür ederim...
Belki fazla yük olacam size ama benim kafama takılan bir nokta var.
Ben "a1:a10" arasını "d1:d45"olarak değiştirdim değer girdiğimde ise e1:e45 arasına saati yazıyor.buna ilave olarak "g1:g45" arasına değer girmek istiyorum fakat bu sefer de f1:f45 arasına saat yazmasını istiyorum...Uğraştım fakat bir türlü başaramadım..Yardımcı olurmusunuz....

Saygılarımla....
İyi çalışmalar....

 

[Necdet]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo Son
If Intersect(Target, Range("D1:D45, G1:G45")) Is Nothing Then Exit Sub
If Target.Column = 4 Then
j = 1
Else
j = -1
End If
If Target = "" Then
Target.Offset(0, j) = ""
Else
Target.Offset(0, j) = Format(Now, "hh:mm:ss")
End If
Exit Sub
Son:
Range("D1:D45, G1:G45").ClearContents
End Sub

 

[bennidetto]

Merhaba
Teşekkür ederim sayın necdet hocam....

Saygılarımla....
İyi Çalışmalar....