Colocar el valor de un textbox a una celda
Hola,
tengo una pregunta con respecto a un textbox que tiene un valor numérico pero al accionar el botón (commandbuton) solo me ubica en la celda de excel el valor en entero, por ejemplo:
en el textbox tengo 4.50, y me ubica en la celda 4.00
Agradezco tu ayuda
1 Respuesta
Private Sub TextBox15_Change()
If TextBox1 <> "" Then 'cod
If TextBox15 <> "" Then 'actividad
For i = 1 To Sheets("Hoja8").Range("A" & Rows.Count).End(xlUp).Row
If Sheets("Hoja8").Cells(i, "A") = TextBox1 And _
Sheets("Hoja8").Cells(i, "B") = TextBox15 Then
TextBox22 = Val(Sheets("Hoja8").Cells(i, "E"))
Exit For
End If
Next
End If
End If
End Sub
