Soru Comment Olan Hücrelerdeki Açıklamaları Hücreye Yazma

[TURKOLOG]

Ekteki belgede temsicili bir dosya mevcut olup
Üstteki tabloda Ocaktan Aralıka kadar olan tabloda eger Comment Açıklama Bilgisi varsa açıklama bilgisini yoksa hücrede yazan değeri
25 satırdan itibaren son dolu satırdan sonra A sütunundan başlamak sureti ile yapıştırmak AG hücresinde 1 11111 yazanların toplamını almak istiyorum.

Örnekte A25. Satırını ben yaptım
0 ve 1 dışında ne yazarsa yazsın Font Times New Romans 12 punto Kalın Mavi olacak

 

[Korhan Ayhan]

Kullanıcı tanımlı fonksiyon işinizi görür mü?

Aşağıdaki fonksiyonu boş bir modüle uygulayın.

Option Explicit

Function COMMENT_TEXT(Veri As Range)
    Application.Volatile True
    If Not Veri.Comment Is Nothing Then
        COMMENT_TEXT = Veri.Comment.Text
    Else
        COMMENT_TEXT = ""
    End If
End Function

Sonra C25 hücresine aşağıdaki formülü uygulayıp sağa ve alta doğru sürükleyiniz.

=EĞER(COMMENT_TEXT(C9)="";C9;COMMENT_TEXT(C9))

 

[TURKOLOG]

Kullanıcı tanımlı fonksiyon işinizi görür mü?

Aşağıdaki fonksiyonu boş bir modüle uygulayın.

Option Explicit

Function COMMENT_TEXT(Veri As Range)
    Application.Volatile True
    If Not Veri.Comment Is Nothing Then
        COMMENT_TEXT = Veri.Comment.Text
    Else
        COMMENT_TEXT = ""
    End If
End Function

Sonra C25 hücresine aşağıdaki formülü uygulayıp sağa ve alta doğru sürükleyiniz.

=EĞER(COMMENT_TEXT(C9)="";C9;COMMENT_TEXT(C9))

Sayın @Korhan Ayhan Hocam ben yukarıda ocaktan itibaren 12 ayı misalen yazdım
Diyelim ki yukarıda Ocak Şubat Mart ayları tek var başka ay yok o zaman
A25 yen itibaren son dolu satırın altına gelecek şekilde ocak şubat Mart ayları kopyalayacak ve C25 ten itibaren commentler yazılacak
C25 ten itibaren 1 dışında ne yazarsa yazsın commentler Font Times New Romans 12 punto Kalın Mavi olacak
sondaki AG hücresine 1111111 leri toplayıp 30 yazıp 30 yazan AG hücresi mavi dolgu olsa olur mu Hocam.
ben bunu görsel olarak renkli cıktı alacam ondan

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Puantaj_Aktar()
    Dim Veri As Range, Son As Long
    
    Range("A9:AG20").Copy Range("A25")
    
    Son = Cells(Rows.Count, 1).End(3).Row
    
    For Each Veri In Range("C25:AG" & Son)
        If Not Veri.Comment Is Nothing Then
            Veri.Value = Veri.Comment.Text
            Veri.Font.Name = "Times New Roman"
            Veri.Font.Size = 12
            Veri.Font.Bold = True
            Veri.Font.Color = -4165632
            Cells(Veri.Row, "AG").Font.Name = "Times New Roman"
            Cells(Veri.Row, "AG").Font.Size = 12
            Cells(Veri.Row, "AG").Font.Bold = True
            Cells(Veri.Row, "AG").Font.Color = -4165632
        End If
    Next
    
    With Range("AG25:AG" & Son)
        .Formula = "=SUM(C25:AF25)"
        .Value = .Value
    End With

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[TURKOLOG]

Sayın @Korhan Ayhan Hocam çok teşekkür ederim. Elinize emeğinize sağlık kod çalıştı.