Açıklamayı büyütme

[izcik]

Usubaykan uzmanım eğer size zahmet olmayacaksa
Hücreye veri yazmada, büyütmede sorun yok, fakat hücreyi silince hata veriyor.
(Açıklamayı da siliyor, zira olması gereken de bu, hücreyi silince açıklamanın da silinmesi, ama hata veriyor uzmanım)

 

[usubaykan]

Nasıl bir hata alıyorsunuz?

 

[izcik]

Uzmanım diyelim ki hücreye (örnek) 1 yazdım
Sorun yok
Açıklama (tarih saat) oluşuyor
Ve Açıklama büyütülmüş halde
Bu da güzel
Fakat o hücreyi (1 yazdığım hücreyi) silince hata veriyor.
Size hem örnek dosya hem de gif hazırladım uzmanım.

Usubay_Uzmanima_Ornek_ve_Gif.rar dosyasını indir - download

Usubay_Uzmanima_Ornek_ve_Gif.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s5.dosya.tc

 

[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
If SonVri = "" Then Exit Sub
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

Böyle deneyin.

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim My_Cell As Range, My_Comment As Comment
   
    For Each My_Cell In Intersect(Target, Range("B2:N100")).Cells
        With My_Cell
            .ClearComments
            If .Value <> "" Then
                .AddComment
                With .Comment
                    .Text "Tarih: " & Format(Date, "dd.mm.yyyy") & vbCrLf & "Saat: " & Format(Time, "hh:mm:ss")
                    .Shape.OLEFormat.Object.Font.Bold = True
                    .Shape.OLEFormat.Object.Font.Name = "Calibri"
                    .Shape.OLEFormat.Object.Font.Size = 16
                    .Shape.TextFrame.AutoSize = True
                End With
            End If
        End With
    Next
End Sub

 

[izcik]

Sayın uzmanlarım ilk fırsatta merakla deneyeceğim, teşekkürler.

 

[izcik]

Usubaykan uzmanım ve Korhan Ayhan uzmanımın kodları sorunsuz çalışmaktadır. Saygılar

 

[izcik]

Alternatif;

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim My_Cell As Range, My_Comment As Comment
   
    For Each My_Cell In Intersect(Target, Range("B2:N100")).Cells
        With My_Cell
            .ClearComments
            If .Value <> "" Then
                .AddComment
                With .Comment
                    .Text "Tarih: " & Format(Date, "dd.mm.yyyy") & vbCrLf & "Saat: " & Format(Time, "hh:mm:ss")
                    .Shape.OLEFormat.Object.Font.Bold = True
                    .Shape.OLEFormat.Object.Font.Name = "Calibri"
                    .Shape.OLEFormat.Object.Font.FontStyle = "Kalın"
                    .Shape.OLEFormat.Object.Font.Size = 16
                    .Shape.TextFrame.AutoSize = True
                End With
            End If
        End With
    Next
End Sub

Uzmanım çok küçük bir soru
Yazı karakteri kalın olmasın diye hangi satıra kesme işareti koymalıyım?

ilk sıradaki Font.Bold satırına mı
Üçüncü sıradaki Fontsyle=Kalın satırına mı
Yoksa ikisine de mi.
Bold ve Kalın aynı anlama geldiği için tereddüt ettim.

 

[Korhan Ayhan]

Comment özelliğini kurcalarken o satır fazladan kalmış. İki satırı da silebilirsiniz.

Üstte ki mesajımı bu yönde düzelttim.

 

[izcik]

Comment özelliğini kurcalarken o satır fazladan kalmış. İki satırı da silebilirsiniz.

Üstte ki mesajımı bu yönde düzelttim.

Uzmanım özür dilerim yine tereddüt ettim
İki satırı mı silmemiz gerekiyor, yoksa sadece fontstyle satırını mı?

Zira düzenlediğiniz mesajınızda sadece bir satırı silmişsiniz, emin olamadım, uzmanıma sorayım dedim.

 

[Korhan Ayhan]

Siz bold olmasını istemiyorsanız iki satırı silebilirsiniz.