formül girildikten sonra metin gibi kaydetme

[excel_ance]

arkadaşlar örnek dosyam ektedir. ve açıklamaları örnek dosyanin içinde mevcuttur. yardımlarınızı bekliyorum.

 

[Korhan Ayhan]

Selamlar,

Yıllık izin süreleri nerden alınacak?

 

[excel_ance]

hocam yıllık izin süreleri 10 yıl ve üzeri ise 30 gün on yıldan daha azsa 20 gün olacak. mazeret izni 10 gün sağlık izni de 7 gündür

 

[excel_ance]

yıllık izin

hocam izin sürelerini ilgili bölümlerine ekledim

 

[excel_ance]

belki anlatımım eksik kalmış olabilir. umarım yardımcı olabilirsiniz.

 

[ForWin]

Selamlar,

Yapmaya çalıştım. Amma anlatımda eskiklik var. Hücre isimlerin vererek açıklayabilir misiniz? Bir yerde G2 hücresi yazmışsınız, ama G2-de metin var. Ne yapmamız lazım onu anlaşılır hale getirirseniz, umarım yapabilirim.

 

[excel_ance]

selamlar hocam
metinleri bir kenara bırakırsak benim personelim yıl içerisinde 10 gün mazeret 7 gün sağlık izni kullanır buna mukabil de personelin kıdem yılı 10 yıl ve yukarıysa 30 gün 10 yıldan düşükse 20 gün izin kullanır. ben kişinin peyder pey kullandığı izni defterde tutmaktansa kullanılan izni hangi izin türünde ise izin süresinden eksiltmesini istiyorum
olmazsa yormayın kendinizi. herkese şimdiden teşekkürlür

 

[excel_ance]

izin

hocam benim personellerim yıl içerisinde 10 gün mazeret izni max 7 gün sağlık izni ve kıdem yılı 10 yıl ve daha fazla ise 30 gün yıllık izin kullanır kıdemi 10 yıldan az ise 20 gün izin kullanır. hücredeki metinleri yok sayabilirsiniz. yıl içerisinde peyder pey kaç gün izin kullanmış kaç gün izni kalmış takip etmek istiyorum mümkünmü acaba?

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Kişilerin adını soyadını ve görev süresini işledikten sonra pemde renkli alanlara sayısal değerler girdiğinizde görev süresi bilgisine bakılarak izin düşümü otomatik yapılmaktadır. Sarı renkli hücrelere izin hakedişlerini girmenize gerek yok. Kodlar otomatik olarak görev süresi sütununa bakarak hesaplama yapmaktadır.

Uygulanan kod; (Sayfanın kod bölümüne uygulayınız.)

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("H3:H65536,K3:K65536,N3:N65536")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Cells(Target.Row, "B") = "" Then
        MsgBox "Lütfen ADI-SOYADI bilgisi dolu satırlara izin süresi giriniz !", vbCritical, "Dikkat !"
        Target.ClearContents
        Target.Select
        Application.EnableEvents = True
        Exit Sub
    End If
    If Target <> "" And IsNumeric(Target) Then
        Select Case Target.Column
            Case Is = 8
                If Cells(Target.Row, "G") <> "" Then
                    Cells(Target.Row, "G") = Cells(Target.Row, "G") - Target
                Else
                    If Cells(Target.Row, "D") > 9 Then
                        Cells(Target.Row, "G") = 30 - Target
                    Else
                        Cells(Target.Row, "G") = 20 - Target
                    End If
                End If
            Case Is = 11
                If Cells(Target.Row, "J") <> "" Then
                    Cells(Target.Row, "J") = Cells(Target.Row, "J") - Target
                Else
                    Cells(Target.Row, "J") = 10 - Target
                End If
            
            Case Is = 14
                If Cells(Target.Row, "M") <> "" Then
                    Cells(Target.Row, "M") = Cells(Target.Row, "M") - Target
                Else
                    Cells(Target.Row, "M") = 7 - Target
                End If
        End Select
    End If
 
Son:
    Application.EnableEvents = True
End Sub

 

[excel_ance]

çoooook teşekkür ederim arkadaşlar ellerinize emeklerinez sağlık

 

[tiryaki42]

Valla ne zamandır buna ihtiyacım vardı ilaç gibi geldi