[düşünceli]

Merbaba; Öncelikle bilinmesini isterim ki, bu dosya bir kamu kurumunda (KİT) hizmet alımı yöntemiyle çalışan personelin, firma nezdinde yapılan maaş ödemelerinde ve vergi kesintilerinde vs. doğru işlem tesis edilip edilmediği, personel maaşlarının düzgün ödenip ödenmediğinin kontrolünü sağlamak, çalışanın hakkının tam anlamıyla verlip verilmediğini denetleyebilmek amacıyla yapılmıştır.

1- Örnek bordro sayfasını 12 aylık olacak şekilde düzenledim. (ocak-Şubat, Mart……..vs).

2- Örnek Bordro sayfasını isim listesi kadar çoğaltıyorum. Ücret bordrosu sayfasında ise listede bulunan kişi sayısı kadar hangi ayın bordrosunu görmek istiyorsam veri doğrulama yöntemiyle toplu şekilde görebiliyorum.

3- Ancak; 4 ayrı iş kolundan hizmet alımı firmalarla çalıştığımız için, örneğin" A FİRMASININ" sayfalarını silip, "B FİRMASININ" isim listesini girdiğimde, ücret bordrosu sayfasında formülleri tekrar revize etmem gerekiyor. Sorum şu; her ne şekilde olursa olsun mevcut sayfaları silip (SABİT SAYFALAR HARİÇ) isim listesini değiştirerek yeni sayfalar oluşturduğumda Ücret bordrosu sayfasında tekrar tekrar fomül revize etmeye gerek kalmayacak şekilde yardımcı olmanız mümkün mü?
İyi çalışmalar dilerim.

[düşünceli]

Güncel...

[düşünceli]

Güncel...

[feraz]

Merhaba.

Bence bu dediğiniz olacak gibi değil.

Yani sayfayı silip başka nir isimle sayfa ekleyince formül nerden tanıyacak sayfa adını?

[düşünceli]

Merhaba.

Bence bu dediğiniz olacak gibi değil.

Yani sayfayı silip başka nir isimle sayfa ekleyince formül nerden tanıyacak sayfa adını?

Şöyle bir mantık yürütülebilir mi acaba; listede bulunan her isimi yeni oluşacak sayfalarda belirli bir hücreye yazdırsak, sayfa ismini bu hücreden alsa, formül yada kod bu şekilde sayfa adını taniyabilir mi, ya da tanıtılabolir mi?

[feraz]

Dediğimiz gibi olabilir mantıken bence kod ile.

Anlamadığım yeni eklenecek sayfaya,sayfa ismini nasıl ekleyeceğiz önceden bilinmiyorsa eklenen sayfanın adı.

[düşünceli]

Dediğimiz gibi olabilir mantıken bence kod ile.

Anlamadığım yeni eklenecek sayfaya,sayfa ismini nasıl ekleyeceğiz önceden bilinmiyorsa eklenen sayfanın adı.

Aslında sayfa adını önceden biliyoruz. Giriş sayfasında bulunan isimlerin herbiri bir sayfa ismi aslında. Eğer bu şekilde tanıtılabilirse kod, formül vs. Fark etmez.

[feraz]

Bugün bir bakabilirim dosyaya elimden geldiği kadarıyla.

[düşünceli]

Bugün bir bakabilirim dosyaya elimden geldiği kadarıyla.

Teşekkür ederim. Makbule geçer.

[feraz]

ücret bordrosu sayfasındaki V19 ücresindeki formül hatalı.Hatasız nasıl?

Kod: Tümünü seç

