TextBox a toplam aldırma

[teksen]

Arkadaşlar merhaba,

Ekteki dosyamda, UserForm1 üzerinde Ürün,Tarih ve Adet bilgilerini kaydedip ListBox1 üzerinde görüntülüyorum.

alt tarafta bulunan TextBox üzerinde formülle Tarihe ait adet toplamını yazdırabiliyorum fakat ben bu işlemi formülle değilde form üzerinde bir kodla yapmak istiyorum.

ListBox1 de bulunan "Ocak" ayına ait "adet" toplamını TextBox4 e yazdırmam için nasıl bir kod kullanabiliriz acaba?

Şimdiden teşekkür ederim.

Herkese iyi çalışmalar.

 

[teksen]

arkadaşlar bunu kodlarla yapmanın bir yolu varmıdır acaba?

 

[hamitcan]

Private Sub UserForm_Initialize()
Sheets("Sayfa1").Select

son = [a65536].End(3).Row
ListBox1.ColumnCount = 3
ListBox1.RowSource = "Sayfa1!A1:c" & son '"a1:" & "n" & son
toplamal
End Sub

Sub toplamal()
For i = 2 To 6
 If Month(Cells(i, 2)) = 1 Then
 TextBox4 = Val(TextBox4) + Val(Cells(i, 3))
 End If
Next
End Sub

şeklinde dener misiniz ?

 

[teksen]

Sn.Hamitcan yardımlarınız için teşekkür ederim.

ListBox üzerinde görüntülenen Bilgilerde Tarihlere karşılık gelen adet toplamını bir textBox a yazdırmak istiyorum.

Fakat bunu yaparken sayfadan bilgi alarak değilde kodlarla almak istiyorum.

Ekte gönderdiğim dosyamda şu anda bu işlemi yapabiliyorum fakat yeni bir kayıt girdiğimde bir değişklik olmuyor.

Örneğin "Ocak" ayına ait toplamı TextBox4 e kodlarla yazdırmak istiyorum.ama yeni kayıt girildikçede toplamaya devam etmesi gerekiyor.

Şimdiden teşekkür ederim,iyi çalışmalar.

 

[teksen]

Sub toplamal()
For i = 2 To 6
If Month(Cells(i, 2)) = 1 Then
TextBox4 = Val(TextBox4) + Val(Cells(i, 3))
End If
Next


Bu kodla çalıştırabiliyorum fakat yeni kayıt eklediğimde sayıyı doğru göstermiyor.

Formu kapatıp açtıktan sonra ancak doğru değer geliyor.

 

[hamitcan]

Anladığım kadarıyla, form yardımıyla kayıt yapıyorsunuz. Ve yine, her kayıt yaptığınızda da ilgili ay toplamları, form içindeki ilgili textboxlara yazılsın istiyorsunuz.
Size önerim; öncelikle, form içinde hangi textboxlarda toplam almak istediğinizi belirleyin. Sonra "toplamal" makrosunu "kaydet" butonuna bağlayın. Tabii ki "toplamal" makrosunu her ay için ayrı ayrı düzenlemeniz gerekir.

 

[teksen]

Teşekkür ederim.

Kaydet butonunda çalıştırdım fakat değişik sayılar topluyor.

 

[hamitcan]

Tarih formatınızda bir uyumsuzluk var sanki, formatları tekrar gözden geçirmeniz gerekebilir. Bu yüzden de hata veriyor olabilir.

Private Sub CommandButton1_Click()
On Error Resume Next
son = Sheets("SAYFA1").[a65536].End(3).Row
Sheets("SAYFA1").Cells(son + 1, 1) = TextBox1
Sheets("SAYFA1").Cells(son + 1, 2) = TextBox2
Sheets("SAYFA1").Cells(son + 1, 3) = TextBox3
toplamal
UserForm_Initialize
End Sub
Sub toplamal()
For i = 2 To 6
If Month(Cells(i, 2)) = 1 Then TextBox4 = Val(TextBox4) + Val(Cells(i, 3))
If Month(Cells(i, 2)) = 2 Then TextBox5 = Val(TextBox5) + Val(Cells(i, 3))
If Month(Cells(i, 2)) = 3 Then TextBox6 = Val(TextBox6) + Val(Cells(i, 3))
Next
End Sub