Soru Hücreye Otomatik Doldurma

[Mustafa_SEL]

Arkadaşlar Selamlar
Excelde Belirlediğim bir hücreye mouse ile tıklattığımda hücreye otomatik veri girişi yapılmasını ve tekrar tıklayınca verinin silinmesini sağlayabilir miyiz

 

[Necdet]

Merhaba,

Otomatik veri girişinden kastınız? Örnekleyiniz.

Yine de bir örnek vereyim. Aşağıdaki kod A1 hücresine tıklandığında hücrenin dolu/boş olmasına bağlı olarak, günün tarihini yazar ya da siler.
Kodlar ilgili sayfanın kod bölümünde olmalı.
Sizin de amacınız böyle bir şey ise (birden fazla hücre de olabilir) kendinize uyarlayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    If Target.Value = "" Then
        Target.Value = Date
    Else
        Target.ClearContents
    End If
    
End Sub

 

[Mustafa_SEL]

Merhaba,

Otomatik veri girişinden kastınız? Örnekleyiniz.

Yine de bir örnek vereyim. Aşağıdaki kod A1 hücresine tıklandığında hücrenin dolu/boş olmasına bağlı olarak, günün tarihini yazar ya da siler.
Kodlar ilgili sayfanın kod bölümünde olmalı.
Sizin de amacınız böyle bir şey ise (birden fazla hücre de olabilir) kendinize uyarlayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    If Target.Value = "" Then
        Target.Value = Date
    Else
        Target.ClearContents
    End If
   
End Sub

Üstad benim yapmak istediğim excelde a1 hücresini seçtiğimde hücre içerisine herhangi bir veriyi girsin tekrar seçtiğimde veriyi silsin

 

[Mustafa_SEL]

B

Merhaba,

Otomatik veri girişinden kastınız? Örnekleyiniz.

Yine de bir örnek vereyim. Aşağıdaki kod A1 hücresine tıklandığında hücrenin dolu/boş olmasına bağlı olarak, günün tarihini yazar ya da siler.
Kodlar ilgili sayfanın kod bölümünde olmalı.
Sizin de amacınız böyle bir şey ise (birden fazla hücre de olabilir) kendinize uyarlayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Intersect(Target, [A1]) Is Nothing Then Exit Sub
    If Target.Value = "" Then
        Target.Value = Date
    Else
        Target.ClearContents
    End If
   
End Sub

Bu arada kodu çalıştıramadım

 

[Necdet]

B

Bu arada kodu çalıştıramadım

Kodlar ilgili sayfanın kod bölümünde olmalı.

demişim.

 

[Mustafa_SEL]

demişim.

Eyvallah hocam