Carlos soloffice

En la parte del módulo, donde pone Private, sustitúyelo por Public. Así te funcionará. Saludos, Carlos [email protected]

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...

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...

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]

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 =...

Eso que pides no se puede hacer con fórmulas, hay que hacerlo con macros. Saludos, Carlos [email protected]

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...

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 -...

De nuevo efgarcia, Creo que esto te va a gustar :) Lo puedes descargar aquí: http://goo.gl/v7e2s Si pulsas Activar Despertador comienza a comprobar las horas, hace comprobaciones cada minuto. Cuando detecta que faltan 5 minutos comienzan a sonar...

Esta macro hace lo que tu quieres para los hipervínculos que haya en la "Hoja1" Sub CambiarURLs() Dim ws As Worksheet Dim h As Hyperlink Set ws = Worksheets("Hoja1") For Each h In ws.Hyperlinks h.Address = Replace(h.Address, "www.pagos.com",...