ÜCRET ZAMMI

[polis-53]

Merhaba arkadaşlar ekte gönderdiğim dosyada zam butonuna tıkladığımda hata veriyor. yardım ederseniz sevinirim.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodları kullanın..

Sub Zam()
    Range("G4 ").Copy
    Range("B6").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply
    Range("B6").Select
    Application.CutCopyMode = False
    Dim hucre As Range, i As Integer
    For i = 1 To Sheets.Count
        For Each hucre In Range("B6:F42")
            If hucre <> "" Then
                hucre = CDbl(Format(hucre, "#,##0.00"))
            End If
        Next hucre
    Next i
End Sub

 

[polis-53]

teşekkür ederim