muy bueno en verdad habría un cuadro de mensaje de advertencia que aparezca automáticamente cuando un almacén de desabastece o cuando falta hacer un chek list
en el minuto 18:30, al validar SI.ERROR() en la celda precio "E11", al asignar el valor vació "", genera un error de tipos en el código; por lo que es recomendable asignarle el número 0, quedaría así: =SI.ERROR(BUSCARV(E11,productos,3,FALSO),0).
saludos, muy bueno los tutoriales que das, me ha servido bastante mucha gracias, pero tengo una duda aplique un macro anterior para acumular sumas en una misma celda, ahora lo que quiero es que para poder agregar nuevos valores en la celda y que me salga un mensaje de confirmación, esto por que ya he agregado valores erróneamente, esto se puede hacer? y no entiendo bien este video para aplicarse en una celda concretamente sin usar botones
Buenas Tardes! Gracias por el video. Me da un error y no se como resolverlo. Se ha producido el eoor ´1004´ en tiempo de ejecucion: Error definido por aplicacion o el objeto Esta es la macro Sub IngresarVentas() Dim CodProducto As String Dim Descripcion As String Dim Precio As Double Dim Unidades As Integer Dim ultfila As Long Dim Respuesta As Integer
Mil gracias. Excelente trabajo.
Reto superado, gracias
Excelente macro, muy útil, bien explicada su creación. Seguimos adelante, nos quedan 27 retos para llegar a la meta!!!
muy buen ejercicio. hay cosas de macro que no entendía, pero ahora me sirve mucho, gracias profe Alfonso.
muchas gracias señor Alfonso muy util la informacion
Excelente
excelente video
Gracias, sigas adelante con el Reto $0m Excel.saludos
muy bueno en verdad habría un cuadro de mensaje de advertencia que aparezca automáticamente cuando un almacén de desabastece o cuando falta hacer un chek list
muy buen video
Gracias, y adelante con el Reto 40 Excel,saludos
en el minuto 18:30, al validar SI.ERROR() en la celda precio "E11", al asignar el valor vació "", genera un error de tipos en el código; por lo que es recomendable asignarle el número 0, quedaría así: =SI.ERROR(BUSCARV(E11,productos,3,FALSO),0).
saludos, muy bueno los tutoriales que das, me ha servido bastante mucha gracias, pero tengo una duda aplique un macro anterior para acumular sumas en una misma celda, ahora lo que quiero es que para poder agregar nuevos valores en la celda y que me salga un mensaje de confirmación, esto por que ya he agregado valores erróneamente, esto se puede hacer? y no entiendo bien este video para aplicarse en una celda concretamente sin usar botones
este pequeño video me parecio exelente ya que pude apreender a utiizar el modo de no repetisiones 20170254
en el formato de macro, puedo expresar el porcentaje de retencion el 3% como 0.03?
este video es muy bueno ya que nos permite no poner unidades repetidas utilisando el modo de no.repeticiones..att.alexander fabian matricula.20170233
Buenas Tardes! Gracias por el video. Me da un error y no se como resolverlo. Se ha producido el eoor ´1004´ en tiempo de ejecucion: Error definido por aplicacion o el objeto
Esta es la macro
Sub IngresarVentas()
Dim CodProducto As String
Dim Descripcion As String
Dim Precio As Double
Dim Unidades As Integer
Dim ultfila As Long
Dim Respuesta As Integer
CodProducto = Sheets("Base").Cells(6, 5)
Descripcion = Sheets("Base").Cells(8, 5)
Precio = Sheets("Base").Cells(10, 5)
Unidades = Sheets("Base").Cells(12, 5)
If CodProducto = "" Or Descripcion = "" Or Precio = 0 Or Unidades = 0 Then
MsgBox "Ingresar Datos", vbCritical, "Datos Incompletos"
Exit Sub
End If
Respuesta = MsgBox("¿Estas Seguro?", vbYesNo + vbQuestion, "Registro")
If Respuesta = vbYes Then
ultfila = Sheets("Venta de Productos").Range("D" & Rows.Count).End(x1Up).Row
Sheets("Venta de Productos").Cells(ultfila + 1, 4) = CodProducto
Sheets("Venta de Productos").Cells(ultfila + 1, 5) = Descripcion
Sheets("Venta de Productos").Cells(ultfila + 1, 6) = Precio
Sheets("Venta de Productos").Cells(ultfila + 1, 7) = Unidades
MsgBox "Registro Realizado"
Sheets("Datos").Cells(6, 5) = ""
Sheets("Datos").Cells(8, 5) = ""
Sheets("Datos").Cells(10, 5) = ""
Sheets("Datos").Cells(12, 5) = ""
End If
End Sub
Me ayudas por favor. Gracas
Tengo un problema ojalá me puedas ayudar favor enviar un mail para contactar
perdón Alfonso!