Sorgu için arama sonuçları: bordro

@AyhanSen26 ; Aşağıdaki linkte yer alan dosyanın sizin dosyanıza uyarlanmış şekli ektedir.... https://www.excel.web.tr/threads/uecret-gelirlerinin-asgari-uecrete-isabet-eden-kismi-icin-gelir-ve-damga-vergisi-istisnasi-uygulanmis-netten-bruete-bruetten-nete-bordro-oernegi.198859/post-1111959 .

Forumdaki netten brüt olanların hepsi Vergi istisnasına göre güncel değil sadece bu arkadaşımız yapmış Gayet güzel https://www.excel.web.tr/threads/319-nolu-gv-tebligine-uygun-netten-bruete-bruetten-nete-bordro-oernegi.198916/post-1112340

https://www.gib.gov.tr/sites/default/files/fileadmin/user_upload/Tebligler/Taslaklar/gelir/gvktebtaslak319_07012022.pdf

...alakalı bir önceki ay devri ile vede dövize çevirmeli bir formül olduğu için bana yardımcı olacak bir formül yakalayamadım mevcut formüle yeni bordro sistemine göre formül sonuna asgari ücret vergi dışı tutarını düşmek için bir ilave yaptım kısmen işimi görüyor ancak hiç vergi kesilmemesi...

Geliştirilmiş, düzeltilmiş versiyonu. Netten Brüte Brütten Nete

...arkadaşlar çalışma dosyasındaki işkur, stajyer, ve yevmiyeli çalışanlardan gelir vergisi ve damga vergisi kesilmiyor mevcut formüle yeni bordro uygulaması ile ilgili sonuç alabilmem için gelir vergisi sütunundaki mevcut formüle -(4253,4*15%*I5) bir formül ilave ettim olmadı çünkü vergi...

...bir desteğe daha ihtiyacım var. Yardım istediğim nokta şu: Ekte ki dosyada hesaplamalar sayfasında yaklaşık 8500 satır 1 personelin 2 yıllık bordro hesaplaması var. Makro belirli rakamları netten bürüte yapmaya çalışıyor. 250 personelin her biri için 24 satır olduğundan dolayı herhangi bir...

https://www.resmigazete.gov.tr/eskiler/2021/12/20211225-2.htm

Dim S1 As Worksheet, S2 As Worksheet, Son, Sn As Long Application.ScreenUpdating = False Set S1 = Sheets("Bordro") Set S2 = Sheets("Arşiv") Son = S1.Cells(S1.Rows.Count, 2).End(3).Row If Son > 1 Then S1.Range("B2:X" & Son).Copy With S2.Cells(S2.Rows.Count, 2).End(3)(2, 1) .PasteSpecial xlValues...

...Lakin kırılım arttıkça işler zorlaştı. Bu sebeple bilen kişiler yardımcı olabilirse yol gösterirse sevinirim. GrupMuhasebe -> \\Muhasebe\Bordro\Maas GrupFinans -> \\Finans\Rapor\Yıllık Yukarıdaki gibi bir verim var. Yanyana yaparken aslında kolay formülümü ekleyip yapabiliyorum ve...

...en son dolu satırın bir alt satırına dikey olarak toplamlar alınacak. Bu haliyle çok güzel olacak ama fazla zahmet olmayacaksa bir de sayfanın üstünde 4 satırlık bir satır açılır kodlar ona göre revize edilirse çok sevinirim. o dört satıra okul ismi, bordro dönemi vs. yazacağım.Size zahmet.

Yatayara formülünüzün doğru çalışması için sonuna Sıfır ya da Yanlış ekleyin =YATAYARA("T.STOPAJ";BORDRO!$A1:$AM29;KAÇINCI($A19;BORDRO!$B$1:$B$29;0);0)

merhaba arkadaşlar. Ekteki dosyada personel sayfasına eklediğim personel sayısı kadar sayfa sayısını artırmak istiyorum . Son olarak bu artırılacak olan sayfaların alt kısmında bulunan genel toplam satıların tamamını GENEL TOPLAM sayfasına aktarmak istiyorum. Yardımlarını için teşekkür edeirm.

Pardon. Adresi değiştirin lütfen. Set Alan = Worksheets("Bordro").Range("A6:A30")

Ömer Bey, Yazdığınız kod daki Şu satırlar bordroyu tamamen süzüyor dolu hücreleride kapatıyor, Set Alan = Worksheets("Bordro").Range("A6:Q30") Alan.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

Sub GizleVeÖnizle() Set Alan = Worksheets("Bordro").Range("A6:Q30") Alan.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True Worksheets("Bordro").PageSetup.PrintArea = "$A1:$Q31" Worksheets("Bordro").PrintPreview '... ' Varsa diğer komutları araya girebilir ' Ya da bu makroyu diğer makronuzda...

Arkadaşlar Ekte görüldüğü şekilde bir Ödemeler Bordrosu var. Buraya Bilgilerimi VBA da kodladığım bir proğram aracılığı ile giriyorum. Proğramda Bir buton ile bu Bordro daki boş satırları süzdürmek ve Bordroyu yazdırmak için Önizleme yaptırmak istiyorum. Excel Sayfasının adı "Bordro" . Yardımcı...

...dosyayı da görmek gerekir. Aşağıdaki gibi dener misiniz, bakalım farklı sonuç oluşacak mı? Dim c As Range Set c = Sheets("Bordro").Range("B8:B58").Find(TextBox6.Text, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then MsgBox "Mükerrer Kayıt......" End If

Aralıktaki TC nolar ya da Textbox da yazdığınız TC No yanlış ya da hatalı olmadığı sürece neden Say = WorksheetFunction.CountIf(Sheets("Bordro").Range("B8:B50"), TextBox6.Text) bu satır sıfır sonucunu üretsin ki!! Sonuçta ilk mesajınızda bahsettiğiniz Mükerrer Kayıt mesajını alıyorsanuz tek...

Sheets("Bordro").Range("B8:B50") aralığınızdaki aradığınız kişinin yazılışlarını kontrol edin. Karekter ya da boşluk uyuşmazlığı vardır.