contact@exceltr.com

ExcelTR - Microsoft Excel Eğitim Sitesi

Görsel Video Microsoft Excel Eğitim Sitesi
1 Mar 2012

VBA Ile Bulunulan Satirin Toplamini Alma

/
Yazar:
/
Yorumlar0
/

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..

 

Cevap bırakın


7 + 1 =