• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Açıklamayı büyütme

  • Konbuyu başlatan Konbuyu başlatan izcik
  • Başlangıç tarihi Başlangıç tarihi
I

izcik

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
 
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.
 
usubaykan' Alıntı:
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.
Genişletmek için tıkla ...
Hemen deniyorum
 
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.
 
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
 
Uzmanım denedim fakat hem hata verdi, hem de (hata ile oluşmuş olan) tarih açıklaması büyümedi.
 
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:
Uzmanım gümüş üye olduğum için sadece kodları denedim. Fakat yine hata verdi. Target.comment satırında hata veriyor.
 

İ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 ?
 
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' Alıntı:
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.
Genişletmek için tıkla ...

Profilinizde farklı bir sürüm yazıyor. Güncellemenizde fayda var.
 
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 :)
 
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
 
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?
 
#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.
 
Sayın usubaykan uzmanım, şu an tam olarak doğrudur, hatasızdır. Emeklerinize sağlık. Saygılar uzmanım.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst