Hesaplama İşlemi

[musaagac]

Arkadaşlar Ekte Göndermiş olduğum dosyada Bordro Kısmındaki İkinci Satırdaki gelir Vergisi ve Damga Vergisini elden hesaplarsak 35,10 Yapması lazım ama sistem yuvarlamadan dolayı yani virgünden sonra 2 basamağı hesaba katması lazım iken diğerlerinide hesaba katıyor bu konuda yardım edebilirmisiniz. Genel Toplamda da aynı sorunu veriyor. Sistem Koruma Şifresi 3872529

dosya Ekte

 

[Necdet]

Merhaba,

Sorunuzu pek anlamadım, bunu bordroculara bırakarak, satır gizle/göster makrosunda değişiklik yaptım. Benimde katkım bu olsun

Private Sub ToggleButton1_Click()
    Dim Son As Long
    On Error Resume Next
    Application.ScreenUpdating = False
    
    If ToggleButton1.Value = True Then
    
        ActiveSheet.Unprotect "3872529"
        ToggleButton1.Caption = "Göster"
        
        Son = Cells(Rows.Count, "A").End(3).Row - 1
        Range("B5:B" & Son).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
        ActiveSheet.Protect "3872529"
        
    Else
    
        ToggleButton1.Caption = "Gizle"
        ActiveSheet.Unprotect "3872529"
        Cells.EntireRow.Hidden = False
        
    End If
    
    ActiveSheet.Protect "3872529"
    Application.ScreenUpdating = True
End Sub

 

[musaagac]

Hesaplamada Ekrandaki Gözüken Değerleri Olduğu gibi alarak hesaplamasını istemekteyim

 

[musaagac]

Gizle Göster Komutana yazmış olduğunuz makroda B hücresine şart yazdım Boş geçiyor bu pozisyonda boş geçenleri nasıl gizleyeceğim

 

[musaagac]

Hesaplama Hatasını gideremedim Yardımcı olan yok mu. Yukarı yuvarla ve Yuvarla komutu ile yapamadım.

 

[musaagac]

Sorun Giderilmiştir. Tşk Ederim Ederim.