Dante Amor

H o l a: Envíame tu archivo de excel con tu formulario propuesto, si no tienes formulario, te creo uno y adapto la macro. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Vicente Quispe Gonzalez” y el título de esta...

H o l a: Y cómo quieres la alarma, con una ventanita, si son 20 empleados con "ausente", que te ponga los 20 empleados, ¿cada empleado con su respectivo vale? Puedes poner otra imagen en dónde se vean las filas y las columnas de excel. S aludos

H o l a: Te anexo la macro para revisar si ya existe el dato en la hoja2 columna A, si no existe entonces lo copia y pone la fecha y la hora. Sub CopiarDatos() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") For i = 10 To...

H o l a: Quedaría así: Sub CambiarFormato() For Each h In Sheets h.Range("AC13:AC24").ClearContents h.Range("AC13:AC24").NumberFormat = "General" Next End Sub

H o l a: Mejor, explícame qué necesitas hacer y te creo una nueva macro. En tu explicación utiliza imágenes y ejemplos. Sa ludos

H o l a: Puedes hacerlo con la siguiente fórmula: Pon la fórmula en la celda K3 =SI(E3="0CR";EXTRAE(E4;1;LARGO(E4)-2);E3) Nota: Revisa si en la fórmula utilizas coma , o ; como separador. Después de poner la fórmula en K3, arrastra la fórmula hasta...

H o l a: Envíame tu archivo con ejemplos. S a l u d o s

H o l a: Con la siguiente macro te junta la columna A y B en la columna C. No lo hace celda por celda. Sub UnirColumnas() 'Por.Dante Amor u = Range("A" & Rows.Count).End(xlUp).Row With Range("C1:C" & u) .Formula = "=A1&"" ""&B1" .Value = .Value End...

H o l a: Te anexo la macro actualizada: Sub CopiarDatosColpatria() 'Por.Dante Amor Set h1 = Sheets("Ing Colpatria") Set h2 = Sheets("Colpatria") Set h3 = Sheets("CONSTANTES") ' If UCase(h1.[G16]) = "CONSULTA" Or UCase(h1.[G16]) = "CONTROL" Then If...

H o l a: Por código de VBA no se puede seleccionar la bandeja de salida, pero puedes agregar la misma impresora 2 veces, es decir, ya tienes agregada la impresora "HP 1102W" y apunta a la bandeja 1; ahora, agrega nuevamente la impresora "HP 1102W"...