Ingresar datos y tomar un valor de una celda a un textbox
Tengo un formulario para ingresar datos, pero debo tomar de la fila donde se encuentra el cursor un valor de una celda para posteriormente multiplicarlo por uno total.
fecha: 12/12/2015
Venta: 200
Precio: 20
Total venta: 4.000.. Este monto lo calcula
% Comisión: este monto esta en la celda donde estoy cargando los valores y lo debo mostrar en un textbox (la celda m7 tiene 23%)
% comis. * total venta= 4.000*23%...
Pero a medida que ingresos valores el % de comisión puede cambiar.. Por favor alguien que me colabore.. Estoy trabajando con excel Vba. Gracias... Estoy dispuesto a enviar el archivo para que mejor lo entiendan
1 respuesta
Si dices que tienes que cargar en el texbox lo que están en la columna M, pero de la fila donde tienes el cursor, entonces puede ser así:
Texbox4 = cells(activecell.row, "M")
Cambia Textbox4 por el nombre de tu texbox.
Si te funciona, recuerda valorar la respuesta.
Si no es lo que necesitas, envíame tu archivo y me explicas con un ejemplo.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Alirio Montanez” y el título de esta pregunta.
Hola dante te envíe el archivo a tu correo para que veas con más exactitud lo que quiero hacer, ya que hice el ajuste sugerido y no me funciono. Muchas gracias por tu valiosa colaboración
Lo primero que debes hacer es cambiar el evento del textobox, lo tienes en Change, cambia a Exit:
Private Sub iprecio_Change()
End Sub
Private Sub iprecio_Enter()
iprecio.BackColor = vbYellow
End Sub
Private Sub iprecio_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(iprecio.Text) And _
iprecio.Text <> "" Then
Beep
MsgBox "Se debe ingresar solo números"
iprecio.Text = ""
iprecio.SetFocus
End If
Call calcularsuma 'sumar los campos que siguen
cmdincluir.Enabled = True
'cmdincluir.SetFocus
End Sub
S a l u d o s . D a n t e A m o r
Si es lo que necesitas.
