İki sütündaki değerleri toplayıp kaydeden kod

[ferhatgurbuz]

A sütununda aylık matrahlar var. AB sütununda ise Toplam vergi matrahı var. Bir buton yardımı ile istediğim zaman A sütunu ile AB sütununu taplayacağım ve yine en son toplam AB sütununda olmalı.

 

[mehmett]

Sorunuzu örnek bir dosya ile açıklar mısınız?

 

[ferhatgurbuz]

toplama işlemi

AN11 hücresi ile BJ11 hücresini toplayacak ve Toplam BJ11 hücresinde olacak.

 

[ferhatgurbuz]

Bir buton ile iki sutun nasıl toplanır

A sütünu ile b sutunundaki değerleri bir buton ile toplamak istiyorum.

 

[Recep İpek]

Sub Button1_Click()
toplam = Application.WorksheetFunction.Sum([a:b])
MsgBox toplam
End Sub

gibi mi?

 

[ferhatgurbuz]

Şöye bir şey Bj11 hücresi ile AN11 hücresi toplanacak ama toplam yine BJ hücresinde olacak. Yardım ederseniz çok sevinirim. Bekliyorum.

 

[Recep İpek]

Sub Button1_Click()
[bj11] = [bj11] + [an11]
End Sub


kodunu deneyiniz.

 

[Skorpiyon]

Sayın ferhatgurbuz,

Butonunuzun altına bu kodları yapıştırarak bir deneyin. Dilerim işinizi görür.

Private Sub CommandButton4_Click()
For a = 1 To WorksheetFunction.CountA(Worksheets("Data").Range("BJ11:BJ65536"))
Cells(a + 10, 62).Value = Cells(a + 10, 62).Value + Cells(a + 10, 40).Value
Next a
End Sub

Saygılarımla...

 

[ferhatgurbuz]

ya taksit taksit oldu ama kusura bakmayın. Peki bunu diğer hücrelere nasıl uygularım. Örneğin bj11 den bj 211 e kadar tüm hücrelerin bu şekilde toplanması lazım

 

[Recep İpek]

Sub Button1_Click()
For i = 11 To 211
Cells(i, "bj").Value = Cells(i, "bj").Value + Cells(i, "an").Value
Next i
End Sub

olarak deneyin.

 

[ferhatgurbuz]

Tek kelimeyle harikasınız. Teşekkür ederim. satır sayısı benim dosyadakinden fazla olsa bir sorun olurmu yani kodda uyarlamam gereken bir sey varmı. örneğin an11 den an275 e kadar satır olsa bir şey değişirmi

 

[Recep İpek]

örneğin an11 den an275 e kadar satır olsa bir şey değişirmi

For i= 11 To 211 rakamlarını düzeltmeniz yeterli olacaktır.

11=başlangıç
211=bitiş

211 yerine 275 gibi...

 

[ferhatgurbuz]

Arkadaşlar hepinize çok teşekkür ederim. Hayırlı akşamlar diliyorum. İyi tatiller.