Soru kod ile çıkarma ve çarpma işlemi

[TUNCA ERSİN]

Sy. Hocalarım ;

aşağıdaki kodu nasıl düzelte biliriz. hata veriyor.
For i = 2 To 9000 ' çıkarma işlemi
Sheets("Kont.").Cells(i, "h") = ((Sheets("Kont.").Cells(i, "d") - Cells(i, "e")) * (Cells(i, "c")))

formül şekli bu =EĞERHATA((D3-E3)*C3;"")

teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.

Deneyiniz.

Sub Test()
    With Range("H2:H" & Cells(Rows.Count, "D").End(xlUp).Row)
        .Formula = "=IFERROR((D2-E2)*C2,"""")"
        .Value = .Value
    End With
End Sub

 

[TUNCA ERSİN]

Sy. @Muzaffer Ali ;

Hocam hem çok geç işlem yapıyor hem de hata veriyor.

 

[Muzaffer Ali]

Kodu sayfanı change olayına eklemişsiniz bu yüzden uzun sürüyor ve hata veriyor.

Aşağıdaki kodu deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("C:E"), Target) Is Nothing Then
        If IsNumeric(Cells(Target.Row, "C")) And IsNumeric(Cells(Target.Row, "D")) And IsNumeric(Cells(Target.Row, "E")) And _
            Not IsEmpty(Cells(Target.Row, "C")) And Not IsEmpty(Cells(Target.Row, "D")) And Not IsEmpty(Cells(Target.Row, "E")) Then
            Cells(Target.Row, "H") = (Cells(Target.Row, "D") - Cells(Target.Row, "E")) * Cells(Target.Row, "C")
        Else
            Cells(Target.Row, "H") = ""
        End If
    End If
End Sub

 

[TUNCA ERSİN]

Sy. @Muzaffer Ali ;

Hocam sadece 2. satır için işlem yapıyor 5 binden fazla veri var kopyala yapıştır. yapınca çalışması gerekiyor birde teşekkür ederim.

 

[Muzaffer Ali]

Kopyala yapıştır yaptıktan sonra ilk gönderdiğim kodu bir kere çalıştırmanız yeterli.

 

[TUNCA ERSİN]

Sy. @Muzaffer Ali ;

Hocam teşekkür ederim. ilk kodu uyguladım oldu.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.