VBA Çarpma işlemi

[cemshan]

Merhaba Arkadaşlar B2 sutunundaki değeri C2 sutunundaki değer ile çarpsın sonucu d2 e yazsın

Bu işlem Son dolu satıra kadar devam etsin istiyorum

yardımlarınız için şimdiden teşekkür ederim

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

sub carp()

for a=2 to [a1048576].end(3).row
cells(a,"d")=cells(a,"b")*cells(a,"c")
next

end sub

 

[cemshan]

Teşekkür ederim .

 

[cemshan]

Kendi çalışma sayfama göre aşaüıda gibi güncelledim Ancak çok uzun sürüyor ve hata veriyor .

Sub carp()

For a = 2 To [a1048576].End(3).Row
Cells(a, "ag") = Cells(a, "ae") * Cells(a, "af")

Next

End Sub

 

[cemshan]

Kendi çalışma sayfama göre aşaüıda gibi güncelledim Ancak çok uzun sürüyor ve hata veriyor .

Sub carp()

For a = 2 To [a1048576].End(3).Row
Cells(a, "ag") = Cells(a, "ae") * Cells(a, "af")

Next

End Sub

Sadece Bu kodu çalıştırdığımda sorun olmuyor diğer kodlarımdan kaynaklanıyor sanırım .

Ellerinize sağlık teşekkür ederim