Açıklamayı büyütme

Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Merhabalar

Birinci kod ile veri girdiğim hücreye (B2:N100) tarih-saat olarak açıklama oluşuyor.

İkinci kod ile de hücreye yazılan veri, büyütülmüş açıklama olarak görünüyor.

Benim istediğim ikisinin karışımı; yani üstteki gibi tarih bilgisi açıklaması, alttaki gibi büyüsün (tabi font ve büyüklük ayarlarını ben daha sonra kendime göre yapacağım)

Arşivimde bu iki kod vardı. Belki yeni baştan yazılınca daha sadeleştirilmişi olabilir, sayın uzmanlarımıza sunarım.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:N100")) Is Nothing Then Exit Sub
SonVri = "Tarih: " & Format(Date, "dd.mm.yyyy") & "  " & "Saat: " & Format(Now(), " hh:mm ") & ""
If Target.Value = "" Then SonVri = ""
Target.NoteText SonVri

End Sub








Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Target.ClearComments
If Target.Value = "" Then Exit Sub
Target.AddComment
Target.Comment.Visible = True
Target.Comment.Shape.Select
Target.Comment.Text Text:=CStr(Target.Value)
With Selection.Font
        .Name = "Calibri"
        .FontStyle = "Normal"
        .Size = 16
End With
Target.Comment.Visible = False
End Sub
 

usubaykan

Destek Ekibi
Destek Ekibi
Katılım
16 Mayıs 2008
Mesajlar
561
Excel Vers. ve Dili
Ev : Office Excel 2003
İş : Office Excel 2003
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:N100")) Is Nothing Then Exit Sub
SonVri = "Tarih: " & Format(Date, "dd.mm.yyyy") & "  " & "Saat: " & Format(Now(), " hh:mm ") & ""
If Target.Value = "" Then SonVri = ""
Target.ClearComments
Target.NoteText SonVri

Target.Comment.Visible = True
Target.Comment.Shape.Select
Target.Comment.Text Text:=CStr(Target.Value)
With Selection.Font
        .Name = "Calibri"
        .FontStyle = "Normal"
        .Size = 16
End With
End Sub
Bu şekilde bir deneyin isterseniz.
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:N100")) Is Nothing Then Exit Sub
SonVri = "Tarih: " & Format(Date, "dd.mm.yyyy") & "  " & "Saat: " & Format(Now(), " hh:mm ") & ""
If Target.Value = "" Then SonVri = ""
Target.ClearComments
Target.NoteText SonVri

Target.Comment.Visible = True
Target.Comment.Shape.Select
Target.Comment.Text Text:=CStr(Target.Value)
With Selection.Font
        .Name = "Calibri"
        .FontStyle = "Normal"
        .Size = 16
End With
End Sub
Bu şekilde bir deneyin isterseniz.
Hemen deniyorum
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Usubaykan uzmanım cevabınız için teşekkürler, denedim, maalesef hem tarih açıklama kısmında çıkmıyor. Bir de oluşan açıklama sabit kalıyor. Oysa sabit kalmaması, gizlenmesi gerekir.

İlk sırada paylaştığım kodlar, tarihi sorunsuz bir şekilde açıklamaya oluşturuyor. İstediğim şey, bu açıklamanın fareyle hücreye gelindiğinde büyümesi.
 

usubaykan

Destek Ekibi
Destek Ekibi
Katılım
16 Mayıs 2008
Mesajlar
561
Excel Vers. ve Dili
Ev : Office Excel 2003
İş : Office Excel 2003
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:N100")) Is Nothing Then Exit Sub
SonVri = "Tarih: " & Format(Date, "dd.mm.yyyy") & "  " & "Saat: " & Format(Now(), " hh:mm ") & ""
If Target.Value = "" Then SonVri = ""

Target.ClearComments

Target.NoteText SonVri

Target.Comment.Shape.Select
With Selection.Font
        .Name = "Calibri"
        .FontStyle = "Normal"
        .Size = 16
End With
Target.Comment.Visible = False
End Sub
Tekrar deneyin lütfen
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Uzmanım denedim fakat hem hata verdi, hem de (hata ile oluşmuş olan) tarih açıklaması büyümedi.
 

usubaykan

