Sn.
@bilisim2010
TextBox'a sadece userformun açılışında bir veri alıyorsanız ve TextBox içeriği hiç değişmeyecekse Inıtalize olayına,
yok eğer userformu kullanırken içeriği değiştiriliyorsa, bu verinin TextBox'a alınması sırasında şöyle bir işlem yaparak deneyin.
TextBox1.Value = Format(
aldığınız sayısal veri , "#,##0")
ömer bey ben yanlış ifade etmişim
textbox ile yazacağıma
texbox a veri çağırıyorum yazmışım
textbox ile listbox a aşağıdaki formül ile stok adına göre sayfadan veri çekiyorum rakamları yuvarlamıyor demek istiyorum excel boyutu biraz fazla olduğundan buraya atamadım kusura bakmayın ekte dosyada gördüğünüz gibi tutarları küsüratlı getiriyor listboxa örneğin en baştaki 274.150 olması lazım yanındaki diğer rakamlar fazlalık
Private Sub TextBox1_Change()
Dim S1 As Worksheet, Veri As Variant, Son As Long
Dim Ad As String, aranan As String, X As Long, say As Long
Set S1 = Sheets("Sheet3")
Son = S1.Cells(S1.Rows.Count, 1).End(3).Row
Veri = S1.Range("A14:M" & Son).Value
ReDim liste(1 To UBound(Veri, 2), 1 To 1)
On Error Resume Next
ListBox1.Clear
ListBox1.RowSource = ""
On Error GoTo 0
If TextBox1 <> "" Then
For X = LBound(Veri) To UBound(Veri)
Ad = UCase(Replace(Replace(Veri(X, 2), "ı", "I"), "i", "İ"))
aranan = UCase(Replace(Replace(TextBox1, "ı", "I"), "i", "İ"))
If Ad Like "*" & aranan & "*" Then
say = say + 1
For Y = 1 To UBound(Veri, 2)
ReDim Preserve liste(1 To UBound(Veri, 2), 1 To say)
liste(Y, say) = Veri(X, Y)
Next
End If
Next
If say > 0 Then
ListBox1.ColumnCount = 13
ListBox1.ColumnWidths = "75;380;75;75;75;75;120;75;75;75;75;75;75;75"
ListBox1.ColumnHeads = False
ListBox1.Column = liste
End If
Else
End If
End Sub
