Dante Amor

H o l a: Envíame tu archivo con los formularios. Recuerda poner en el asunto tu nombre de usuario.

H o l a: Tengo las siguientes dudas: ¿Qué versión de excel tienes?¿Se va a enviar por outlook o por gmail o por cuál?¿Cómo se va a llamar el archivo pdf?En dónde van a estar los correos, ¿en cuál celda?En dónde están los datos de pedido, fecha y...

H o l a: En el archivo que me enviaste no pusiste ejemplos, las hojas están vacías. Podrías enviar un archivo con ejemplos. Importante: dime de todas las columnas que van a quedar en la hoja2, cuál de ellas siempre va a tener datos.

H o l a: En un correo nuevo puedes enviarme el archivo con algunos datos de ejemplo. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “osmar luque” y el título de esta pregunta.

H o l a: Te anexo la macro Sub Bimestres() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.Cells.ClearContents k = 1 For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row n = 1 a = h1.Cells(i, "C") For j = 1 To h1.Cells(i, "B")...

H o l a: Puedes descargar este manual: http://www.academia.edu/11470478/GRAN-TUTORIAL-DE-MACROS ' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )

Te anexo la macro para cuando le des doble click al control Image te abra la ventana de diálogo y puedas seleccionar el archivo con la foto. Private Sub Fotografia_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'Por.Dante Amor If TxtCedula = "" Then...

H o l a: Te anexo la Función: Function CalculaFecha(hini As Range, hfin As Range, fini As Range, hora As Range) 'Por.Dante Amor h2 = hini.Address h3 = hfin.Address h5 = fini.Address hr = hora.Address rdo = Evaluate("=WORKDAY(" & h5 & ",INT(" & hr &...

H o l a: Te anexo la macro Sub BuscarFecha() 'Por.Dante Amor [F1] = Date dia = Date - DateSerial(Year(Date), 1, 1) + 1 Set b = Columns("A").Find(dia, lookat:=xlWhole) If Not b Is Nothing Then b.Offset(0, 1) = [D1] Else MsgBox "En la columna A no...

H o l a: Te anexo las macros para imprimir Public varimpresion Sub ImprimirDesdeBoton() 'Por.Dante Amor 'Imprimir celdas celdas = Array("AA3", "E8", "U8", "AE8", _ "E8", "U9", "AA9", "AD9", _ "E10", "AC10", "U10", _ "E11", "V11", _ "A13", "E13",...