Hücre Açıklamasından veri almak

[deruniyim]

Arkadaşlar

Hücrelere eklediğimiz açıklama içindeki veriyi alıp başka bir yerde kullanma şansımız var mı?

Eğer alabiliyorsak bu veri metin mi olacaktır

Bizim açıklamada ki veri tarih formatında olarak kullanma şansımız var mı?

 

[Ömer]

Merhaba,

Bu şekilde deneyin. A2 de bulunan açıklamayı A1 e yazar.

Sub AciklamaAl()
 
    On Error GoTo son
    Range("A1") = CDate(Range("A2").Comment.Text)
    Exit Sub
son:
    Range("A1").ClearContents
    MsgBox "Açıklama tarih olmadığı için almadım."
    
End Sub

.

 

[deruniyim]

Teşekkürler çalışıyor

Bu yazdığımız program bir butona mı eklemeliyim yoksa

bulunan bilgiyi değilde A2 hücresindeki açıklamaya tarih girildikten sonra A1 hücresine yazdırabilir miyiz?

 

[Ömer]

Çalışma sayfasına kopyalayın. A2 hücresi tetiklendiğinde kod çalışırı.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
 
    On Error GoTo son
    Range("A1") = CDate(Range("A2").Comment.Text)
    Exit Sub
son:
    Range("A1").ClearContents
    MsgBox "Açıklama tarih olmadığı için almadım."
    
End Sub

.

 

[deruniyim]

Ömer Bey

VBA yı çok iyi bilmiyorum. Çalışma sayfasına kopyalayın derken neyi kast ettiniz. öncekini modül1 in içine kopyalayıp F5 e bastığımda çalışmıştı yada bir butona atadım o şekildede çalıştı ama

bunu anlayamadım biraz açabilirmisiniz ne yapacağım konusunda

 

[Ömer]

Sayfa adı üzerine sağ klik yapın, açılan menüde "Kod Görüntüle" menüsüne girin açılan kod sayfasına kodları kopyalayın.

 

[deruniyim]

Dediğiniz şekilde kodları kopyaladım ama sonrasında ne yapacağımı bilemedim.

F5 e bastığımda makro atama sekmesi açılıyor

Kitaba gidip açıklamaya tarih girdiğimde herhangi bir şey olmadı

 

[Ömer]

A2 hücresine veri girdiğinizde kod çalışır.

 

[deruniyim]

Ömer Bey

A2 hücresine değilde A2 hücresinde ki açıklamaya veri girildiğinde A1 e yazabilirmiyiz.

yada A1'e yazmayıp ta açıklamadaki tarihi bir hesaplamada kullanabilir miyim?

Ekteki dosyanın içine asıl yapmak istediğimi yazdım.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki fonksiyonu deneyin.

Function HESAPLA(Tarih As Range) As Long
    Dim Aciklama As Comment
    
    Set Aciklama = Tarih.Comment
    
    Application.Volatile True
    
    If Not Aciklama Is Nothing Then
        HESAPLA = Date - CDate(Aciklama.Text)
    Else
        HESAPLA = Date - Tarih
    End If
End Function

 

[baydeniro]

Çok teşekkürler sayın Ömer.

 

[deruniyim]

Teşekürler Korhan Bey