=EĞERHATA(EĞER($E$2<>"";İNDİS(#BAŞV!;KÜÇÜK(EĞER($E$2<>"";EĞER($E$2=#BAŞV!;SATIR($A$1:$A$88)));SATIR(P1));SÜTUN(P$1)));"")

[feraz]

Formüller tüm hatalı.

[düşünceli]

Formüller tüm hatalı.

Sayfaları sildiğim için hatalı gözüküyor. Sayfaları ekleyip başvuru hatalarının sadece sayfa isimleri tanıtılırsa hata ortadan kalkıyor

[feraz]

ücret bordrosu sayfasınında sonuç nasıl olacak örnekleyebilirmisinizexcel içinde hatasız formülle.

Bu şekilde dosya eklemeniz gerekiyor.Mesela B13 e B19 a nasıl olacak.

[düşünceli]

Formüller tüm hatalı.

Sayfaları sildiğim için hatalı gözüküyor. Sayfaları ekleyip başvuru hatalarının sadece sayfa isimleri tanıtılırsa hata ortadan kalkıyor

Benimde tam anlatmak istediğim de bu zaten. Sayfaları eklediğimde ücret bordrosu sayfasında formülleri yeniden düzenlemek zorunda kalmam. Sizin de karşılaştığınız formül hatalarını yeniden tanımlanan sayfalar da tekrarlamasını önlemek.(

[düşünceli]

[quote="feraz"]ücret bordrosu sayfasınında sonuç nasıl olacak örnekleyebilirmisinizexcel içinde hatasız formülle.

Bu şekilde dosya eklemeniz gerekiyor.Mesela B13 e B19 a nasıl olacak.[/quote/]
Pazartesi gününe kadar bilgisayara ulaşmam mümkün değil. Rica etsem giriş sayfasında bulunan kopyala butonuyla sayfaları oluşturun. Sonrasında ücret bordrosu sayfasında hatalıformüllerde hücre değerlerine dokunmadan başvuru adresine sayfa ismini yazın hepsi bu.

[feraz]

B19 a hatalı yerlere sayfa isimleri yazılamaz.

Kod: Tümünü seç

=EĞERHATA(EĞER($E$2<>"";İNDİS(#BAŞV!;KÜÇÜK(EĞER($E$2<>"";EĞER($E$2=#BAŞV!;SATIR($A$1:$A$88)));SATIR(A1));SÜTUN(A$1)));"")

[feraz]

B13 e ve B19 a ve B25 e sayfa adlarımı gelecek.içeriği bilmeyince düşünüp duruyorum:)

[düşünceli]

B13 e ve B19 a ve B25 e sayfa adlarımı gelecek.içeriği bilmeyince düşünüp duruyorum:)

Bahsettiğiniz kısımlar birleştirilmiş hücreler. Formüller dizi formulü olduğu için birleştirmeyi kaldırmalısınız. Bahsettiğiniz kısıma örnek bordroya bakarak bahsettiğiniz hücrelere o gelecek. Yani b19 a örnek bordroda göreceğiniz üzere 1 gelecek

[feraz]

Ben başka türlü birşey deniyorum basit bir formülde.

Çünkü çok formül var ve karışık.Uygulamayı bitirirsem aynı mantığı formüllere uygularız.

[feraz]

Kodları alttaki gibi yaptım.ücret bordrosu AG sütununa örnek olarak sayfa isimlerini getirttim kod ile.
Orjinal formüller eklenmeli bu mantığa göre(gerçi o kadar formüle ömür yetermi bilmiyorum)
Yani kodları deneyebilirsin mantık böyle.

Kod: Tümünü seç

Dim syf1 As Worksheet, syf2 As Worksheet, syf3 As Worksheet, syf68 As Worksheet

Kod: Tümünü seç

Sub Kopya()

Dim syf As Worksheet
Application.DisplayAlerts = False
For Each syf In Worksheets
    If syf.Name <> "İÇİNDEKİLER" And syf.Name <> "giris" And syf.Name <> "sabitler" _
                                 And syf.Name <> "örnek bordro" And syf.Name <> "ücret bordrosu" Then
   
    syf.Delete
    End If
Next

    Call sayfalar

Application.DisplayAlerts = True
Set syf = Nothing 'Buraya kadar kodlar sabit olmayan sayfalari siler

    Dim c As Range
   
    For Each c In syf2.Range("B2", syf2.Cells(Rows.Count, 2).End(xlUp))
       syf1.Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = c.Value
    Next
   
   
Set syf1 = Nothing: Set syf2 = Nothing

Call formuller
   
End Sub

Kod: Tümünü seç

Sub formuller()

    Dim say As Integer
           
    Call sayfalar
           
         say = 0
Application.ScreenUpdating = False
            With syf3
           
            .[AG:AG].ClearContents
            For Each syf68 In Worksheets
                If syf68.Name <> "İÇİNDEKİLER" And syf68.Name <> "giris" And syf68.Name <> "sabitler" _
                                             And syf68.Name <> "örnek bordro" And syf68.Name <> "ücret bordrosu" Then
               
                    .Range("AG" & say + 13) = "='" & syf68.Name & "'!D3"
                    .Range("AG" & say + 14) = "='" & syf68.Name & "'!D4"
                    .Range("AG" & say + 15) = "='" & syf68.Name & "'!D5"
                    say = say + 6
               
                End If
            Next
            End With
   Application.ScreenUpdating = True
         syf2.Select
    Set syf68 = Nothing: say = Empty: Set syf1 = Nothing: Set syf2 = Nothing: Set syf3 = Nothing


End Sub