Hücre Tıklandığında Ekrana Açıklama Gelecek

[sanal]

Merhaba,
Yapmak istediğim bir şey var. Hücrelerinde çeşitli rakamların olduğu bir tablom var. Herhangi bir hücre üzerine tıklandığında tıklanan hücredeki rakamın örnek olarak yüzde 15 ini ve tanımlayacağım bir açıklamayı göstermesini istiyorum.
Şimdi hatırladım yapmak istediğim bir şey daha var aslında
Örnek olarak A1 hücresine bir yazı girdiğimde B1 hücresine yazıyı girdiğim tarih ve saati atmasını istiyorum.
Cevaplar için teşekkürler.

 

[Korhan Ayhan]

Selamlar

Ekte konuyla ilgili örnek bir dosya hazırladım.

Sayfa1 de ilk sorunuzun , Sayfa2 dede ikinci sorunuzun cevabı bulunmaktadır.

Sayfa1 de A sütununda herhangi bir hücreye çift tıklama yaptığınızda koşullara uygun olarak değerin %15 ini ve açıklama ekler. Eğer sadece tıkladığımda/seçtiğimde bu işlem olsun derseniz Sayfa3 deki kodları kullanabilirsiniz.

Sayfa2 de A sütununda herhangi bir hücrenin içeriğini değiştirdiğinizde yanındaki hücrelere tarih ve değişikliği yapan kullanıcının adını yazar.

 

[Seyit Tiken]

İkinci Sorunun Cevabı :

Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] = "" Then
[b1] = ""
Else
[b1] = Now
End If
End Sub

 

[sanal]

Çok Teşekkürler

Çok makbule geçti açıkçası iki satırlık bir şeydir diye tahmin etmiş bu kadar yoracağımı düşünmemiştim o yüzden extra teşekkürler.

 

[1Al2Ver]

Selamlar

Ekte konuyla ilgili örnek bir dosya hazırladım.

Sayfa1 de ilk sorunuzun , Sayfa2 dede ikinci sorunuzun cevabı bulunmaktadır.

Sayfa1 de A sütununda herhangi bir hücreye çift tıklama yaptığınızda koşullara uygun olarak değerin %15 ini ve açıklama ekler. Eğer sadece tıkladığımda/seçtiğimde bu işlem olsun derseniz Sayfa3 deki kodları kullanabilirsiniz.

Sayfa2 de A sütununda herhangi bir hücrenin içeriğini değiştirdiğinizde yanındaki hücrelere tarih ve değişikliği yapan kullanıcının adını yazar.

Sayın Cost_Control,

Forumdaki taşınma vb işlemlerde anılan dosya silindi herhalde, sizde bir kopyası varsa eklermisiniz ? Teşekkür ederim

 

[Korhan Ayhan]

Selamlar,

Konuyla ilgili dosya üstteki mesajıma eklenmiştir.

 

[1Al2Ver]

Selamlar,

Konuyla ilgili dosya üstteki mesajıma eklenmiştir.

Sayın Cost_Control, merhaba ve teşekkürler, saygılarımla.

 

[Skorpiyon]

Sayın 1Al2Ver,

Sayın COST_CONTROL hocamın daha önceki dosyası nasıldı bilemiyorum. Onun yerine aşağıdaki kodları bir dener misiniz ? Dilerim işinizi görür.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:IV65536").ClearComments
On Error Resume Next
If Target = "" Then Exit Sub
If IsNumeric(Target) Then
Target = Target + (Target.Value * 18 / 100)
Target.AddComment
Target.Comment.Visible = True
Target.Comment.Text Text:=Chr(10) & " Değerin %18'i kendine eklenmiştir."
Else
MsgBox "Hatalı işlem"
End If
End Sub

 

[1Al2Ver]

Sayın 1Al2Ver,

Sayın COST_CONTROL hocamın daha önceki dosyası nasıldı bilemiyorum. Onun yerine aşağıdaki kodları bir dener misiniz ? Dilerim işinizi görür.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:IV65536").ClearComments
On Error Resume Next
If Target = "" Then Exit Sub
If IsNumeric(Target) Then
Target = Target + (Target.Value * 18 / 100)
Target.AddComment
Target.Comment.Visible = True
Target.Comment.Text Text:=Chr(10) & " Değerin %18'i kendine eklenmiştir."
Else
MsgBox "Hatalı işlem"
End If
End Sub

Sayın Sertkaya, merhaba, iyi sabahlar, sitede nöbetçi uzman sizsiniz herhalde bende nöbetçi üyeyim, macro güzel, bir de açıklamaya hesapladığı rakamı yazsa hoş olur ,

Sayın Cost_Control'un macrosu ise ;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If IsNumeric(Target) = False Or Target = "" Then
Target.ClearComments
Exit Sub
End If
X = Target * 15 / 100
With Target
.ClearComments
.AddComment
.Comment.Visible = False
.Comment.Text Text:=Application.UserName & ":" & Chr(10) & X & Chr(10) & Now
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target = "" Then
Target.ClearComments
End If
End Sub

şeklinde idi, tabi onun ve sizin % rakamı kullanıcıya göre düzenlenebilir,

Tekrar teşekkür ederim, saygılar sunuyorum, iyi nöbetler

 

[Skorpiyon]

Sayın 1Al2Ver,

Aşağıdaki şekilde deneyiniz.
Not : Bu arada ben mesajı yazmadan çoook önce COST_CONTROL Hocam dosyayı eklemiş de biz görmemişiz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:IV65536").ClearComments
On Error Resume Next
If Target = "" Then Exit Sub
If IsNumeric(Target) Then
eski = Target
Target = Target + (Target.Value * 18 / 100)
Target.AddComment
Target.Comment.Visible = True
Target.Comment.Text Text:=" Eski Değer : " & eski & Chr(10) & " Değerin %18'i kendine eklenmiştir."
Else
MsgBox "Hatalı işlem"
End If
End Sub

 

[1Al2Ver]

Sayın 1Al2Ver,

Aşağıdaki şekilde deneyiniz.
Not : Bu arada ben mesajı yazmadan çoook önce COST_CONTROL Hocam dosyayı eklemiş de biz görmemişiz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:IV65536").ClearComments
On Error Resume Next
If Target = "" Then Exit Sub
If IsNumeric(Target) Then
eski = Target
Target = Target + (Target.Value * 18 / 100)
Target.AddComment
Target.Comment.Visible = True
Target.Comment.Text Text:=" Eski Değer : " & eski & Chr(10) & " Değerin %18'i kendine eklenmiştir."
Else
MsgBox "Hatalı işlem"
End If
End Sub

Sayın Sertkaya, tekrar merhaba, büyük bir hevesle kayıt ettim ve sorunsuz çalışıyor, hatta dolu hücre tekrar tıklanırsa üzerine hesaplıyor, benim açımdan problem yok, ama başka bir istekli üye, üzerine tıklanan hücrelerin işlem sırasını ve hesabını "açıklama" da görmek isteyebilir, ( 1.tıkta 100, 118; 2.tıkta 118, 139,24 ; 3.tıkta 139,24 164,3032 vb ) dağarcığında bulunsun,

Tekrar teşekkür ederim, iyi sabahlar, saygılar.

 

[Skorpiyon]

Sayın 1Al2Ver,

Çok ömürsünüz. Sizin için bir problem yok ise şimdilik böyle kalsın.

 

[1Al2Ver]

Sayın 1Al2Ver,

Çok ömürsünüz. Sizin için bir problem yok ise şimdilik böyle kalsın.

Sayın Sertkaya, teşekkürler, öyle kaldı , iyi sabahlar, saygılar.