TEXTBOX`DA -0123456789 YERİNE 0123456789 GÖRÜNÜMÜ

Katılım
24 Mayıs 2005
Mesajlar
462
Excel Vers. ve Dili
Excel 2003 Türkçe
Arkadaşlar, herkese selamlar bir konuda bilgi almak istiyorum.

Private Sub UserForm_Activate()
On Error Resume Next
TextBox40.Value = Cells(1, 40)
Dim FSO As Object, Surucu As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Surucu = FSO.GetDrive("C:")
Seri = Surucu.serialnumber
TextBox2.Text = Seri
If ((TextBox2.Text * TextBox31.Text) + TextBox41.Text) = Cells(1, 27) Then
UserForm4.Show
Exit Sub
Else
MsgBox "KAYITLI KULLANICI DEĞİLSİNİZ..."
Unload Me
UserForm25.Show
TextBox1.SetFocus
Set Surucu = Nothing
Set FSO = Nothing
End If
End Sub

Textbox2.Text = Seri kodu ile örneğin -0123456789 sayısı textbox2`e userform açıldığında geliyor.

Yapmak istediğim, -(eksi) işaretinin görünmemesi. Yani 0123456789 olarak görünsün.

Bu konuda yardımcı olursanız sevinirim. Saygılarımla :hey:
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
denemedim ama;

Kod:
textbox2.text= replace(seri,"-","")
 
Katılım
24 Mayıs 2005
Mesajlar
462
Excel Vers. ve Dili
Excel 2003 Türkçe
Sayın Haluk bey, elinize sağlık denedim oldu. Çok teşekkür ederim. Saygılarımla. :dua:
 
Üst