yazınca otomatik silme

[gurbuzs]

merhaba
ekteki tabloda seçim kısmına 1 yazmak gerekiyor.
örneğin elmaya 1 yazdım, sonra armuta 1 yazdığımda elmadaki 1 silinmesi lazım.
şart sadece bir tane 1 olabilir.
konu hk yardımcı olabilir misiniz.

dosya ekte

 

[Asri]

Sayfanın kod bölümüne yapıştırıp deneyiniz.

Sayfa adı sağ tuş / kodu görüntüle/ yapıştır.

Makroların etkin olması gerekiyor.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
    If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    veri = Target.Value
    sonsatir = Cells(Rows.Count, "D").End(3).Row
    Range("C4:C" & sonsatir).ClearContents
    Target.Value = veri
    Application.EnableEvents = True
End Sub

 

[gurbuzs]

çalışmadı maalesef, ekte dediğiniz gibi yapıp dosyayı ekledim

 

[gurbuzs]

yanlış yere kopyalamışım. şimdi oldu.. çok teşekkürler

 

[Asri]

çalışmadı maalesef, ekte dediğiniz gibi yapıp dosyayı ekledim

Dosya eklendi.

Özellikle belirtmiştim, Sayfa nın kod bölümüne eklenecekti.
Siz module e eklemişsiniz.