Aynı Satırdaki E Sütunundaki Veriyi Getir

baydeniro

Altın Üye
Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
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
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Buyurun.:cool:
Kod:
Target.Offset(0, 1) = Target.Value * Cells(Target.Row, "E").Value
 

baydeniro

Altın Üye
Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
müthişsiniz Orion1 üstadım. çok çok teşekkür ediyorum, Sağlıcakla kalın
 

baydeniro

Altın Üye
Katılım
26 Ocak 2007
Mesajlar
4,625
Excel Vers. ve Dili
Ofis 2016
Orion1 üstadım, aşağıdaki kodu gayet güzel çalışıyor. Ama şöyle bir sorun yaşıyorum. Yazılı veriyi silince hata kodu veriyor. Gerçi büyük bir sorun değil ama. Bunu gidermenin bir yolu var mı ?

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 * Cells(Target.Row, "E").Value
Application.EnableEvents = True
End If
End Sub
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Aşağıdaki kırmızı satırı ekleyin.:cool:
Rich (BB code):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 8 And Target.Column < 20 Then
On Error Resume Next
Application.EnableEvents = False
Target.Offset(0, 1) = Target.Value * Cells(Target.Row, "E").Value
Application.EnableEvents = True
End If
End Sub
 
Üst