baydeniro
Altın Üye
- Katılım
- 26 Ocak 2007
- Mesajlar
- 4,625
- Excel Vers. ve Dili
- Ofis 2016
- Altın Üyelik Bitiş Tarihi
- 20-02-2025
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