Açıklamayı büyütme

Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
16 Mayıs 2008
Mesajlar
561
Excel Vers. ve Dili
Ev : Office Excel 2003
İş : Office Excel 2003
Nasıl bir hata alıyorsunuz?
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
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.

 

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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Alternatif;

C++:
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
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Sayın uzmanlarım ilk fırsatta merakla deneyeceğim, teşekkürler.
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Usubaykan uzmanım ve Korhan Ayhan uzmanımın kodları sorunsuz çalışmaktadır. Saygılar
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
Alternatif;

C++:
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Comment özelliğini kurcalarken o satır fazladan kalmış. İki satırı da silebilirsiniz.

Üstte ki mesajımı bu yönde düzelttim.
 
Katılım
18 Mayıs 2009
Mesajlar
1,184
Excel Vers. ve Dili
Excel 2016 Türkçe
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Siz bold olmasını istemiyorsanız iki satırı silebilirsiniz.
 
Üst