Ücretlerde Toplu Artış

[mbasaranyt]

ekli dosyada yardımlarınızı bekliyorum.

 

[usta07]

Hazırlamış olduğunuz butona ekleyiniz.

Private Sub CommandButton1_Click()
    Dim X As Long
    Application.ScreenUpdating = False
    For X = 4 To Range("I65536").End(3).Row
    If Cells(1, 1) > 0 Then
    Cells(X, "I") = (Cells(1, 1) + 1) * Cells(X, "I")
    End If
    Next
    Application.ScreenUpdating = True
    
End Sub

 

[mbasaranyt]

sayın USTA07 çok teşekkur ederim.
Fakat Çıkan Rakamları Tavana Yuvarlasın istiyorum

 

[ffff7]

Cells(X, "I") = (Cells(1, 1) + 1) * Cells(X, "I") satırını

Cells(X, "I") = WorksheetFunction.RoundUp((Cells(1, 1) + 1) * Cells(X, "I"), 0)

olarak değiştirin.

Bir de naçizane tavsiyemdir; para gibi önemli bir konuda değişimleri aynı sütunda üstüne yazarak değil de bir yanındaki sütuna yazdırarak değiştirin. Eski hali çok lazım olabilir.

İyi çalışmalar..

 

[mbasaranyt]

sayın ffff7 çok teşekkürler