İki Sütunda Bulunan Değerleri Kod ile Çarpımını Almak

[mustafa1205]

Ek'te bulunan örneğimde de açıklama yapmaya çalıştım. D ve F sütunlarında bulunan hücrelere değer girildikçe H sütununda bulunan hücreye çarpım sonucunun otomatik olarak kod ile girilmesini istiyorum. Şimdiden teşekkür ederim.

 

[Greenblacksea53]

=F3*D3

Aşağıya doğru çekersen olur biter..

 

[TiOr]

Slm,
Deneyiniz;

Dosyanızda ektedir...

Sub MAKRO()
    With Sheets("HARCAMALAR").Range("H3:H500")
        .Formula = "=HARCAMALAR!D3:D500*HARCAMALAR!F3:F500"
        .Value = .Value
    End With
End Sub

Başarılar...

 

[mustafa1205]

Teşekkür ederim ancak sayfada otomatik olarak çalışacak bir kod gerekli. Hücreye veri girdikçe çalışacak.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("I1:ax5000")) Is Nothing Then Exit Sub
H = Target.Row
Cells(H, 8) = WorksheetFunction.Sum(Range("I" & H, "AX" & H))
End Sub

Bu tarz birşey. Ama yukarıdaki toplama yapıyor.

 

[TiOr]

Teşekkür ederim ancak sayfada otomatik olarak çalışacak bir kod gerekli. Hücreye feri girdikçe çalışacak

Buton ekledim bir tık zor olmasa gerek
Ekli dosyayı inceleyiniz...

 

[TiOr]

Tekrar Slm,

Sayfanın kod bölümüne deneyiniz;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 Or Target.Column = 6 Then
    Cells(Target.Row, 8) = Format(Cells(Target.Row, 4) * Cells(Target.Row, 6), "0")
    End If
End Sub

Başarılar...

 

[mustafa1205]

Valla mükemmel oldu. Çok teşekkür ederim. Elinize emeğinize sağlık.

 

[TiOr]

Valla mükemmel oldu. Çok teşekkür ederim. Elinize emeğinize sağlık.

Sn. @mustafa1205
Günaydın,
İlaveten; * işareti + yaparsan toplama işlemi - yaparsan çıkartma işlemi / yaparsan bölme işlemi vs... diğer işlemleri de rahatlıkla yapabilirsiniz.
İyi çalışmalar.

 

[YUSUF44]

Alternatif olarak tablonuzu Tablo olarak biçimlendirip veri girişi yapmanızı öneririm. Hem formüller için uğraşmanıza gerek kalmaz hem de boş hücreleri biçimlendirmek için uğraşmazsınız. Böylece dosyanız da hafiflemiş olur.

 

[mustafa1205]

İlaveten; * işareti + yaparsan toplama işlemi - yaparsan çıkartma işlemi / yaparsan bölme işlemi vs... diğer işlemleri de rahatlıkla yapabilirsiniz.
İyi çalışmalar.

Bilgilendirme için Çok teşekkür ederim Sayın Tior. Tekrar emeğinize sağlık.

 

[mustafa1205]

Alternatif olarak tablonuzu Tablo olarak biçimlendirip veri girişi yapmanızı öneririm. Hem formüller için uğraşmanıza gerek kalmaz hem de boş hücreleri biçimlendirmek için uğraşmazsınız. Böylece dosyanız da hafiflemiş olur.

Yusuf Hocam teşekkür ederim. Zaman zaman dosyada şişmeler oluyordu. Güzel bir çözüm . Çok Sağolun

 

[YUSUF44]

Yusuf Hocam teşekkür ederim. Zaman zaman dosyada şişmeler oluyordu. Güzel bir çözüm . Çok Sağolun

Tablo olarak biçimlendirmenin bir avantajı da satır eklemek için ayrı işlem yapmanıza gerek yoktur. Tablonun en son hücresindeyken TAB tuşuna bastığınızda tabloya aynı özellikleri taşıyan (varsa formülleriyle birlikte) yeni bir satır ekler.