textboxtaki sayıların sayfaya aktarılmasında hata

[damra2005]

ekli dosyada sayfa1 'de userform da bulunan textboxlarla sayfa1 deki ilgili hücrelere kayıt yapabiliyorum. buraya kadar normal. Sorun bundan sonra başlıyor. sayfa2 deki hücrelere sayfa1 den alınan sayılar toplam başlığının altında toplanması gerekirken hiç bir işlem yapılmıyor. sebebini bir türlü anlayamadım. belki bu konuda üstadların canını farkında olmadan sıkmışımdır. ama şimdiden özür dilerim.

 

[htsumer]

Sayıları text olarak atadığından toplama yapmıyor.
Basit olmayan bir çözüm vereyim.
Kaydet butonuna ait;

Private Sub CommandButton1_Click()
....
..
.
Next' Satırından sonra aşağıdakileri ilave edin.

Sheets("Sayfa2").Select
    Range("A6").Select
    Selection.Copy
    Sheets("Sayfa1").Select
    Range("B1:AF27").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
    Range("B1").Select
Application.CutCopyMode = False
End Sub

Burada satır sıraları örneğinizdeki sıraların sayısı kadar sınırlıdır .Satı eklerseniz veya sayfa adını değiştirirseniz bunlarıda güncellemeniz gerek.
Daha basit çözümüde var ama vaktim yok.

 

[ipkins]

Cells(sira, x) = Controls("textbox" & x - 1) * 1 satırı bu şekilde yazarsanız sanırım sorununuz çözülür

 

[damra2005]

sayfa1 de a1 hücresine Adı soyadı yazıyorum listboxta bu da çıkıyor. listbox1 de nasıl a2 satırından itibaren verileri sıralatabiliri.

 

[ipkins]

listbox1 in properties penceresinde rowsource bölümünü a1:a100 yazan yerini a2:a100 yaparsanız sorun çözülür

 

[damra2005]

çok teşekkürler