Sütunlar arası çarpım işlemi

[Galus]

Örnekte sunulduğu üzere C ve D sütunlarına belirlenen yerlere rakam girildiğinde E sütunundaki satırına sonucu yazsın. Formül ile değil makro ile nasıl yapabiliriz?

Teşekkürler..

 

[omerceri]

Aşağıdaki kodu Sayfa1'in kod sayfasına yapıştırın, Aynı satırda C ve D sütunlarına sayı girilip ve E sütununa geçildiğinde çarpım işlemini yapar.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 5 And IsNumeric(Cells(Target.Row, "C")) And IsNumeric(Cells(Target.Row, "D")) Then
Target.Value = Cells(Target.Row, "C") * Cells(Target.Row, "D")
End If
End Sub

Eğer çarpma işlemini yaptıktan sonra bir alt satırda c sütununa geçmesi isteniyorsa End if ten önceki satıra
Cells(Target.Row+1, "c") .Select
kodu ilave edilebilinir.

 

[Galus]

Sayın omerceri,

Destek, ilgi ve bilgilerinize teşekkürler...

Saygılarımla...

 

[Galus]

Sayın omerceri,

Makro sadecene E sütununda sonucu istenen hücreye tıklayınca çalışıyor. Otomatik olarak E sütununa tıklamadan C ve D ye rakam yazınca E de sonucunu nasıl yazdırırız?

Teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Hücre As Range
    
    If Intersect(Target, [C4:D24]) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then
    For Each Hücre In Selection
    If (Hücre.Column = 3 Or Hücre.Column = 4) And Hücre.Value = Empty Then
    Cells(Hücre.Row, "E") = Empty
    End If
    Next
    Exit Sub
    End If
    If Target = Empty And Target.Next = Empty Then Cells(Target.Row, "E") = Empty: Exit Sub
    If Target.Column = 3 And IsNumeric(Target) Then
    Cells(Target.Row, "E") = Target * Target.Next
    ElseIf Target.Column = 4 And IsNumeric(Target) Then
    Cells(Target.Row, "E") = Target * Target.Previous
    End If
End Sub

 

[Galus]

Saygılarımı arz ederim sayın uzmanım. Teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Kodda küçük bir ayrıntıyı atlamışım. Üstteki mesajımdaki kodu revize ettim. İncelermisiniz.

 

[Galus]

Son halini aldım. Teşekkürler...