delete=açıklama silinsin.

[sensizsoldum]

Merhaba,
c sütundaki ilgili hücrelere delete ile sildiğim de açıklama kalıcı oluyor,
bunun için butonsuz delete ile sildiğim hücrede açıklama var ise silinsin itiyorum. yardımcı olabilir misiniz.
iyi çalışmalar dilerim.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub auto_open()
Application.OnKey "{Delete}", "Sil"
End Sub
'--------------------
Sub auto_close()
Application.OnKey "{Del}"
End Sub
'--------------------
Sub Sil()
[c1:c100].ClearComments
End Sub

 

[sensizsoldum]

Merhaba seyit bey,
kodları denedim istediğim gibi değil, sanırsam yanlış anlaşılma söz konusu.
c sütündan haerhangi bir hücreye delete tuşunu bastığımda, içerik siliniyor, normalde olduğu gibi, bu hücrede açıklama var ise onunda silinmesini istiyorum. butonsuz, olmalı.

iyi çalışmalar dilerim.,

 

[huseyin610]

Merhaba,

Bu şekilde deneyiniz.

İyi çalışmalar.

 

[sensizsoldum]

Merhaba Hüseyin bey,
teşekkür ederim istediğim gibi oldu fakat, diğerr kodlarla çakışma oluyor.
normal bir kod düzenleyebilirmisiniz. yada örnek çalışmaya göz atabilir misiniz.

 

[huseyin610]

İyi çalışmalar.

 

[sensizsoldum]

Teşekkür ederim hüseyin bey vakit ayırabilirseniz 2 küçük şey daha rica etmek istiyorum. ilgilenebilir misiniz.
çalışma sayfasından c sütundaki hücrelere çift tıkladığımız da otomatik combobox gelmekte, ordan girdiğimiz müşteri adını seçerken, enterle seçmedikten sonra, açıklama gelmiyor, ben hangi müşteri adında işlem yapacak isem onu çift tıklama ile seçmek istiyorum. bu şekilde uyarlayabilmemiz mümkün mü ?
birde açılan comboboxta binlerce boş yer va,r aşağı doğru indiğimizde, sadece veri olan hücreleri göstermemiz mümkünmü, (şartlar sayfasında veriler çoğalabilir... şu an için maximum 100 tane müşteri olabilir)
teşekkür ederim elinize bilginize sağlık. iyi çalışmalar dilerim.

 

[Korhan Ayhan]

Merhaba,

İlk isteğiniz için ÇALIŞMA isimli sayfanızın kod bölümüne aşağıdaki koduda ilave edin.

Private Sub Emre_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    cmbEmre.Visible = False
    ActiveCell.Offset(1, 0).Select
    On Error Resume Next
    Dim bul As Range: Dim i As Long
    For i = 3 To Sayfa2.Range("B100").End(3).Row
    For Each bul In Sayfa1.Range("C3:C" & Range("C65536").End(3).Row)
    If bul.Value = Sayfa2.Cells(i, 2).Value Then
    bul.AddComment
    bul.Comment.Text Text:=Sayfa2.Cells(i, 3).Value
    End If: Next bul: Next i: i = Empty: Set bul = Nothing
End Sub

İkinci isteğiniz için ŞARTLAR sayfasına geçin.
EKLE-AD-TANIMLA menüsünü açın.
OSMA tanımlasını seçin.
Alt bölümde BAŞVURU YERİ bölümündeki veriyi silip aşağıdaki formülü uygulayın ve tamam diyerek işlemi tamalayın.

=KAYDIR(ŞARTLAR!$B$3;;;BAĞ_DEĞ_DOLU_SAY(ŞARTLAR!$B$3:$B$65536))

 

[Korhan Ayhan]

Merhaba,

Ayrıca hücrelerin içeriğini sildiğinizde açıklamaların silinmesi için alternatif olarak aşağıdaki kodu ÇALIŞMA isimli sayfanızın kod bölümüne uygulayıp sonuç alabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Hücre As Range
    
    Application.ScreenUpdating = False
    
    If Target.Cells.Count = 1 Then
        If Target = "" And Target.Column = 3 Then
            Target.ClearComments
        End If
    Else
        For Each Hücre In Selection
            If Hücre.Value = "" And Hücre.Column = 3 Then
                Hücre.ClearComments
            End If
        Next
    End If
    
    Application.ScreenUpdating = True
End Sub

 

[sensizsoldum]

Korhan bey , iyi akşamlar,
ikinci verdiğiniz kodu uygulayabildim istediğim gibi oldu teşekkür ederim. ilk kodu söylediğiniz şekilde uyguladım fakat sonuca gidemedim. eminim ben yanlış bişeyler yapıyorum yine sanırsam.

sizden istirham edıyorum kodu örnek çalışmaya uygulayabilir misiniz.
son hali ektedir. saygıılarımı sunarım mutlu akşamlar dilerim.

 

[Korhan Ayhan]

Merhaba,

Mesajlarımda açık bir şekilde nasıl yapmanız gerektiğini açıkladım. Lütfen tekrar dikkatli bir şekilde uygulamayı deneyin.

Eğer ad-tanımlama işlemini 2007 versiyonda yapıyorsanız aşağıdaki adımları izleyin.

FORMÜLLER-AD YÖNETİCİSİ menüsünü açın.
OSMA tanımlasını seçin.
Alt bölümde BAŞVURU YERİ bölümündeki veriyi silip aşağıdaki formülü uygulayın ve tamam diyerek işlemi tamalayın.

=KAYDIR(ŞARTLAR!$B$3;;;BAĞ_DEĞ_DOLU_SAY(ŞARTLAR!$B$3:$B$65536))

 

[sensizsoldum]

Günaydın Korhan Bey,
Hayırlı sabahlar dilerim, ikinci yaptığınız açıklama ile sonuca gittim. Excel 2010 kullanıyordum.
Çok teşekkür ederim. Saygılarımı sunarım.
İyi çalışmalar dilerim.