.Cells(satır, 9) = CDbl(TextBox7.Text) Hakkında Yardım..

[stirra_ej]

Sayın arkadaşlar, 2 tane text boxum var satırlara hem sayı hemde metin girmem gerekiyor, alttaki formülü girmesem sayı olarak algılanmıyorlar, girsem metin girildiğinde hata veriyorlar, Allah aşkınıza yardımcı olabilirmisiniz. sayı ise sayı metin ise metin gibi bir formül yada basit bir yol izlenebilir mi..

.Cells(satır, 9).NumberFormat = "#,##0.00"
.Cells(satır, 9) = CDbl(TextBox7.Text)
.Cells(satır, 10) = TextBox8
.Cells(satır, 11).NumberFormat = "#,##0.00"

 

[Muzaffer Ali]

Merhaba.
Şöyle yapabilirsiniz.

If IsNumeric(TextBox7.Text) Then
    .Cells(satır, 9).NumberFormat = "#,##0.00"
    .Cells(satır, 9) = CDbl(TextBox7.Text)
Else
    .Cells(satır, 9) = TextBox7.Text
end if

 

[Haluk]

Aşağıdaki konu ne oldu ? .... Geri dönüş yapmadınız...

TextBox tan Çıkış Gerçekştirme (Numeric)

Textboxun içine sayı girmeme zorluyor, girmediğim zaman çıkış gerçekştiremiyorum... İstiyorum ki text box boş iken çıkış gerçekleştirebileyim, sadece sayı dışında metin v.s olursa çıkış yapamayayım. Bir yolu var mı acaba. Yardımcı olabilirmisiniz... Private Sub TextBox7_Exit(ByVal Cancel As...

www.excel.web.tr

.

 

[stirra_ej]

Merhaba.
Şöyle yapabilirsiniz.

If IsNumeric(TextBox7.Text) Then
    .Cells(satır, 9).NumberFormat = "#,##0.00"
    .Cells(satır, 9) = CDbl(TextBox7.Text)
Else
    .Cells(satır, 9) = TextBox7.Text
end if

Bunun anlamı nedir acaba

 

[Muzaffer Ali]

If IsNumeric(TextBox7.Text) Then 'Textbox7 içinde rakam varsa aşağıdakileri yap
.Cells(satır, 9).NumberFormat = "#,##0.00"
.Cells(satır, 9) = CDbl(TextBox7.Text)
Else ' EğerTextbox içindekiler rakam değilse aşağıdakini yap.
.Cells(satır, 9) = TextBox7.Text
end if

 

[stirra_ej]

Çok Teşekkür ederim.