kod

[damra2005]

Private Sub Aralık()
Workbooks("Personel").Sheets("Sayfa30").Range("b1:c25").Numeric = True
End Sub


b1 ile c25 arasında hücreleri sayı olarak tanıtmak istiyorum. Ama yukarıdaki kodda hata veriyor.bu veya buna benzer bir kodla sayı olarak tanıtılabilirmi.

 

[Levent Menteşoğlu]

Tanımladığınız aralıktaki verileri sayıyamı dönüştürmek istiyorsunuz yoksa bu aralığa sadece sayısal veri girilmesine izinmi verilmesini istiyorsunuz.

 

[damra2005]

Sayısal bilgi girmek istiyorum.

 

[damra2005]

vede excel sayfasına aktarılırken sayı olarak aktarılmasını istiyorum

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa30 un kod sayfasına kopyalayarak deneyin.

[vb:1:7ebfa6283b]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 25 Or 3 < Target.Column Or Target.Column < 2 Then Exit Sub
If IsNumeric(Target) = False Then
MsgBox "SADECE SAYISAL VERİ GİRİLEBİLİR"
Target.ClearContents
Target.Select
End If
End Sub[/vb:1:7ebfa6283b]

 

[damra2005]

üstadım çok teşekkürler ufak bir sorun kaldı oda sayfa30 aktarıldıktan sonra veriler hücrelerin köşesinde metin olarak saklanan sayı hata uyarısı veriyor . direk sayı olarak textboxtan sayfa otuzdaki hücreye atabilirmiyiz

 

[Levent Menteşoğlu]

Bunun için textboxtan aktardığınız veriyi "1" bir ile çarparak aktarın. Ã?rneğin;

[b10]=Textbox1*1

 

[Levent Menteşoğlu]

Madem textbox ile verileri sayfaya aktarıyorsunuz, sayfanın yerine Textboxada sayı kontrolü yapılabilir. Bunun içinde aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=7193&highlight=sadece+rakam*