Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Type mismatch? string 2 a long??
I have a type mismatch and i can't understand why? I have two textboxes on a form which i deduct from a given amount. Thi works OK when both boxes have a value in them but just one box entere & all go's the way of the Pear!? I had t & t2 decalred as long but tried to get the thing working an changed them to variants, this just shifted the blame further down line or 2. My problem i think is due to textbox values being a string how do i say the input will be a long? or even the cell for tha matter? Private Sub CommandButton1_Click() N = FrmDor1.N Dim t As Variant: Dim t2 As Variant Dim note As String Dim nt As String: Dim nt1 As String If TextBox1.Value < "" Then Sheets("Sheet1").Cells(N, 31) = TextBox1.Value End If If TextBox2.Value < "" Then Sheets("Sheet1").Cells(N, 30) = TextBox2.Value End If If TextBox3.Value < "" Then Sheets("Sheet1").Cells(N, 38) = TextBox3.Value End If If TextBox4.Value < "" Or TextBox5.Value < "" Then t = TextBox4.Value 'pack left t2 = TextBox5.Value 'pack right If TextBox4.Value = "" Then nt = "" Else nt = t & " left pack," End If If TextBox5.Value = "" Then nt1 = "" Else nt1 = t2 & " right pack," End If note = Sheets("Sheet1").Cells(N, 23) Sheets("Sheet1").Cells(N, 23) = note & " " & " " &nt& " "&nt1 FrmDor1.TextBox4.Value = note & " " & " " & nt & " " &nt1 'THIS is my problem line Sheets("Sheet1").Cells(N, 31) = Sheets("Sheet1").Cells_ (N, 11) - t - t2 End If End Sub Thanks for even looking at this. Any help will be appreciated. CA ----------------------------------------------- ~~ Message posted from http://www.ExcelTip.com ~~View and post usenet messages directly from http://www.ExcelForum.com ~~Now Available: Financial Statements.xls, a step by step guide to creating financial statements |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Type mismatch... | Excel Discussion (Misc queries) | |||
Type Mismatch | Excel Worksheet Functions | |||
Type Mismatch Error | Excel Discussion (Misc queries) | |||
type mismatch--how to fix | Excel Discussion (Misc queries) |