Hücre açıklamasında göster

[omeryılmaz]

Arkadaşlar
Personelimizin Yıl içersindeki Haraketlerini Hücre Açıklamasında gösterebilirmiyiz..
Örnek Dosya ilişiktedir.... Yardımlarınız için şimdiden şükranlarımı sunuyorum...

 

[omeryılmaz]

Arkadaşlar Konuyla İlgili Şu Kodu Nasıl Geliştirebiliriz.....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Range("b3").AddComment
Range("b3").Comment.Visible = False
Range("b3").Comment.Text Text:="Yıllık İzin:" & Chr(10) & "Rapor :" & Chr(10) & "G.Görev:" & Chr(10) & "Adli Nöbet:" & Chr(10) & "Ücretsiz İzin:" & Chr(10) & "Eğitim :"
End Sub

(B3:B500) Sütununda Kayıtlı Her Personel için

Yıllık İzin= Sütun(Aj)
Rapor = Sütun(Ak)
G.Görev = Sütun(Al)
Adli Nöbet=Sütun(Am)
Eğitim = Sütun (An)
Ü.İzin = Sütun (Ao)

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [B3:B65536]) Is Nothing Then Exit Sub
    With Target
        .ClearComments
        .AddComment
        .Comment.Visible = True
        .Comment.Text Text:="YILLIK İZİN       : " & Cells(Target.Row, "AJ") & Chr(10) & _
                            "RAPOR             : " & Cells(Target.Row, "AK") & Chr(10) & _
                            "G. GÖREV          : " & Cells(Target.Row, "AL") & Chr(10) & _
                            "ADLİ NÖBET      : " & Cells(Target.Row, "AM") & Chr(10) & _
                            "EĞİTİM              : " & Cells(Target.Row, "AN") & Chr(10) & _
                            "ÜCRETSİZ İZİN   : " & Cells(Target.Row, "AO")
        .Comment.Shape.Select
        Selection.ShapeRange.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
        Selection.Font.Bold = True
        .Comment.Visible = False
    End With
End Sub

 

[omeryılmaz]

Korhan Hocam Eline Sağlık Şükranlarımı sunuyorum Sağol Var ol........