Makroda toplama

[TİKOS]

Arkadaşlar, dosyada açıkladım.
yardım ederseniz sevinirim.

Teşekkürler

 

[hamitcan]

Eki inceleyin.

 

[TİKOS]

makro toplama

Hamitcan hocam,
çok teşekkür ederim.
Sizden ricam yazdığınız kodu bana açıklayabilirmisiniz kısaca eğer vaktiniz varsa
öğrenmeye çalışıyorum.

Teşekkürler

 

[hamitcan]

Dilim döndüğünce birşeyler yazdım, umarım faydalı olur.

Private Sub CommandButton1_Click()
ay = tarih.ListIndex + 2 'combobox da seçilen elemanın sırası + 2 (sıfırdan başladığı için ve sayfada ilk satır başlık olduğu için)
For i = 1 To 8 '1 den 8 e kadar textboxlara toplam alıncağı için
Controls("textbox" & i) = WorksheetFunction.Sum(Range(Cells(2, i + 3), Cells(ay, i + 3))) '2 satırdan başla ayın bulunduğu satıra kadar topla
'(i+3) toplam işlemi D sütunundan başlayacağı için +3 ekle

t = Val(t) + Val(Controls("textbox" & i)) ' 1 den 8 e kadar textboxları topla

Next
TextBox9 = (t - Val(TextBox1)) / TextBox1 'toplamdan üretim miktarını düş, toplamı üretim miktarına böl
End Sub

 

[TİKOS]

çok teşekkür ederim