Видео

EXELENTE VIDEO PODRIAS CREAR UNO ARCHIVO CON EL NOMRE DE NEGOCIO

Muy útil

Está muy bueno 👌🏽 A practicar con My SQL....Muchas gracias

Office 2019 (italiano)

Completé el programa, pero la hoja 1 llamada "Menú" no se usó para nada, ¿para qué servía? Además, el sub estilo tablero es imposible de hacer porque al tener un Occice en italiano los comandos son diferentes. Saludos cordiales Falcón

hola, no me funciona la parte de filtrar clientes, me sale: nombre no encontrado AYUDAAA, GRACIAS

EXCELENTE VIDEO... Soy docente y me gustan mucho los proyectos en excel utilizando Visual Basic.

Buen sistema! Se podría considerar la opción para emitir un reporte de notas del alumno en pdf.

Muy bueno...puedes hacer el mismo pero con una base de datos en sql o acces ? Intenté hacerlo y no pude .....Te lo agradecería mucho !!!

Muy buena explicación

Como te puedo mandar el archivo, dime el correo.

Hola de nuevo, creo que no me he explicado, el problema lo tengo en cancelar facturas,( For i = Range(col & Rows.Count).End(xlUp).Row To l Step -1) al introducir el numero de factura a cancelar me sale un error y no se como solucionarlo para que funcione la cancelación de facturas.

Extraordinario trabajo, baje la plantilla y lo desarrolle según tus comentarios. Tengo algunos fallos como que no actualiza las ventas de la hoja de inventario, al cancelar facturas me sale un error( For i = Range(col & Rows.Count).End(xlUp).Row To l Step -1) y no se como depurar lo. Te agradecería que me echaras una mano, Gracias.

Excelente video

Me interesa. Descargue la plantilla, pero como hago para que funcione?.

Gracias Profesora por sus enseñanzas

Gracias por enseñarnos las Macros, le pediría que publique mas tutoriales

Excelente, con tu video aprendi a crear facturas electronicas, gracias. Yo tenia problema con el tema de progrador, ya que me salia que criterial estaba mal, pero vi en los comentarios que no era criterial, si nó, criteria1 jeje. Es parecido. Excelente.

GRACIAS POR EL APORTE

hola buenas, cuando ingreso los codigos para el filtro me salta "error de compilacion" "no se encontro el argumento con nombre" y despues me resalta el Criterial:=Criterio Que puede ser el error? lo hice exactamente como muestras en el video. ayuda por favor :(

hola muchas gracias, excelente trabajo, me podrias compartir el archivo ya terminado. muchas gracias

Extraordinario trabajo. Felicidades.

hola, excelente trabajo, lo termine, pero tengo un problema con el tema de inventarios, no me resta las cantidades, siempre permanecen igual

genial

Puedes compartirlo pero ya terminado

Mijo disculpa el atrevimiento puedes compartirlo la todo realizado

Muy útil gracias

Felicitaciones, excelente trabajo, me gustarí adquirir el archivo, saludos

Como se puede obtener el documento gracias

Donde descargar

Buen video Donde podemos descargar la platilla

Excelente felicitaciones

muy informativo gracias

Sub EliminarFilasNumericas() Dim fila As Integer Dim valor As Variant fila = 8 ' Empieza en la fila 1 Do While Not IsEmpty(Range("A" & fila)) valor = Range("A" & fila).Value If IsNumeric(valor) Then Range("A" & fila).EntireRow.Delete fila = fila - 1 ' Disminuye el índice si se eliminó una fila End If fila = fila + 1 ' Avanza a la siguiente fila Loop Hoja5.Range("D8").Value = 0 End Sub

Sub obtenerCodigo() Dim pic As Shape Set pic = ActiveSheet.Shapes(Application.Caller) Range("A2").Value = pic.Name End Sub

Sub InsertarImagen() Dim ruta As String Dim nombre As String ruta = "C:\Comidas\" nombre = InputBox("Escriba el nombre de la imagen") If nombre <> "" Then With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Title = "Seleccione una imagen" .Filters.Clear .Filters.Add "Imágenes", "*.jpg;*.png" If .Show = True Then Dim imagen As String imagen = .SelectedItems(1) FileCopy imagen, ruta & nombre & ".jpg" ActiveSheet.Pictures.Insert(ruta & nombre & ".jpg").Select With Selection.ShapeRange .LockAspectRatio = msoFalse .Width = Application.CentimetersToPoints(5) .Height = Application.CentimetersToPoints(5) End With End If End With End If End Sub