Makro İle Hücredeki Sayıyı Yazmak

[ormann]

İyi günler;
Ekli örnek dosyada B4:B7 hücre aralığındaki çapın karşısında bulunan D47 hücre aralığındaki hacmini c1515 hücre aralığına makro ile nasıl yazdırırız. Örneğin :C16 hücresine 30 yazdığımda D16 hücresine 415 yazacak,c20 hücresine 42 yazdığımda 916 yazacak vb..
Yardımcı olur musunuz;

http://dosya.co/w2s3ysuol776/örnek.xlsx.html

 

[Muzaffer Ali]

Merhaba.

Dosyanız hazır.
https://www.dosyaupload.com/5m22

Verilerin bulunduğu alan ile veri girişi yapacağınız alan aynı kolonda olmasa daha doğru olur.
Ben gerekli düzenlemeyi yaptım.

 

[ormann]

Çok teşekkür ederim.Tam istediğim şekilde çalışıyor.Sizden ricam yapmış olduğunuz kodu .Aşağıdaki makro ile birlikte nasıl çalıştırabiliriz.

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Target.Column < 11 And Target.Column > 12 Then Exit Sub
  If Intersect(Target, Range("K5:L65536")) Is Nothing Then Exit Sub
  Cells(Target.Row, "M") = WorksheetFunction.Round(((Range("k" & Target.Row) / 2) ^ 2 * 3.1415 * Range("l" & Target.Row)) / 10000, 3) * 1
End Sub

 

[Muzaffer Ali]

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Bulunamadi
    If Intersect(Target, Range("E3:E" & Rows.Count)) Is Nothing Or Target = "" Then Exit Sub
    Target(1, 2) = WorksheetFunction.VLookup(Target, Range("B:C"), 2, 0)
Bulunamadi:
    If Err.Number = 1004 Then
        MsgBox "Değer bulunamadı"
    End If

    On Error Resume Next
    If Target.Column < 11 And Target.Column > 12 Then Exit Sub
    If Intersect(Target, Range("K5:L65536")) Is Nothing Then Exit Sub
    Cells(Target.Row, "M") = WorksheetFunction.Round(((Range("k" & Target.Row) / 2) ^ 2 * 3.1415 * Range("l" & Target.Row)) / 10000, 3) * 1
End Sub

 

[ormann]

Benim eklediğim formül çalışmıyor.Birde E3:E hücresindeki herhangi bir veriyi sildiğim zaman F hücresindeki karşılığı da silinebilir mi?

 

[ormann]

Sayın hocam asıl dosyamda görüldüğü gibi sarı renkli yerde işlem yapıyor.Fakat yeşil renkli hücrede işlem yapmıyor.Birde C15:C hücresindeki herhangi bir veriyi sildiğim zaman D hücresindeki karşılığı da silinebilir mi?
http://dosya.co/r3gwr9piski6/Örnek.xlsm.html

 

[Muzaffer Ali]

Dosyanız hazır
https://www.dosyaupload.com/5m4m

 

[ormann]

Teşekkür ederim