Soru Makro formülü uyarlama

[sedat2161]

Hayırlı akşamlar sayın hocalarım.
Dosyamda bulunan kodu bi türlü kendi dosyama uyarlayamadım. Yardımlarınızı bekliyorum. C sütunu ile D sütunu çarpıp E sütununa sonucu yazmak istiyorum. Butona yazılı kod ekli dosyamdadır.

 

[antonio]

Merhaba.
Kodlarınızı inceledim. Birincisi son satırı bulma kodu dosyanıza uygun değildi, ikincisi de çarpma işleminin hatasız çalışması için her iki hücrede (C ve D sütunları) sayısal veri olmalı. Dosyanızdaki kodları aşağıdakilerle değiştirip deneyiniz:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim s3 As Worksheet, son As Long, i As Long
Set s3 = Sheets("ZZ")
son = s3.Range("B" & Rows.Count).End(3).Row
For i = 17 To son
    If IsNumeric(s3.Cells(i, "C")) And IsNumeric(s3.Cells(i, "D")) Then
        s3.Cells(i, "E").Value = _
            Format((s3.Cells(i, "C") * 1) * _
            (s3.Cells(i, "D") * 1), "#,##0.00") * 1 'B3*C3 "çarp
    End If
Next i

Set s3 = Nothing: son = 0: i = 0
Application.ScreenUpdating = True
End Sub