Textbox'da tırnak işaretini almasın.

[aliakgul]

Selam,
Ekteki çalışma,bir kitap kayıt programıdır.
1.Sorun: Kullanıcılar bazen kitap noya sayı girdikten sonra boşluk tuşuna da basabiliyor.Ekle dediğimde sadece girilen dolu karakterleri alması, boşlukları almaması...(145 ) örneğinde 5'den sonra boşluk tuşuna basılmış.EKLE dendiğinde (145) değeri alınmalı, boşluk alınmamalı.
2.Sorun:Kitap adı girerken özel isimlerin ekleri tek tırnakla ayrılmışsa bu tırnağı iptal etmesi gerekiyor. AHMET'İN diye girlilen veriyi AHMETİN şeklide almamız gerekiyor.(çünkü e-okul tırnakla ayrılan isimleri kabul etmiyor.)
Teşekkür eder, kolaylıklar dilerim...

 

[excel03]

merhaba;

Private Sub CommandButton1_Click()
sıra = WorksheetFunction.CountA(Range("b2:b65000"))
Dim a As Integer
a = WorksheetFunction.CountA(Range("b:b"))
h = UserForm1.ad.Value
f = Replace(h, "'", "")
Cells(a + 1, 1) = sıra + 1
Cells(a + 1, 2) = no.Value
Cells(a + 1, 3) = trim(f)
End Sub

 

[aliakgul]

Teşekkür ederim, kodlar sayesinde sorunu hallettim.Elinize sağlık...