Respuesta
en
Microsoft Excel
a
Tengo un error en Redim Preserve y no consigo verlo. Agradecería cualquier ayuda. Excel 2007
Cuando se usa la sentencia ReDim Preserve en matrices multidimensionales, solamente se puede modificar la última dimensión. ReDim Preserve Matriz(Pos, 0 To 3) 'Linea del error En tu caso se trata de una matriz de dos dimensiones, y estás intentando...
Respuesta
en
Microsoft Excel
a
Botón max. Y min. En userform
En la parte del módulo, donde pone Private, sustitúyelo por Public. Así te funcionará. Saludos, Carlos [email protected]
Respuesta
en
Microsoft Excel
a
Agregar argumentos a un array
Si, puedes añadir más elementos a la lista usando el método AddItem del objeto ListBox. Por ejemplo, podrías tener un botón para añadir a "maría", de esta manera Private Sub CommandButton1_Click() usuarios.AddItem "maría" End Sub Espero haberte...
Respuesta
en
Microsoft Excel
a
Macro muestra mensaje informativo
Podría servirte esta: Sub EliminarValoresRepetidos() Dim fila As Long Dim contador As Long contador = 0 With Application For fila = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 If .WorksheetFunction.CountIf(Range("A:A"), Cells(fila, 1)) > 1 Then...
Respuesta
en
Microsoft Excel
a
Resaltar celdas según criterios determinados
La fórmula del formato condicional para múltiplos de 7 es: =SI(ENTERO(A1/7)=A1/7;VERDADERO;FALSO) Para múltiplos de 11 sería: =SI(ENTERO(A1/11)=A1/11;VERDADERO;FALSO) Saludos, Carlos [email protected]
Respuesta
en
Microsoft Excel
a
Codificar números en letras con exel
Te propongo esto. Crea un módulo y copia este código: Function CODIFICAR(numero As String) As String Dim sNumeros As String Dim sLetras As String Dim i As Integer Dim sResultado As String sNumeros = "0123456789" sLetras = "ABCDEFGHIJ" sResultado =...
Respuesta
en
Microsoft Excel
a
Fórmula pega NO seguido
Eso que pides no se puede hacer con fórmulas, hay que hacerlo con macros. Saludos, Carlos [email protected]
Respuesta
en
Microsoft Excel
a
Calcular fecha en textbox
Si en TextBox1 tienes la fecha inicial, tu sentencia para calcular la fecha de fin de mes en TextBox2 sería así: TextBox2 = DateSerial(Year(TextBox1), Month(TextBox1) + 1, 1 - 1) Si no sabes donde colocar este código, puedes enviarme por correo tu...
Respuesta
en
Microsoft Excel
a
Porcentajes
La fórmula que necesitas en D1 es: =(B1-A1)/A1 o también podrías usar =C1/A1 Comprobarás que en D1 te pondrá 0,5 Ahora lo único que tienes que hacer es dar formato a la celda (botón derecho sobre la celda - Formato de celdas - Pestaña número -...
Respuesta
en
Microsoft Excel
a