Kodlarla Toplama

[ferhatgurbuz]

Aşağıdaki formülde Bordro sayfası üzerinde işlem yapılıyor.
Benim istediğim Bordro sayfasındaki AU sütunu ile Personel Bilgi sayfasındaki AT sutununu toplamak Ama Toplam Yine Personel bilgi sayfasında olsun.




Private Sub CommandButton3_Click()
Sheets("Bordro").Select
If MsgBox("Toplamak İstediğnden Eminmisin.", vbYesNo) = vbNo Then
Exit Sub
End If

For i = 11 To 335
Değer1 = 0
Değer2 = 0

If IsNumeric(Cells(i, "AU")) = True Then Değer1 = Cells(i, "AU")
If IsNumeric(Cells(i, "AT")) = True Then Değer2 = Cells(i, "AT")
Cells(i, "AU").Value = Değer1 + Değer2
Next i
End Sub

 

[Mahmut Kök]

Aşağıdaki formülde Bordro sayfası üzerinde işlem yapılıyor.
Benim istediğim Bordro sayfasındaki AU sütunu ile Personel Bilgi sayfasındaki AT sutununu toplamak Ama Toplam Yine Personel bilgi sayfasında olsun.




Private Sub CommandButton3_Click()
Sheets("Bordro").Select
If MsgBox("Toplamak İstediğnden Eminmisin.", vbYesNo) = vbNo Then
Exit Sub
End If

For i = 11 To 335
Değer1 = 0
Değer2 = 0

If IsNumeric(Sheets("Bordro").Cells(i, "AU")) = True Then Değer1 = Sheets("Bordro").Cells(i, "AU")
If IsNumeric(Sheets("Personel Bilgi").Cells(i, "AT")) = True Then Değer2 = Sheets("Personel Bilgi").Cells(i, "AT")
Sheets("Bordro").Cells(i, "AU").Value = Değer1 + Değer2
Next i
End Sub

Kırmızı yerleri ekleyerek deneyiniz.

 

[ferhatgurbuz]

Sayın Mesleki Özür dilerim Sanırım ben yanlış anlattım.
Şimdi Bordro sayfasının AT sütununda aylık matrahlar var. Ben mu matrahları Personel_Bilgi sayfasının AT sutununda topluyorum. Diyelimki 1. ay matrahları toplandı 2. ay matrahını da bordrodan alıp yine Personel_Bilgi sayfasındaki AT sutununu üzerinde toplayacak. Tekrar özür dilerim Karıştırmışım.