tavopz

La macro sería algo como esto: Sub MyCreationDate() Dim myDate As Date myDate = ActiveWorkbook.BuiltinDocumentProperties("Creation date").Value MsgBox myDate End Sub Revisa si esto te funciona.

No estoy seguro de haber entendido tu pregunta, sin embargo, pienso que si lo que quieres es buscar un dato en una tabla y a partir de dicho dato devolver un valor que se encuentra en otra columna, la solución es la función BUSCARV. Revisa en mi...

Podrías manejarlo de esta forma (puede que no sea la ideal): =CONCATENAR(A4; SI(DIA(B4)<10; "0";""); DIA(B4); "/"; SI(MES(B4)<10; "0";""); MES(B4);"/"; AÑO(B4)) O en inglés: =CONCATENATE(A4; IF(DAY(B4)<10; "0";""); DAY(B4); "/"; IF(MONTH(B4)<10;...

Antes de utilizar macros (porque tienes razón son una herramienta muy poderosa), te sugiero que agotes las opciones mediante funciones (fórmulas). Excel trae gran cantidad de funciones que son también muy útiles y que te ahorrarán mucho trabajo. Por...

Preparé un ejemplo que puede servirte, de acuerdo con lo que entendí. Si no está correcto o no es lo que necesitabas no dudes en preguntar otra vez. http://es.geocities.com/webtavopz/Files/ejemplo_calculohoras.xls

No estoy seguro de haber entendido. ¿Los números en el Label te quedan con un solo decimal (cuando haces la suma)? Es decir, ¿23,1 en lugar de 23,10? ¿Cuándo pasas los datos del UF a la hoja de excel cómo los pasas? Si la celda tiene formato de...

Puedes utilizar la función SUMAPRODUCTO o SUMPRODUCT (en inglés). Seria algo así: =SUMAPRODUCTO((A1:A10="VAP")*(B1:B10="OP")) Verás que cuando la celda A1:A10 es igual a "VAP" se produce un valor TRUE (que es igual a 1) y si es difeferente se produce...

Puedes hacer algo como esto: Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) ActiveCell.Borders.ColorIndex = 5 End Sub Este código lo pegas en el editor de Visual Basic en la hoja donde tienes los hipervínculos.

Incluye este código para la hoja donde está esa celda (No en el módulo, sino en el código de la hoja). Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Run "MiMacro" End If End Sub Claro, debes reemplazar la celda y...

Se me ocurre otra alternativa que te propongo: La idea es que tengas en una hoja llamada "HojasImprimir" en las celdas A1 hasta A60 los nombres de las hojas que deseas que se impriman. De esta forma, con una macro como esta puedes enviar a imprimir...