Zam hesaplamasında Kod hatası

[polis-53]

Merhaba arkadaşlar ekte gönderdiğim dosyada Saat ücretleri Sayfasında Saat Ücretlerine zam yaptığım zaman Kodda hata veriyor bu kodu başka excel dosyasında denediğim zaman hata vermiyor bu dosyada neden hata veriyor. bi türlü bulamadan neden acaba

 

[Ömer]

Merhaba,

Kodu çalışma kitabındaki tüm sayfalarda çalışması için düzenlemişsiniz. Diğer safalardaki veri düzeninden dolayı hata alıyorsunuz.

Sanırım diğer sayfalarda kodun çalışmasını istemiyorsunuz.

Aşağıdaki gibi deneyin.

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
[COLOR=teal]'For i = 1 To Sheets.Count
[/COLOR][COLOR=teal]'For Each hucre In Sheets(i).Range("B5:F29")[/COLOR]
[COLOR=red]For Each hucre In Range("B5:F29")[/COLOR]
If hucre <> "" Then
hucre = CDbl(Format(hucre, "#,##0.00"))
End If
Next hucre
[COLOR=teal]'Next i[/COLOR]
End Sub

 

[polis-53]

çok teşekkür ederim Ömer bey