VBA Ile Bulunulan Satirin Toplamini Alma

Excel VBA Ile Bulunulan Satirin Toplamini Alma

[quote author=”- Mustafa ÇALIŞKAN”]

Merhaba arkadaşlar size bir soru sormak istiyorum. Vbde hiç iyi olmadığım için yaptığım tabloda tıkandım. yardım ederseniz sevinirim.

B sütunundan K stünuna kadar olan değerlerin toplamını M sütununa aktarmasını yaptım bu aktarma her satır için kendi aralarında yapıyor benim istediğim örneğin 25. satırda B’den Kya kadar olan herhangi bir sütuna bir değer girdiğimde onu M sütununa attığında ayrıca R1 sütununa da atması bu R1 sütunu bütün M sütunnlarına bağlı olması ve ben hangi satırdaysam o satırın M sütununu R1 de göstermeli. örnek dosyayı ekde gönderiyorum..

Yardımlarınız için teşekkür ederim. Saygılarımla Mustafa ÇALIŞKAN.

[/quote]

Merhabalar Mustafa Bey,

Anladigim kadariyla isteginiz belirli sutunlar icerisinde islem yaptiginizda o sutunlarin toplamini M sutununa toplamasi ve secili bulunulan satirin toplaminin R1 hucresine yailmasi ile ilgili.

VB ile bu tarz islemeler yaparken Select Case yapisi kullaniriz. Sizin isteginizdeki Case`imiz sutun sayilari olucak yani B sutunu ile K sutunu olan araliginizi 2-11 olarak belirleyecek ve bu aralikta islem yapilmasi dahilinde M sutununa toplma almasini isteyecegiz.

Sizin dosyaniz icin olan kodlarimizi paylasalim;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Select Case Target.Column
Case 2, 3, 4, 5, 6, 7, 8, 9, 10, 11
Cells(Target.Row, "m").Value = Application.WorksheetFunction.Sum(Range("b" & Target.Row & ":k" & Target.Row))
Cells(1, "r").Value = Application.WorksheetFunction.Sum(Range("b" & Target.Row & ":k" & Target.Row))

End Select

End Sub

Ornek dosyanizi da asagida bulabilirsiniz iyi calismalar..

 

Yazar: demo demo

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


5 + 8 =