Destek Ekibi
Destek Ekibi
Katılım
16 Mayıs 2008
Mesajlar
561
Excel Vers. ve Dili
Ev : Office Excel 2003
İş : Office Excel 2003
Deneyin lütfen

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:N100")) Is Nothing Then Exit Sub
SonVri = "Tarih: " & Format(Date, "dd.mm.yyyy") & "  " & "Saat: " & Format(Now(), " hh:mm ") & ""
If Target.Value = "" Then SonVri = ""

Target.ClearComments

Target.NoteText SonVri & " " & Target

Target.Comment.Shape.Select
With Selection.Font
        .Name = "Calibri"
        .FontStyle = "Normal"
        .Size = 16
End With
Target.Comment.Visible = False
End Sub
 

Ekli dosyalar

Son düzenleme:
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Uzmanım gümüş üye olduğum için sadece kodları denedim. Fakat yine hata verdi. Target.comment satırında hata veriyor.
 

usubaykan

Destek Ekibi
Destek Ekibi
Katılım
16 Mayıs 2008
Mesajlar
561
Excel Vers. ve Dili
Ev : Office Excel 2003
İş : Office Excel 2003

bir kontrol edin lütfen bende sorunsuz çalışıyor. Siz bütün makrolarınızı silerek kopyalıyorsunuz değil mi ?
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Uzmanım çok ilginç. Yüklediğiniz dosya da hata verdi. Rakam da denedim, harf de denedim. Başka bir sorun olabilir mi? Bilmediğim bir excel ayarl, eklenti ayarı vs. gibi. Excel 2016 kullanıyorum.
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Bir gif çekip yükleyeceğim birazdan.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Uzmanım çok ilginç. Yüklediğiniz dosya da hata verdi. Rakam da denedim, harf de denedim. Başka bir sorun olabilir mi? Bilmediğim bir excel ayarl, eklenti ayarı vs. gibi. Excel 2016 kullanıyorum.
Profilinizde farklı bir sürüm yazıyor. Güncellemenizde fayda var.
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Usubaykan uzmanım, dikkatimi çeken küçük bir husus var, onu da arz edeyim.

Oluşan açıklamada, üstteki kodda (ilk mesajımdaki birinci kod) olduğu gibi, sadece tarihin çıkması gerekiyor. Hücre içine yazılan yazının açıklamaya eklenmemesi gerekiyor.

Bu anlamda tarihi açıklamaya ekleyen kod, işimi görüyordu. Ama üzerine gelindiğinde (birinci mesaj, ikinci kod) büyüyor olsa, biraz daha iyi olurdu. Arzu ettiğim budur. Teşekkürler :)
 

usubaykan

Destek Ekibi
Destek Ekibi
Katılım
16 Mayıs 2008
Mesajlar
561
Excel Vers. ve Dili
Ev : Office Excel 2003
İş : Office Excel 2003
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:N100")) Is Nothing Then Exit Sub
SonVri = "Tarih: " & Format(Date, "dd.mm.yyyy") & "  " & "Saat: " & Format(Now(), " hh:mm ") & ""
If Target.Value = "" Then SonVri = ""

Target.ClearComments

'Target.NoteText SonVri & vbCrLf & Target Hücreye açıklama ekler

Target.NoteText SonVri

Target.Comment.Visible = True
Target.Comment.Shape.Select

With Selection.Font
        .Name = "Calibri"
        .FontStyle = "Normal"
        .Size = 16
End With
Target.Comment.Visible = False
End Sub
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Usubaykan uzmanım emeğiniz için teşekkür, şimdi hata vermiyor.
Fakat küçük bir düzeltme (eğer mümkünü varsa) yapabilir miyiz?

Açıklamalara, hücre içine yazılanlar da dahil oluyor. Hücre içine dahil olmamalarını sağlayabilir miyiz?
 

usubaykan

Destek Ekibi
Destek Ekibi
Katılım
16 Mayıs 2008
Mesajlar
561
Excel Vers. ve Dili
Ev : Office Excel 2003
İş : Office Excel 2003
#17 nci mesajım da zaten açıklama içerisine hücre değerini yazan kodu pasif yapmıştım. "
Target.NoteText SonVri & vbCrLf & Target Hücreye açıklama ekler" bu satırı silin.
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Sayın usubaykan uzmanım, şu an tam olarak doğrudur, hatasızdır. Emeklerinize sağlık. Saygılar uzmanım.
 
Üst