santiagomf

santiagomf

Más de 35 años en la informática y más de 20 trabajando con Visual Basic, Access, Excel y otras B
 166K puntos  Castilla y León, España @santiagomf desde - visto
Preguntar

Respuestas en Microsoft Excel

Respuesta en a

Ejercicio sencillo con macro

Espero haber entendido bien tu pregunta. Pienso que tienes esa lista de 25 edades y quieres obtener el promedio de cada tramo (menores de 18, de 18 a 64 y 65 o más). Lo que yo haría es, usando las funciones "contar.si" y "sumar.si" obtener el número...

¿Cómo hago aparecer un texto aleatorio cada vez que haga clic en el botón?

Prueba a llamar a este código desde tu botón: Sub elegirColorAleatorio() Dim n As Integer ' Inicializamos los números aleatorios Randomize Timer ' Generamos un número aleatorio entre 1 y 6 n = Int(Rnd * 6) + 1 ' Cogemos el valor que tiene la columna...
Respuesta en a

Tengo abierto un user en hoja2 y quiero pasar datos a hoja1 y volver

No necesitas activar ni seleccionar la "hoja1" para escribir en ella, basta con que pongas algo así: sheets("hoja1").cells(linea,columna)=valor De esta forma no tienes que ir activando y desactivando las páginas. Otra forma sería que el botón del...
Respuesta en a

Eliminar celdas excel si cumplen dos condiciones

Prueba a usar este código: Sub borrarLineasSinStock() Dim i As Long Dim sh As Worksheet Set sh = ThisWorkbook.ActiveSheet For i = sh.Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 ' Comprobamos la columna 16 (P) y 17 (Q) If (sh.Cells(i, 16)...
Respuesta en a

Poner contraseña para abrir userform

Pon al final de tu código estas dos instrucciones: Menu. Repaint DoEvents Con ellas se actualizará el formulario "menu". Por cierto, ten cuidado con la propiedad "showModal" de los formularios. No puedes tener 2 formularios "modales" al mismo tiempo.
Respuesta en a

Ayuda para fórmula

Pon esta fórmula en H4: =SI(O(I4="VENTA TARJETA";I4="INGRESO BANCO");"ingreso";"pago") Creo que es lo que buscas.
Respuesta en a

Necesito borrar caracteres en excel

Pon esta función en un módulo de la hoja de cálculo (tienes que guardarla como xlsm): Option Explicit Function quitarCaracteresQueNoQuiero(ByVal txt As String) As String Const caracteresQuitar = "+-/%" Dim i As Integer ' Cada uno de los caracteres...
Respuesta en a

Ayuda con una fórmula

=N2+M3*si(K4="restar";-1;1) Esta fórmula sumaría M3 multiplicado por -1 si en K4 pone la palabra restar. Creo que es algo así lo que buscas.
Respuesta en a

En Excel 2007 fórmula que arroje uno de cuatro posibles resultados basado en 4 rangos.

Supongamos que el valor a comparar está en A1. La fórmula a poner sería: =si(A1<125;1;si(A1<=134;2;si(A1<=144;3;4)) OJO: El menor (<) no incluye el valor comparado, como pasa con el 125 para el nivel 1. Con el menor o igual (<=) sí se incluye el...
Respuesta en a

Detener la macro si no han contestado una pregunta (selección de checkbox)

Desconozco el nombre de tus objetos, pero supongamos que son algo así como "p01chk1", "p01chk2", "p01chk3", "p02chk1", etc... para la pregunta 01 checkbox 1, 2 y 3, pregunta 02 checkbox 1, etc... Y el botón se llama "btnOk". En el evento "click" del...