DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Application.Intersect(Target, ActiveSheet.Range("h1:h65536"))
If Not rng Is Nothing Then
sat = Target.Cells.Row
Cells(sat, 12) = Cells(sat, 3).Value * Target.Cells + Cells(sat, 12)
End If
Set rng = Nothing
End Sub