hücre açıklaması.

[karaelmas4467]

hücre açıklamasının başka hücreleri kullanarak kendiliğinden gelmesini nasıl sağlayabilirim. ekli dosyada anlaşılır şekilde verilmiştir.

Teşekürler....

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp denermisiniz. D sütununda hücreyi tıkladığınızda otomatik olarak açıklama eklenir.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim İZİN_TÜRÜ As String
    If Intersect(Target, [D4:D65536]) Is Nothing Then Exit Sub
    On Error Resume Next
    With Target
        .Comment.Delete
        .AddComment
        .Comment.Visible = False
        .Comment.Shape.TextFrame.AutoSize = True
        If .Offset(0, 2) = "senelik" Then
        İZİN_TÜRÜ = "senelik izin"
        ElseIf .Offset(0, 2) = "mazeret" Then
        İZİN_TÜRÜ = "mazeret izni"
        ElseIf .Offset(0, 2) = "rapor" Then
        İZİN_TÜRÜ = "rapor"
        End If
        .Comment.Text Text:="""" & .Offset(0, -2) & """ " & Target & " gün """ & " " & İZİN_TÜRÜ
    End With
End Sub

 

[karaelmas4467]

Selamlar,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp denermisiniz. D sütununda hücreyi tıkladığınızda otomatik olarak açıklama eklenir.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [D4:D65536]) Is Nothing Then Exit Sub
    On Error Resume Next
    With Target
        .Comment.Delete
        .AddComment
        .Comment.Visible = False
        .Comment.Text Text:="""" & .Offset(0, -2) & """ " & Target & " gün """ & " senelik izin"
    End With
End Sub

Teşekür ederim. Tek sorun her açıklamada izin türü olarak "senelik izin" çıkıyor olması. Ben İzin türünün F sütunundan alınmasını istiyorum.

 

[Korhan Ayhan]

Selamlar,

Bahsettiğiniz bölüme dikkat etmemişim. Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[karaelmas4467]

Teşekür ederim.

 

[Hacı Bayram ÖZKAN]

Peki burda ayrılış tarihide yer alsa nasıl olur; "Örneğin ahmet 01.01.2010 tarihinden geçereli 10 gün senelik izin" gibi

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim İZİN_TÜRÜ As String
    If Intersect(Target, [D4:D65536]) Is Nothing Then Exit Sub
    On Error Resume Next
    With Target
        .Comment.Delete
        .AddComment
        .Comment.Visible = False
        .Comment.Shape.TextFrame.AutoSize = True
        If .Offset(0, 2) = "senelik" Then
        İZİN_TÜRÜ = "senelik izin"
        ElseIf .Offset(0, 2) = "mazeret" Then
        İZİN_TÜRÜ = "mazeret izni"
        ElseIf .Offset(0, 2) = "rapor" Then
        İZİN_TÜRÜ = "rapor"
        End If
        .Comment.Text Text:="" & .Offset(0, -2) & "  " & .Offset(0, -1) & "  tarihinden geçerli  " & Target & " gün " & " " & İZİN_TÜRÜ
    End With
End Sub

 

[karaelmas4467]

Korhan Bey; çok teşekür ederim ama verdiğiniz kodları kendi izin takip çalışmamda uygulamaya çalıştım işin içinden çıkamadım. ekte izin takip çalışmam var. üzerine geldiğim hücrede (aaa 5 gün mazeret izinli) gibi bir açıklamanın gelmesini bir türlü sağlayamadım.

 

[Korhan Ayhan]

Selamlar,

İşin ilginç yanı ilk dosyanızla son dosyanız birbirinden farklı. Bu durumda kodun çalışmasını nasıl bekliyorsunuz ki!

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu deneyiniz.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [G5:O65536]) Is Nothing Then Exit Sub
    On Error Resume Next
    If Target <> Empty Then
    With Target
        .Comment.Delete
        .AddComment
        .Comment.Visible = False
        .Comment.Shape.TextFrame.AutoSize = True
        .Comment.Text Text:="""" & Cells(.Row, "B") & """ " & Target & " gün """ & " " & Cells(4, .Column)
    End With
    End If
End Sub