Respuesta
en
Microsoft Excel
a
Tengo un archivo de excel y necesito calcular la fecha en años (10) en base a una fecha
Se puede hacer con una fórmula no demasiado complicada. En B7: =FECHA(AÑO(K7)+10;MES(K7);DIA(K7)) y luego copiar y pegar hasta B1150. Quizás haya que sustituir los puntos y comas por comas, dependiendo del separador de listas que esté establecido en...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
EXCEL VBA texto más repetido en un rango
¿Y tiene que ser usando VBA? Porque si por ejemplo los textos están en A1:A10 la fórmula =INDICE(A1:A10;MODA(COINCIDIR(A1:A10;A1:A10;0))) hace el trabajo.
Respuesta
en
Microsoft Excel
a
Macro que realice la combinación de 24 números no correlativos en grupos de 6
Eso son 134596 combinaciones, así que el siguiente código no funcionará en Excel 2003 porque tiene menos filas que esas: Sub ListarCombinaciones() Dim rngOrigen As Range Set rngOrigen = [Hoja1!A1:X1] Dim a As Integer, b As Integer, c As Integer, d As...
Respuesta
en
Microsoft Excel
a
¿Cómo usar contar.si dependiendo de una celda?
Por ejemplo, si los datos están en A1:A9 la siguiente fórmula parece que hace lo que necesitas: =CONTAR.SI(DESREF(A1;;;SI.ERROR(COINCIDIR(0;A1:$A$9;0);999));1) Habría que pegarla en, por ejemplo, B1, y copiarla y pegarla hasta B9. Quizás haya que...
Respuesta
en
Microsoft Excel
a
¿Cómo pasar un objeto userform como parámetro/variable a un procedimiento?
Prueba con algo parecido a: Sub llamar() Dim objFormulario As Object Set objFormulario = Aviso1 Mostrar_aviso objFormulario End Sub Public Sub Mostrar_aviso(objFormulario As Object) With objFormulario .StartUpPosition = 0 .Left = 200 .Top = 150 .Show...
Respuesta
en
Microsoft Excel
a
Macro extraer texto
No parece necesario recurrir a VBA, prueba con la siguiente fórmula: =EXTRAE(A1;HALLAR("ruc:";A1)+4;HALLAR("estado:";A1)-(HALLAR("ruc:";A1)+4)) Quizás haya que sustituir los puntos y comas por comas: dependerá del separador de listas que esté...
Respuesta
en
Microsoft Excel
a
Formula para que devuelva los números impares de una lista.
En B3: =SI.ERROR(INDICE($B1:$F1;;K.ESIMO.MENOR(SI(RESIDUO($B1:$F1;2)=1;COLUMNA($B1:$F1)-1);COLUMNA()-1));"") copiar y pegar hasta F3 En B4: =SI.ERROR(INDICE($B1:$F1;;K.ESIMO.MENOR(SI(RESIDUO($B1:$F1;2)=0;COLUMNA($B1:$F1)-1);COLUMNA()-1));"") Copiar y...
Respuesta
en
Microsoft Excel
a
Excel VBa Declarar una variable para 2 procedimientos
Sub PRINCIPAL() MES = InputBox("Ingrese Mes") Call Secundario(MES) End Sub Sub Secundario(MES) Mes1 = MES 'Variable del primer procedimiento MsgBox Mes1 End Sub
Respuesta
en
Microsoft Excel
a
Celda con fecha un lunes
Puedes usar una validación de datos (opción en el menú Datos), poniendo en Permitir 'Personalizada' y como fórmula: =DIASEM(B1)=2 Tanto el mensaje de entrada a la celda con la validación como el mensaje de error se pueden personalizar.
Respuesta
en
Microsoft Excel
a
Centrar pantalla referente a una celda
En el centro de la pantalla no creo que se pueda directamente, pero sí en la esquina superior izquierda: Application.Goto Range("Hoja1!E22"), True Si necesitas centrar la celda en la ventana, supongo que después del Goto podrías hacer pruebas con...