hücrelere sayı biçimi atama

[Ayhan Ercan]

selam arkadaşlar.

userformumda 30 adet textbox var. bu textboxlara yazdığım "sayı" ları çalışma sayfamdaki hücrelere aktarılmasını , burdan da en son hücreye hücrelerin toplamını almasını istiyorum.
her şey normal oluyor. ancak textboxlara buçuklu sayı yazdığım zaman (yani 1,5) gibi bu sefer sayıyı hücreye aktarıyor ama sayı hücreye buçuklu olarak geldiğinde hücre o sayıyı "sayı" olarak tanımıyor ve toplamda yalnış topluyor. bu konuda bana yardımcı olabilirmisiniz? şimdiden teşekkür ederim.

 

[Ferhat Pazarçevirdi]

Aşağıdaki gibi bir kod kullanabilirsiniz. Kendinize adapte etmeniz gerekir.

Burada önemli olan nokta; hücreye yazdırmadan ve toplam almadan önce TextBox'larda yazan metni, Double bir sayıya çevirmektir.

Siz herhangi bir nesne olayına bu kodları atayabilirsiniz.

    Dim ctrl As Control
    Dim toplam
    Dim i As Integer
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is MSForms.TextBox Then
            If IsNumeric(ctrl) Then
                i = i + 1
                Cells(i, 1) = CDbl(ctrl)
                toplam = toplam + CDbl(ctrl)
            End If
        End If
    Next
    Cells(i + 1, 1) = toplam

 

[Ayhan Ercan]

teşekkür ederim. hemen denemeye koyulacam..

 

[Ayhan Ercan]

hocam dikkatimi çekti. belkide ben eksik bilgi vermiş olabilirim.
userformumda 30 textbox var derken eksik bilgi verdim herhalde. userformumda 30 dan fazla textboxum var ama bu uygulamayı sadece 30 tanesine vermek istedim. böyle olunca koda nasıl bir şey eklemem lazım:?

 

[Ferhat Pazarçevirdi]

Textbox sayısı önemli değil.

Bu kodlarla; Userform üzerindeki tüm textboxlar kontrol edilir ve A1 hücresinden başlayarak, Textboxlardaki değerler; aşağıya doğru yazdırılır. Sonrada en alta bunların toplamı yazılır.

 

[Ayhan Ercan]

pekii textboxlardan bazılarının double sayı olmasını istemiyorsam bi sorun olurmu? yani 3-5 tane textboxdaki veriler "sayı" değil "metin".

 

[Ferhat Pazarçevirdi]

Bu kodlarla; metin içeren Textbox'lar için bir işlem yapılmaz. Yani toplama dahil edilmez ve sayfaya yazdırılmaz.

 

[Ayhan Ercan]

teşekkürler.. denemeye calışıyorum..

 

[Ayhan Ercan]

beceremedim ((

hocam ben sana dosyamı yolluyorum. userformda sağ alt kısımdaki kaydet düğmesine tıkladığımda bu olayın olmasını istiyorum. bir bakarsanız sevinirim..

orda 1 den 31 kadar olan textboxlarımın çalışma sayfasına dediğim formatta aktarılmasını yapamadım. ((

 

[Ayhan Ercan]

yardımlarınızı bekliyorum...

 

[Ferhat Pazarçevirdi]

Dosyanız -bana göre- çok karışık. Hiçbirşey anlamadım desem yeridir. O nedenle yardımcı olamayacağım. Kusura bakmayın.