¿Como puedo capturar datos a través de un userform en excel, para imprimir en un ticket de 5,8cm?
Quiero hacer una pequeña función para capturar datos básicos, fecha, artículo, precio, cantidad y total y luego imprimir un ticket en 5,8cm;
1 Respuesta
Respuesta de Dante Amor
1
Este es el código para pasar los datos del formulario a la hoja
Private Sub CommandButton2_Click()
'Por.DAM
'Introduir ticket
c = validatext
If c <> "" Then
MsgBox "Introducir los siguientes datos: " & c
TextBox2.SetFocus
Exit Sub
End If
Set h2 = Sheets("Temporal")
u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
'
val3 = Replace(TextBox3, ",", ".")
val4 = Replace(TextBox4, ",", ".")
val5 = Val(val3) * Val(val4)
'val5 = Format(val5, "#.00")
'val5 = Replace(val5, ".", ",")
'
h2.Cells(u, "A") = TextBox2
h2.Cells(u, "B") = Val(val3)
h2.Cells(u, "C") = Val(val4)
h2.Cells(u, "D") = Val(val5)
TextBox6 = ""
limpiartext 5
h2.Columns("B:B").NumberFormat = "General"
Cargarlist
TextBox2. SetFocus
End SubSaludos.Dante Amor
