ücret zammı

[polis-53]

merhaba arkadaşlar aşağıda gönderdiğim kodda önceden zam yapabiliyordum şimdi hata veriyor yardımlarınız için teşekkür ederim.

Sub Düğme2_Tıklat()
Range("E2").Copy
Range("B5").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply
Range("B5").Select
Application.CutCopyMode = False
Dim hucre As Range, i As Integer
'22 For i = 1 To Sheets.Count
'22 For Each hucre In Sheets(i).Range("B5:F29")
For Each hucre In Range("B5:F29")
If hucre <> "" Then
hucre = CDbl(Format(hucre, "#,##0.00"))
End If
Next hucre
'222 Next i
End Sub

 

[Muzaffer Ali]

Bu kod ile nasıl zam yapıyordunuz? Onu da açıklar mısınız?
Mümkünse örnek dosya ekleyiniz.

 

[polis-53]

ÖRNEK DOSYA ADRESİ
https://www.dosyayukle.biz/6qf

 

[BAZGİRET]

Merhaba;
Kodun 10, 11 ve 17. satırlarını silip deneyin.

 

[polis-53]

teşekkür ederim