Kaydetmede TextBox Format Sorunu

[programer]

Kaydet Komutunda Hücredeki verileri sayı olarak tanımıyor

Arkadaşlar aşağıdaki kodtaki sorunum kaydet dediğim zaman sayfadaki b ve c sütünlarındaki veriyi tanımıyor. B ve C sütünlarındaki veri sayı biçiminde. Bu sütünlardaki veriyi metin formatına çevirdiğim zaman veriyi bulup gerekli işlemi yapıyor. Bu sorunu nasıl çözebiliriz.

On Error Resume Next
Set S2 = Sheets("Siparis_Detay_Tnt")
For a = 1 To 25
If Controls("STK" & a) = "" Then Exit Sub
If Satinalma_Giris_Frm.VSIPNO1 = "" Then Exit Sub
For b = 2 To S2.[b65536].End(3).Row
    If Satinalma_Giris_Frm.VSIPNO1 = S2.Cells(b, "b") And _
       Satinalma_Giris_Frm.VSIPNO2 = S2.Cells(b, "c") And _
       Satinalma_Giris_Frm.Controls("STK" & a) = S2.Cells(b, "d") Then
       S2.Cells(b, "h") = Satinalma_Giris_Frm.Controls("TGM" & a) + Satinalma_Giris_Frm.Controls("GMIK" & a) * 1
       Exit For
    End If
Next
Next
End Sub

 

[programer]

Arkadaşlar dosya ekledim gerekli açıklamaları içerisine yazım. yardımcı olurmusunuz

 

[programer]

Arkadaşlar halen bir çözüm bulamadım yardımcı olurmusunuz.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[LEFT]On Error Resume Next
Set S2 = Sheets("Siparis_Detay_Tnt")
For a = 1 To 25
If Controls("STK" & a) = "" Then Exit Sub
If Satinalma_Giris_Frm.VSIPNO1 = "" Then Exit Sub
For b = 2 To S2.[b65536].End(3).Row
    If [B][COLOR=blue]cdbl([/COLOR][/B]Satinalma_Giris_Frm.VSIPNO1[COLOR=blue][B])[/B][/COLOR] = [B][COLOR=blue]cdbl([/COLOR][/B]S2.Cells(b, "b")[COLOR=blue][B])[/B][/COLOR] And _
       [B][COLOR=blue]cdbl([/COLOR][/B]Satinalma_Giris_Frm.VSIPNO2[COLOR=blue][B])[/B][/COLOR] = [B][COLOR=blue]cdbl([/COLOR][/B]S2.Cells(b, "c")[COLOR=blue][B])[/B][/COLOR] And _
       Satinalma_Giris_Frm.Controls("STK" & a) = S2.Cells(b, "d") Then
       S2.Cells(b, "h") = Satinalma_Giris_Frm.Controls("TGM" & a) + Satinalma_Giris_Frm.Controls("GMIK" & a) * 1
       Exit For
    End If
Next
Next
End Sub[/LEFT]