neyegorehesaplansin sayfasına göre sutun açıp hesaplatma

[balanar]

Örnekteki dosyada sarı işaretledim tarih kısımları var. Dosya içindeki sayfalar çoğaltılacak, buna göre yapabilirsek çok iyi olur..

neyegorehesaplanmali sayfası içersinde yıllara göre eklenmesi gereken izin hakkı mevcut orayı baz alacak sekilde işlem yaptırdıgımızda

ilgili sayfaların D sutununa yeni değerler alıp mevcut sutunları bir sağa kaydırması gerekiyor. Örnek ekran goruntusu soyle olmalı gibi.. Sutun acılıp oradaki hesaplamaya göre atıyorum kalan izin 26 kullanılan izin 0 seklinde hepsine eklenmeli.. Liste uzun örnek olarak kısalttım ben..

 

[GursoyC]

Deneyiniz.

Private Sub CommandButton1_Click()
Dim syf As Worksheet, k As Integer
    For Each syf In ThisWorkbook.Worksheets
        If Not syf.Name = "neyegorehesaplansin" Then
            syf.Columns("D:D").Insert Shift:=xlToRight
            syf.Range("D2").Value = "2022"
        End If
            For k = 4 To syf.Range("C" & Rows.Count).End(3).Row Step 2
           
                kıdem = syf.Range("D2").Value - 1 * Application.WorksheetFunction.Text(syf.Range("B" & k - 1), "yyyy")
               
                If kıdem <= 5 Then
                syf.Range("D" & k).Value = 14
                ElseIf kıdem >= 15 Then
                syf.Range("D" & k).Value = 26
                ElseIf kıdem > 5 And kıdem < 15 Then
                syf.Range("D" & k).Value = 20
                End If

            Next k
    Next
   
End Sub

 

[balanar]

kıymetli hocam evet oluyor, benden kaynaklı bir hatadan dolayı eksik bilgi vermişim. Şu sayfalarda işlem yapacak, bunun dışındada sayfalar var hata cikariyor. Eğer müsait vaktiniz varsa yoksa canınız sagolsun..

kultur
muhtarlik
yaziisleri
insan
ozelkalem
sosyalyardim
imar
emlak
veteriner
zabita
park
temizlik
malihizmetler
mezarlik
destek
itfaiye
sukanal
fen

 

[GursoyC]

Kodu bu şekilde değiştirin.
İleride başka bir değişiklik olursa bir hata almayın diye sayfalarınızın isimlerinin neyegörehesaplansın isimli bir sayfanın içerisinde H2:H19 aralığında yazılı olduğu varsayılmıştır. Kendi dosyanızdaki bir sayfaya uyarlarsınız.

    Dim syf As Worksheet, k As Integer

    For Each syf In ThisWorkbook.Worksheets
        If WorksheetFunction.CountIf(Sheets("neyegorehesaplansin").Range("H2:H19"), syf.Name) > 0 Then
                    syf.Columns("D:D").Insert Shift:=xlToRight
                    syf.Range("D2").Value = "2022"

                    For k = 4 To syf.Range("C" & Rows.Count).End(3).Row Step 2
        
                        kıdem = syf.Range("D2").Value - 1 * Application.WorksheetFunction.Text(syf.Range("B" & k - 1), "yyyy")
        
                        If kıdem <= 5 Then
                        syf.Range("D" & k).Value = 14
                        ElseIf kıdem >= 15 Then
                        syf.Range("D" & k).Value = 26
                        ElseIf kıdem > 5 And kıdem < 15 Then
                        syf.Range("D" & k).Value = 20
                        End If
                    Next
        End If
    Next