Merhaba Arkadaşlar,
Aşağıdaki koda şu özelliği nasıl ekleyebilirim ?
Kırmızı yere Aynı satırdaki E sütunundaki veriyi getirecek kod nasıl olmalıdır ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 8 And Target.Column < 20 Then
Application.EnableEvents = False
Target.Offset(0, 1) = Target.Value * "aynı satırdaki 5. sütun E sütunundaki rakam ile çarpsın"
Application.EnableEvents = True
End If
End Sub
Aşağıdaki koda şu özelliği nasıl ekleyebilirim ?
Kırmızı yere Aynı satırdaki E sütunundaki veriyi getirecek kod nasıl olmalıdır ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 8 And Target.Column < 20 Then
Application.EnableEvents = False
Target.Offset(0, 1) = Target.Value * "aynı satırdaki 5. sütun E sütunundaki rakam ile çarpsın"
Application.EnableEvents = True
End If
End Sub