verileri sayfalara göre kategorize etme

[hamitcan]

Son iki sorunuzu, farklı bir başlıkta sorun. Çünkü, konu, ilk sorunuzdan, farklı bir boyuta taşındı.

 

[manda]

Sayın Hamit bey dün akşamdan sahura kadar emin olun bununla uğraştım ama yapamadım.Eğer şu sorularımıda cevaplarsanız ki;ayrı konu açmayı düşündüm ama kaydet butonunu çalıştırmak için ne yapmak lazım diye soru biraz amatörce kaçar diye konu açmadım.Ama çalıştığım belge üstünde düşündüğüm yapmayı beceremedğim nice konular var ve sizlerin bilgilerinden ovakit yeni başlıklarda yardımlarınızı bekleyeceğim.Ama benim için büyük sizler için küçük olan bu çözüm önemli.....
Saygılarımla..

 

[thecarow]

Halit Hocam teşekkür ederim ilginiz için.Peki bu formülü yatay değilde dikey olarak nasıl toplama yaptırabiliriz.

 

[hamitcan]

Sayın Hamit bey dün akşamdan sahura kadar emin olun bununla uğraştım ama yapamadım.Eğer şu sorularımıda cevaplarsanız ki;ayrı konu açmayı düşündüm ama kaydet butonunu çalıştırmak için ne yapmak lazım diye soru biraz amatörce kaçar diye konu açmadım.Ama çalıştığım belge üstünde düşündüğüm yapmayı beceremedğim nice konular var ve sizlerin bilgilerinden ovakit yeni başlıklarda yardımlarınızı bekleyeceğim.Ama benim için büyük sizler için küçük olan bu çözüm önemli.....
Saygılarımla..

Formu kapatmak için.

Private Sub Label11_Click()
Unload Me
End Sub

Bilgileri kaydetmek için;

Private Sub Label8_Click()
    Range("A1").Select
    Do While Not IsEmpty(ActiveCell)
        ActiveCell.Offset(1, 0).Select
    Loop
    For i = 1 To 9
    ActiveCell.Offset(0, i - 1).Value = Me.Controls("TextBox" & i).Value
    Next i
    For i = 1 To 9
    Me.Controls("TextBox" & i).Value = ""
    Next i
End Sub

 

[manda]

Hamit bey ilginize alakanıza sonsuz teşekkürler.Elleriniz dert görmesin.Diğer sorunlarımın çözümünde ilgi alakanızı göstermeniz dileğiyle sağolun varolun.