Texbox'a girilen değeri sayı olarak hücreye aktarma

[teknadir]

Forumda uzun uzun aradım. Benimle aynı dertten muzdarip arkadaş sayısı epey çok. Hemen hemen hepsi de sorunlarına çözüm bulmuş. Aynı çözümleri kendi çalışmama uyguladım ama sonuç hep aynı. Sorun çözülmedi.
Gönderdiğim dosyada Programa Giriş/Tabela Giriş düğmeleri ile açılan formda sağ taraftaki textboxlara sayı giriyorum. Buraya girdiğim sayılar liste sayfasına aktarılıyor. Ama liste sayfasına metin olarak aktarılıyor. Bu aktarımı sayıya çeviremedim. Acaba nerede hata yapıyorum.

Private Sub CommandButton63_Click()
    Dim S1 As Worksheet, X As Integer
    Dim Y As Integer, Tarih As Range, Bul As Range
 
    Set S1 = Sheets("liste")
    Set Tarih = S1.Rows("1:1").Find(Calendar1.Value)
    If Not Tarih Is Nothing Then
        Y = Tarih.Column
 
        For X = 1 To 25
            If Me.Controls("ComboBox" & X) <> "" Then
                Set Bul = S1.Range("B:B").Find(Me.Controls("ComboBox" & X), , , xlWhole)
                If Not Bul Is Nothing Then
                    S1.Cells(Bul.Row, Y) = Me.Controls("TextBox" & X)
                End If
            End If
        Next
    End If
 
    Set S1 = Nothing
    Set Tarih = Nothing
    Set Bul = Nothing
 
    MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
End Sub

 

[Korhan Ayhan]

Merhaba,

Verdiğiniz kodu döngü kısmını aşağıdaki şekilde değiştirip deneyin.

        For X = 1 To 25
            If Me.Controls("ComboBox" & X) <> "" Then
                Set Bul = S1.Range("B:B").Find(Me.Controls("ComboBox" & X), , , xlWhole)
                If Not Bul Is Nothing Then
                    If Me.Controls("TextBox" & X) <> "" And IsNumeric(Me.Controls("TextBox" & X)) Then
                        S1.Cells(Bul.Row, Y) = CDbl(Me.Controls("TextBox" & X))
                    Else
                        S1.Cells(Bul.Row, Y) = Me.Controls("TextBox" & X)
                    End If
                End If
            End If
        Next

 

[teknadir]

Teşekkürler...

 

[teknadir]

Sayın Korhan Ayhan Bey;
Yukarıdaki mesajlarda sorunum çözülmüştü. Ancak ilgili textlere girdiğim ondalık değerler aktarılacağı sayfaya tam sayı olarak aktarılıyor. Ör: textboxa girdiğim 3,5 excele 35 olarak aktarılıyor. Bu da takvim nesnesi ile önceki tarihlere geri döndüğünde bilgiler hatalı oluyor.

 

[hımmmmmmmm]

slm

arkadaşım ben istifade edebileceğin türden bir şey yazayım... kotlar bana çok karışık geldi... gerek yok bu kadar çok kot yazmaya. ne kadar çok fuzuli satırlar var...

önce integer sayı tipini ,double yapıp dene.. olmuyosa aşağıdaki kodu macrona uygulamaya çalış...

Dim SAYI As Double                                      'sayı türü tanımı

SATIR = WorksheetFunction.CountA(Range("A:A")) + 1    ' Son boş satır

  For I = 1 To 3                                             '3 adet textbox var
      If Trim(Controls("TEXTBOX" & I)) <> "" Then         'textbox boş değilse
          SAYI = Controls("TEXTBOX" & I)                     'sayı textbox olsun
          Cells(SATIR, I) = SAYI                            'sayısı hücreye aktar
      End If
  Next I

sayı tipi double sayı tipi olmalı
textte rakam varsa sayısal yapar ve hücreye sayısal olarak yazar...

 

[Korhan Ayhan]

Merhaba,

Siz nesneye 3.5 mi yazıyorsunuz, yoksa 3,5 mi yazıyorsunuz?

Virgüllü sayılar için ekteki küçük örnek dosyayı inceleyebilirsiniz.

 

[CILEKESH]

Merhaba,

Siz nesneye 3.5 mi yazıyorsunuz, yoksa 3,5 mi yazıyorsunuz?

Virgüllü sayılar için ekteki küçük örnek dosyayı inceleyebilirsiniz.

Nokta (.) ile sayı girmesini hangi kodla engelleriz?

 

[teknadir]

Textboxlara ondalık sayı girerken (,) kullanıyorum.

 

[Korhan Ayhan]

Merhaba,

Nokta (.) ile sayı girmesini hangi kodla engelleriz?

Aşağıdaki linkteki konuyu inceleyin.

Textboxa girişte karakter kontrolü

 

[teknadir]

Textboxa girilen sayıyı otomatik olarak 2 ondalıklı yazdırmak mümkün mü?
Mesela 1 yazınca 1,00 3,5 yazınca 3,50 ye dönüşsün.

 

[CILEKESH]

Merhaba,



Aşağıdaki linkteki konuyu inceleyin.

Textboxa girişte karakter kontrolü

Çok güzel. Teşekkür Ederim.

 

[teknadir]

Merhaba,



Aşağıdaki linkteki konuyu inceleyin.

Textboxa girişte karakter kontrolü

Benim için çok faydalı bir paylaşım oldu. Teşekkürler.
ancak bütün bu makroları, makrolar içindeki terimleri, bu işin inceliklerini nasıl öğrenebiliriz?