¿Cómo hacer una Macro para calcular el subtotal: Unitat por Preu?
La pregunta va dirigida a Dante, como puedo hacer una macro para calcular el subtotal: Unitat por Preu
Respuesta de Dante Amor
1
Te anexo la macro para calcular el textbox3 * textbox4
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 = Val(TextBox3, ",")
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") = val5
TextBox6 = ""
limpiartext 5
h2.Columns("B:B").NumberFormat = "General"
Cargarlist
TextBox2. SetFocus
End SubSaludos.Dante Amor
