Luis_P

Eso lo resuelves mas sencillo asi: =SUMAR.SI(C1:C9;"azul";E1:E9)+SUMAR.SI(C1:C9;"azul";F1:F9) Esto te da la suma de todos los azules

Si eso pasa cuando no existe lo que buscas en el rango de busqueda. Falla la funcion vlookup '4c7569735f50 Prueba asi: On Error Resume Next nombre = Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(patron,...

Lo primero es que las fotos tengan el mismo nombre de la clave del empleado, asi cuando teclees el codigo del empleado, y jales los datos, el sript cargue la foto con el mismo id ( nombre de la foto)

Range( J15 ) = cdate(Mid(Range( A15 ), Range( I15 ) + 2, 14))

Ok. Lo primero es insertar un modulo y en este modulo pones esto: Option Explicit Private Const MAX_PATH = 64 Private Const FILE_ATTRIBUTE_DIRECTORY = &H10 Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private Type...

Aca tienes: Sub renombra_directorios() Dim i As Integer Dim p As String Dim VIEJO As String Dim NUEVO As String Dim ss As String '4c7569735f50 ChDir "c:\" ChDir "C:\prueba\" p = "C:\prueba\" ss = Dir(p, vbDirectory) Do Until (Err.Number > 0) On Error...

Coloca los datos desde columna a hasta c Plot en a unit en b orden en c En la fila 1 van los rotulos desde la 2 hacia abajo los datos Importante, no deben haber filas vacias entre en el bloque de datos La columna d y e deben estar vacias, pues alli...

Y así: Importar = Trim(InputBox("Que fichero desea importar ?", "Entrada de datos")) If Len(Importar) = 0 Then Exit Sub

Es posible, pero te va a consumir bastante memoria... Para cargar una matriz debes pasarle los datos recuperados a través de una variable string más un delimitador de registro ( separador, que puede ser cualquier carácter que obviamente no sea parte...

¿Promedio? Label1.Caption = (Val(TextBox1) + Val(TextBox2)+ Val(TextBox3)+ Val(TextBox4)+ Val(TextBox5)+ Val(TextBox6)+ Val(TextBox7)+ Val(TextBox8)) / 8