Açıklamayı büyütme

[izcik]

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.

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]

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.

 

[izcik]

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

 

[izcik]

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]

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

 

[izcik]

Hevesle deniyorum

 

[izcik]

Uzmanım denedim fakat hem hata verdi, hem de (hata ile oluşmuş olan) tarih açıklaması büyümedi.

 

[usubaykan]

Deneyin lütfen

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

 

[izcik]

Uzmanım gümüş üye olduğum için sadece kodları denedim. Fakat yine hata verdi. Target.comment satırında hata veriyor.

 

[usubaykan]

İndir deneme

Dosyayı indir deneme

dosya.co

bir kontrol edin lütfen bende sorunsuz çalışıyor. Siz bütün makrolarınızı silerek kopyalıyorsunuz değil mi ?

 

[izcik]

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.

 

[izcik]

Bir gif çekip yükleyeceğim birazdan.

 

[izcik]

Evet uzmanım. Hatta her seferinde yeni dosya açarak uyguluyorum.

TEST.gif dosyasını indir - download

TEST.gif dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s5.dosya.tc

 

[Korhan Ayhan]

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.

 

[izcik]

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

 

[izcik]

Profilinizde farklı bir sürüm yazıyor. Güncellemenizde fayda var.

Hemen değiştirdim uzmanım

 

[usubaykan]

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

 

[izcik]

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]

#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.

 

[izcik]

Sayın usubaykan uzmanım, şu an tam olarak doğrudur, hatasızdır. Emeklerinize sağlık. Saygılar uzmanım.