Makro ile çarpma

[fatih34]

sayın hocalarım herkeze iyi akşamlar diliyorum
benim sorum ekde gönderdiğim dosyada makro ile çarpma işleminin nasıl yapılacağı siteyi inceleyip örnekleri uygulamaya çalıştım ama beceremedim bu konularda yeni olduğumuzdan yardımlarınız için şimdiden teşekkürler

 

[Orion1]

Dosyanız ektedir.

Sub carp()
Dim i As Long, sat As Long
Application.ScreenUpdating = False
sat = Cells(65536, "C").End(xlUp).Row
Range("F5:F" & sat).ClearContents
For i = 5 To sat
    Cells(i, "F").Value = WorksheetFunction.Product( _
    Cells(i, "D").Value, Cells(i, "E").Value, Cells(i, "G").Value)
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[fatih34]

makroda çarpma işlemi

sayın evren hocam ilginize ve emeğinize teşekkür ederim.
evren hocamın göndermiş olduğu örnek dosyayı ekde göderdiğim ana dosyama tam olarak uyarlayamadım nerede yanlış yaptığımı bulamadım yardım ederseniz sevinirim.

 

[Orion1]

Dosyanız ektedir.

 

[fatih34]

Sayın evren hocam ilginize teşekkür ederim elinize ve bilginize sağlık Allah razı olsun sizler sayesinde az da olsa bir şeyler öğrenmeye çalışıyoruz

 

[Orion1]

Sayın evren hocam ilginize teşekkür ederim elinize ve bilginize sağlık Allah razı olsun sizler sayesinde az da olsa bir şeyler öğrenmeye çalışıyoruz

Rica ederim.
İyi çalışmalar.