andres morales

La Sintaxis es correcta, el lugar donde colocó los interrogantes debe colocar la tabla donde desea realizar la búsqueda. Es decir: Para buscar en la tabla GEN: =buscarv(a3;GEN;3;0) Para buscar en la tabla FEB: =buscarv(a3;FEB;3;0) Etc... En caso de...

Con este código en VBA se soluciona el tema: Sub campotablasuma() Dim pt As PivotTable Dim iDataFieldsCount As Integer Dim iX As Integer On Error Resume Next Set pt = ActiveCell.PivotTable On Error GoTo 0 If pt Is Nothing Then MsgBox "La celda...

Para establecer el Asunto y el cuerpo del correo: With OutMail .Subject = "Asunto" .Body = "Cuerpo del Mensaje" End With esto antes de End Sub.

Le comparto una opción con Macros, solo debe reemplazar las partes en Negrita: MarcoEnviar() Dim OutApp1 As Object Dim OutMail1 As Object Set OutApp1 = CreateObject("Outlook.Application") OutApp1.Session.logon Set OutMail = OutApp1.CreateItem(0) On...

Según veo, el Rut tiene 8 dígitos iniciales y uno de verificación. Para validar si el Rut tiene 8 dígitos: =SI(LARGO(IZQUIERDA(Celdadondeestaelnumero,HALLAR("-",Celdadondeestaelnumero,1)-1))=8,"Rut Valido","Rut Errado") Para validar si el rut tiene...

Le recomiendo Adblock Plus. Es una aplicación de Google, no un programa y funciona bastante bien. Link: AdBlock Plus

Me parece mas sencillo utilizar el operador igual (=). Es decir, suponga que en la celda B1 quiere asignar el valor de A1. Entonces ubicado en B1 se escribe =A1 obteniendo así el valor de dicha celda sin necesidad de copiar el contenido. Sin embargo,...

Según lo entiendo, le envío un procedimiento explicado para su necesidad: Carga de imagen a partir de lista de validación

Envío link con varias opciones para reparar un libro dañado- Support

Se me ocurre esta alternativa: =CONCATENAR("Penúltimo: ", DESREF(K26, 0,13)," - ","Último: ", DESREF(K26, 0,14)) La fórmula funciona para el rango K26:Y26.

Formula: =SI(SI(Y(B2=$F$2,C2=$G$2),"Exacto",SI(B2>C2,"A",SI(B2=C2,"Empate","B")))="Exacto",3,SI(SI(Y(B2=$F$2,C2=$G$2),"Exacto",SI(B2>C2,"A",SI(B2=C2,"Empate","B")))=SI($F$2>$G$2,"A",SI($F$2=$G$2,"Empate","B")),1,0)) La fórmula se debe copiar en la...

Adjunto link con varias rutinas Rutina Ejercicio Crossfit Principiantes Motivacion Asylum - Shaun T

Los números se pueden sumar extrayendo el contenido de la celda, sin necesidad de separar. Puede utilizar las funciones: =derecha(celda,numero de caracteres) =izquierda(celda,numero de caracteres) =Extrae(celda,posición inicial,numero de caracteres)...

Le comparto un código que yo utilizo en mis archivos; en caso de tener tablas dinámicas, también funciona: La sentencia se debe copiar en ThisWorkBook del proyecto Private Sub Workbook_Open() With Sheets("NOMBRE DE LA HOJA PROTEGIDA")...

Se me ocurre un código sencillo desde VisualBasic. 1. Ingresar a Visual (Alt+F11) 2. En la hoja ThisWorkBook, seleccionar WorkBook y copiar: Range("A:R"). EntireColumn. AutoFit Range("A:R"). EntireRow. AutoFit Este código ajusta automáticamente las...